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

start0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated

analyze220.0ms (1.7%)

Memory

-21.6MiB live, 390.6MiB 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)

sample1.5s (11.5%)

Memory

55.4MiB live, 2 896.4MiB allocated

Samples

1.2s

8 256×

valid

Precisions

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

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

ival-pow2: 164.0ms (17.3% of total)

ival-sqrt: 69.0ms (7.3% of total)

ival-mult: 50.0ms (5.3% of total)

ival-add: 49.0ms (5.2% of total)

ival-div: 48.0ms (5% of total)

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

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

Bogosity

explain188.0ms (1.4%)

Memory

-15.9MiB live, 311.2MiB allocated

FPErrors

Click to see full error table

Ground Truth	Example	Example	Subexpression
10	-	-	`(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))`
0	-	-	`(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))`
0	-	-	`(pow.f64 (sin.f64 ky) #s(literal 2 binary64))`
0	-	-	`(sin.f64 kx)`
0	-	-	`(sin.f64 th)`
0	-	-	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
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	-	-	`th`
0	-	-	`#s(literal 2 binary64)`
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	-	-	`(sin.f64 ky)`
0	-	-	`ky`
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	10	0
↳	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`	underflow	51
↳	`(pow.f64 (sin.f64 ky) #s(literal 2 binary64))`	underflow	61
↳	`(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))`	underflow	10

Confusion

	Predicted +	Predicted -
+	10	0
-	0	246

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	10	0	0
-	0	0	246

Precision?

1.0

Recall?

1.0

Freqs

test

number	freq
0	246
1	10

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

83.0ms

512×

valid

Compiler

Compiled 155 to 43 computations (72.3% saved)

Precisions

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

ival-sin: 37.0ms (63.4% of total)

ival-pow2: 9.0ms (15.4% of total)

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

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

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

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

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

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

exact: 0.0ms (0% of total)

preprocess74.0ms (0.6%)

Memory

-4.1MiB live, 38.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.3MiB live, 0.3MiB allocated
Compiler: Compiled 3 to 3 computations (0% saved)

prune1.0ms (0%)

Memory

1.5MiB live, 1.5MiB allocated

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	95.9%	(*.f64 (/.f64 (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

7.6MiB live, 7.6MiB 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

localize51.0ms (0.4%)

Memory

-2.2MiB live, 74.4MiB allocated

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.16796875	(*.f64 (/.f64 (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))
accuracy	0.236660009768442	(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
accuracy	0.236660009768442	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
accuracy	2.4613826817128834	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))

Samples

38.0ms

256×

valid

Compiler

Compiled 68 to 15 computations (77.9% saved)

Precisions

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

ival-sin: 17.0ms (62.9% of total)

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

ival-div: 2.0ms (7.4% of total)

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

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

ival-mult: 1.0ms (3.7% of total)

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

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

exact: 0.0ms (0% of total)

series30.0ms (0.2%)

Memory

2.7MiB live, 40.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 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #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>) () ())

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

Calls

30 calls:

Time	Variable		Point	Expression
3.0ms	kx	@	0	(pow (sin kx) 2)
3.0ms	ky	@	-inf	(* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th))
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.3%)

Memory

-6.3MiB live, 348.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	7804	2122
0	8107	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 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)
(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)

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 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx (.f64 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)))))) (/.f64 #s(literal 1/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 ky (*.f64 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 ky (/.f64 (.f64 ky (+.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 ky (/.f64 (.f64 ky (.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 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))))))))))))) (/ (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 #s(literal 1/2 binary64) (.f64 (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)))))) (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 (sin.f64 th) (.f64 (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)))))) (fma.f64 (.f64 ky ky) (fma.f64 (sin.f64 th) (.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 (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 (.f64 kx kx) (.f64 (+.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 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)))) (/.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) (.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) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 #s(literal 1/2 binary64) (.f64 (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/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 (.f64 ky ky) (.f64 (+.f64 (fma.f64 ky (.f64 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)))) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 #s(literal 1/2 binary64) (.f64 (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)))) 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 kx kx) (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (.f64 (+.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)))) #s(literal 1/2 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 kx 2)
(*.f64 kx kx)
(* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))
(.f64 kx (fma.f64 (.f64 kx (*.f64 kx #s(literal -1/3 binary64))) kx kx))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))
(.f64 (.f64 (fma.f64 (.f64 kx kx) (fma.f64 kx (.f64 kx #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)) kx) kx)
(* (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))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 ky (.f64 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 #s(literal 2/45 binary64) (.f64 ky ky) #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))

rewrite272.0ms (2%)

Memory

25.1MiB live, 288.0MiB 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 kx) #s(literal 2 binary64))
(pow.f64 (sin.f64 ky) #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 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)))
(+.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))

eval65.0ms (0.5%)

Memory: -1.0MiB live, 115.8MiB allocated
Compiler: Compiled 12 851 to 1 673 computations (87% saved)

prune121.0ms (0.9%)

Memory

-19.7MiB live, 194.0MiB allocated

Pruning

25 alts after pruning (25 fresh and 0 done)

	Pruned	Kept	Total
New	423	25	448
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	424	25	449

Accuracy

100.0%

Counts

449 → 25

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.7%	(/.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)))
	75.7%	(/.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)))))))
	75.7%	(/.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)))
	75.6%	(/.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))))
	70.6%	(*.f64 (/.f64 (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	80.9%	(.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)))))
	75.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))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	75.7%	(.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))
▶	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	75.8%	(.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))
	85.4%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
▶	52.8%	(.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))
	69.7%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	54.8%	(.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))
	36.6%	(.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))
	38.2%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	75.7%	(.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))) (sin.f64 th))
▶	75.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)) (sin.f64 th))
	75.6%	(.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))))))))
	22.6%	(.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))
	35.9%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	34.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	93.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
▶	49.0%	#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)))
▶	27.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Compiler

Compiled 1 130 to 776 computations (31.3% saved)

simplify78.0ms (0.6%)

Memory

22.6MiB live, 61.0MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 18 expressions of interest:

New	Metric	Score
cost-diff	0	(/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
cost-diff	0	(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)))))
cost-diff	0	(.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))
cost-diff	0	#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)))
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

1 494×	`lower-fma.f32`
1 492×	`lower-fma.f64`
558×	`lower-*.f32`
542×	`lower-*.f64`
412×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	49	392
0	85	382
1	113	382
2	154	377
3	197	367
4	247	367
5	310	367
6	417	367
7	573	367
8	789	359
9	1080	359
10	1589	359
11	1924	359
12	2040	359
13	2050	359
14	2058	359
15	2064	359
0	2064	357

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
#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 (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))
(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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(sin.f64 ky)
ky
#s(literal 2 binary64)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.f64 kx)
kx
(*.f64 (sin.f64 ky) 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 (-.f64 #s(literal 2 binary64) (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 (-.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)
(sin.f64 th)
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)))
#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 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) 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 (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) 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)))))
(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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #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 ky) #s(literal 2 binary64))
(sin.f64 ky)
ky
#s(literal 2 binary64)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.f64 kx)
kx
(*.f64 (sin.f64 ky) th)
th

localize277.0ms (2.1%)

Memory

13.0MiB live, 396.2MiB allocated

Localize:

Found 18 expressions of interest:

New	Metric	Score
accuracy	0.23666000976844204	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
accuracy	2.5084389666472897	(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)))))
accuracy	2.8140419016536615	(.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))
accuracy	29.44074550031556	#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)))
accuracy	0.34765625	(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(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.5084389666472897	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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	17.21304139417124	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	17.477074235177728	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
accuracy	0.16796875	(.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))
accuracy	0.23666000976844204	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
accuracy	2.4613826817128834	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))
accuracy	28.28253781628883	#s(approx (pow (sin ky) 2) (*.f64 ky ky))
accuracy	0.00390625	(sin.f64 th)
accuracy	46.14250994669904	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
accuracy	0.00390625	(sin.f64 th)
accuracy	0.02734375	(hypot.f64 (sin.f64 ky) (sin.f64 kx))
accuracy	0.16796875	(/.f64 (sin.f64 ky) (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))

Samples

95.0ms	97×	2	valid
79.0ms	99×	1	valid
30.0ms	60×	0	valid

Compiler

Compiled 379 to 40 computations (89.4% saved)

Precisions

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

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

ival-sin: 29.0ms (18.7% of total)

ival-mult: 22.0ms (14.2% of total)

adjust: 18.0ms (11.6% of total)

ival-div: 11.0ms (7.1% of total)

ival-add: 10.0ms (6.4% of total)

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

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

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

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

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

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

exact: 0.0ms (0% of total)

series82.0ms (0.6%)

Memory

4.2MiB live, 120.5MiB allocated

Counts

22 → 528

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 #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))) (patch #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))) #<representation binary64>) () ())
#s(alt (.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)) (patch (.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)) #<representation binary64>) () ())
#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (patch (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) #<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>) () ())

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

Calls

132 calls:

Time	Variable		Point	Expression
19.0ms	th	@	inf	(* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th))
4.0ms	ky	@	-inf	(+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))
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	th	@	inf	(* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th))
1.0ms	kx	@	0	(* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th))

simplify585.0ms (4.4%)

Memory

-127.7MiB live, 480.5MiB allocated

Algorithm

1×	egg-herbie

Rules

8 218×	`lower-fma.f64`
8 218×	`lower-fma.f32`
6 636×	`lower-*.f64`
6 636×	`lower-*.f32`
6 010×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	808	13612
1	2674	13254
2	7139	13167
0	8026	12403

Stop Event

1×	iter limit
1×	node limit

Counts

528 → 525

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)))))))))
(/ (* 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 th) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ th (pow (sin kx) 3))) (* -1/6 (/ th (sin kx))))) (/ th (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ th (pow (sin kx) 3))) (+ (* -1/6 (/ th (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ th (sin kx))) (+ (* 1/12 (/ th (pow (sin kx) 3))) (* 1/2 (* th (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ th (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ th (pow (sin kx) 3))) (+ (* -1/6 (/ th (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ th (sin kx))) (+ (* 1/12 (/ th (pow (sin kx) 3))) (+ (* 1/2 (* th (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* th (* (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 (* th (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ th (pow (sin kx) 3))) (* -1/5040 (/ th (sin kx)))))))))))))) (/ th (sin kx))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
th
(+ th (* -1/2 (/ (* (pow kx 2) th) (pow (sin ky) 2))))
(+ th (* (pow kx 2) (+ (* -1/2 (/ th (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* th (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ th (* (pow kx 2) (+ (* -1/2 (/ th (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* th (* (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 (* th (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(* (* th (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)))))
(/ 1 (sin kx))
(+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))
(+ (* (pow ky 2) (- (* 1/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 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/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(/ 1 (sin ky))
(+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))
(+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -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 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(/ 1 (pow (sin kx) 2))
(+ (* -1 (/ (pow ky 2) (pow (sin kx) 4))) (/ 1 (pow (sin kx) 2)))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (/ 1 (pow (sin kx) 6)))) (/ 1 (pow (sin kx) 4)))) (/ 1 (pow (sin kx) 2)))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (/ 1 (pow (sin kx) 6))))) (/ 1 (pow (sin kx) 4)))) (/ 1 (pow (sin kx) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (pow (sin ky) 2))
(+ (* -1 (/ (pow kx 2) (pow (sin ky) 4))) (/ 1 (pow (sin ky) 2)))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (/ 1 (pow (sin ky) 6)))) (/ 1 (pow (sin ky) 4)))) (/ 1 (pow (sin ky) 2)))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (/ 1 (pow (sin ky) 6))))) (/ 1 (pow (sin ky) 4)))) (/ 1 (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ 1 (+ (pow (sin kx) 2) (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)
(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)))))))))

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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 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 (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 (.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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (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))))
(fma.f64 ky (.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 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 #s(literal 1/2 binary64) (.f64 (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/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)))
(* 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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))))) (+.f64 (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 #s(literal 1/2 binary64) (*.f64 (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 #s(literal -1/2 binary64) (/.f64 (*.f64 kx kx) (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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (*.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))
(* (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 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (/.f64 (.f64 ky ky) (sin.f64 kx))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 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 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 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 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal -1/6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (/.f64 (.f64 kx kx) (sin.f64 ky))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal -1/6 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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 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 (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 (.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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 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 (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 (.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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (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))))
(fma.f64 ky (.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 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 #s(literal 1/2 binary64) (.f64 (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/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)))
(* 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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))))) (+.f64 (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 #s(literal 1/2 binary64) (*.f64 (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 #s(literal -1/2 binary64) (/.f64 (*.f64 kx kx) (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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (*.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))
(* (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 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 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 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal -1/6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (/.f64 (.f64 kx kx) (sin.f64 ky))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal -1/6 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 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (/.f64 (.f64 ky ky) (sin.f64 kx))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 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 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 #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 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))))) (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 #s(literal -4 binary64) (/.f64 (.f64 ky ky) (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 (fma.f64 #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 #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 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))))
(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 (.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)) (fma.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)))) (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) (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 #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 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/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 #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/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 (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)))))) (/.f64 (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)))))))))
(* 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 (fma.f64 #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 #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 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 (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 #s(literal -1/5040 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/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))))))) (fma.f64 #s(literal 1/2 binary64) (.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)))))) (/.f64 (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))))))
(/ (* 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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 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 (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 (.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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (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 th) (sin kx))
(*.f64 ky (/.f64 th (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ th (pow (sin kx) 3))) (* -1/6 (/ th (sin kx))))) (/ th (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.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 th (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ th (pow (sin kx) 3))) (+ (* -1/6 (/ th (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ th (sin kx))) (+ (* 1/12 (/ th (pow (sin kx) 3))) (* 1/2 (* th (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ th (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 th (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 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 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 th (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ th (pow (sin kx) 3))) (+ (* -1/6 (/ th (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ th (sin kx))) (+ (* 1/12 (/ th (pow (sin kx) 3))) (+ (* 1/2 (* th (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* th (* (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 (* th (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ th (pow (sin kx) 3))) (* -1/5040 (/ th (sin kx)))))))))))))) (/ th (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.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 th (sin.f64 kx)) (+.f64 (+.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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 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 th (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 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 th (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 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 th (sin.f64 kx))))
(* (* 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 (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 (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 (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 (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 (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 (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 (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
(+ th (* -1/2 (/ (* (pow kx 2) th) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)
(+ th (* (pow kx 2) (+ (* -1/2 (/ th (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* th (* (pow (sin ky) 2) (+ (* 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 th (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 (.f64 #s(literal -1/2 binary64) th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) th)
(+ th (* (pow kx 2) (+ (* -1/2 (/ th (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* th (* (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 (* th (* (pow (sin ky) 2) (+ (* 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 th (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (+.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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 th (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 (.f64 #s(literal -1/2 binary64) th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) th)
(* (* 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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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)))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 ky ky) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* (pow ky 2) (- (* 1/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 ky ky)) (.f64 (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/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 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/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (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/2 binary64) (.f64 ky ky)) (*.f64 (sin.f64 kx) (+.f64 (+.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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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 (sin ky))
(/.f64 #s(literal 1 binary64) (sin.f64 ky))
(+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (sin.f64 ky) (+.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 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -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 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(fma.f64 (.f64 kx kx) (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 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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))) (.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 ky)) (+.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 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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 (pow (sin kx) 2))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))
(+ (* -1 (/ (pow ky 2) (pow (sin kx) 4))) (/ 1 (pow (sin kx) 2)))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (*.f64 ky (/.f64 ky (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (/ 1 (pow (sin kx) 6)))) (/ 1 (pow (sin kx) 4)))) (/ 1 (pow (sin kx) 2)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (/ 1 (pow (sin kx) 6))))) (/ 1 (pow (sin kx) 4)))) (/ 1 (pow (sin kx) 2)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (+.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))))) (neg.f64 (*.f64 ky ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (pow (sin ky) 2))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
(+ (* -1 (/ (pow kx 2) (pow (sin ky) 4))) (/ 1 (pow (sin ky) 2)))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 (*.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (/ 1 (pow (sin ky) 6)))) (/ 1 (pow (sin ky) 4)))) (/ 1 (pow (sin ky) 2)))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (/ 1 (pow (sin ky) 6))))) (/ 1 (pow (sin ky) 4)))) (/ 1 (pow (sin ky) 2)))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (neg.f64 (*.f64 kx kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 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))
(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) (.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 (.f64 kx kx) (.f64 (fma.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)))) (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) (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 #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 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)))))) (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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #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 (fma.f64 #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 #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 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 (.f64 ky ky) (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 #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 (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 (.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 (sin.f64 ky) (.f64 kx kx)) (fma.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)))) (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) (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 #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 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/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/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/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))))))) (.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 (fma.f64 #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 #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 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))))))

rewrite108.0ms (0.8%)

Memory

5.0MiB live, 124.7MiB allocated

Rules

786×	`lower-fma.f32`
784×	`lower-fma.f64`
680×	`lower-*.f32`
664×	`lower-*.f64`
584×	`lower-/.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	49	298
0	85	269
1	276	240
0	1928	240

Stop Event

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

Counts

22 → 284

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))
#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 (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))
(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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (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))
(-.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))

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 (sqrt.f64 (/.f64 #s(literal 1 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))))) (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)) (sqrt.f64 (/.f64 #s(literal 1 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))))))
(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)))))
(/.f64 (*.f64 #s(literal 1 binary64) (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)))))
(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) (sqrt.f64 (/.f64 #s(literal 1 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))))))
(*.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 (sqrt.f64 (/.f64 #s(literal 1 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))))) (sin.f64 ky))
(*.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)))))))
(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 (cos.f64 #s(literal 0 binary64)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky ky)) #s(literal 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)))))
(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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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) 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 (.f64 (sin.f64 ky) th) #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 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) 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 (sin.f64 ky) (.f64 th (sqrt.f64 (/.f64 #s(literal 1 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)))))))
(*.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))))) th)
(*.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 (sqrt.f64 (/.f64 #s(literal 1 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))))) (.f64 (sin.f64 ky) th))
(.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (/.f64 #s(literal 1 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))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 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))))) #s(literal 1/2 binary64)))
(sqrt.f64 (/.f64 #s(literal 1 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)))))
(/.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 (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)))) #s(literal 1 binary64)))
(/.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 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.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 (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)))) #s(literal -1 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))
(pow.f64 (/.f64 #s(literal 1 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)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 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))))))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 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))))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 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)))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 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)))) #s(literal 1/4 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 binary64)))
(neg.f64 (/.f64 #s(literal -1 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)))))
(/.f64 #s(literal 1 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))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.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) (neg.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 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 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)))))
(*.f64 (/.f64 #s(literal 1 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)))) #s(literal 1 binary64))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1 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))))))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.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) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 6 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)) (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 (/.f64 #s(literal 1 binary64) (.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))))) (-.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(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 (cos.f64 #s(literal 0 binary64)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky ky)) #s(literal 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)))))
(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))

eval128.0ms (1%)

Memory: 8.1MiB live, 266.6MiB allocated
Compiler: Compiled 26 652 to 2 221 computations (91.7% saved)

prune169.0ms (1.3%)

Memory

-10.5MiB live, 312.8MiB allocated

Pruning

51 alts after pruning (48 fresh and 3 done)

	Pruned	Kept	Total
New	936	31	967
Fresh	3	17	20
Picked	2	3	5
Done	0	0	0
Total	941	51	992

Accuracy

100.0%

Counts

992 → 51

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.7%	(/.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)))
	75.7%	(/.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)))))))
	10.6%	(/.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)))))
	75.7%	(/.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)))
	75.6%	(/.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))))
	70.6%	(*.f64 (/.f64 (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	80.9%	(.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)))))
	75.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))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	75.7%	(.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))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.6%	(.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)))
	56.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
	10.8%	(*.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))
	75.8%	(.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))
	85.4%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	37.8%	(.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))
	54.8%	(.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))
	31.6%	(.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))
▶	38.2%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	50.9%	(.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))
	75.7%	(.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))) (sin.f64 th))
	75.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)) (sin.f64 th))
	39.5%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(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)))
	43.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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))
	85.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) (sin.f64 ky)) (sin.f64 th))
	29.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))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
	35.5%	(.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))
▶	75.6%	(.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))))))))
	14.4%	(.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))))))
	22.6%	(.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))
	35.9%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	31.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))
	6.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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))))))
	34.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
▶	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
▶	93.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
✓	49.0%	#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)))
	22.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	24.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
✓	27.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	12.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
	21.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
	16.6%	#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)))
▶	16.6%	#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)))
	16.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #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)))))
	31.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))))))))
	29.3%	#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))))))
	39.6%	#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 195 to 1 451 computations (33.9% saved)

simplify381.0ms (2.9%)

Memory

27.7MiB live, 304.6MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	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))))))))
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	(*.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th)
cost-diff	0	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))
cost-diff	0	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
cost-diff	7360	(+.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)))
cost-diff	0	#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
cost-diff	0	(sin.f64 ky)
cost-diff	0	(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
cost-diff	0	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (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 th)
cost-diff	0	(*.f64 (sin.f64 th) (sin.f64 ky))
cost-diff	0	(.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))))))
cost-diff	0	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))

Rules

18 300×	`lower-fma.f32`
18 294×	`lower-fma.f64`
3 498×	`lower-*.f32`
3 478×	`lower-*.f64`
2 242×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	504
0	93	463
1	141	453
2	221	449
3	286	440
4	338	434
5	402	434
6	552	434
7	728	434
8	1028	428
9	1621	428
10	3385	428
11	5252	428
12	6500	428
13	7245	428
14	7758	428
15	7862	428
16	7871	428
0	8270	394

Stop Event

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

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
(.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))))))
(*.f64 (sin.f64 th) (sin.f64 ky))
(sin.f64 th)
th
(sin.f64 ky)
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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(literal 1 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))
#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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(sin.f64 ky)
ky
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th)
(sqrt.f64 (/.f64 #s(literal 1 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)))))
(/.f64 #s(literal 1 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))))
#s(literal 1 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)))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
ky
#s(literal -1/2 binary64)
#s(literal 1/2 binary64)
th
(sin.f64 ky)
(.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 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
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 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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)

Outputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
#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 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 th) (sin.f64 ky))))
(.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))))))
(.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 th) (sin.f64 ky)))
(*.f64 (sin.f64 th) (sin.f64 ky))
(sin.f64 th)
th
(sin.f64 ky)
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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(literal 1 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))
#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 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 th (.f64 th (.f64 th #s(literal -1/6 binary64))) th))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(fma.f64 th (.f64 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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(sin.f64 ky)
ky
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 th (sin.f64 ky))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 th (sin.f64 ky)))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th)
(*.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
(sqrt.f64 (/.f64 #s(literal 1 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 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 #s(literal 1 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))))
(/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
#s(literal 1 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)))
(-.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))
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
ky
#s(literal -1/2 binary64)
#s(literal 1/2 binary64)
th
(sin.f64 ky)
(.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) (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))))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(sin.f64 ky)
ky
(sin.f64 th)
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)))))))
(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 ky ky)) (cos.f64 (+.f64 kx kx))) #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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
(*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)

localize410.0ms (3.1%)

Memory

-11.9MiB live, 466.7MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	2.5084389666472897	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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.834236921190546	(.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))))))))
accuracy	17.21304139417124	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	17.477074235177728	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
accuracy	7.727380474212541	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))
accuracy	15.657001854495872	(sqrt.f64 (/.f64 #s(literal 1 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)))))
accuracy	17.477074235177728	(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
accuracy	57.827456035709474	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
accuracy	0.00390625	(sin.f64 th)
accuracy	0.16796875	(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
accuracy	0.16796875	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
accuracy	42.91801870369422	#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
accuracy	0.04296875	(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
accuracy	0.17578125	(.f64 #s(literal -1/6 binary64) (.f64 th th))
accuracy	29.64895214503454	#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
accuracy	46.14250994669904	#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.236660009768442	(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
accuracy	0.236660009768442	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
accuracy	2.5084389666472897	(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)))))
accuracy	2.834236921190546	(.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))))))

Samples

136.0ms	111×	2	valid
123.0ms	85×	1	valid
29.0ms	60×	0	valid

Compiler

Compiled 449 to 47 computations (89.5% saved)

Precisions

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

ival-add: 49.0ms (22.8% of total)

ival-cos: 48.0ms (22.3% of total)

ival-mult: 31.0ms (14.4% of total)

ival-sin: 24.0ms (11.1% of total)

adjust: 22.0ms (10.2% of total)

ival-sqrt: 12.0ms (5.6% of total)

ival-div: 11.0ms (5.1% of total)

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

const: 6.0ms (2.8% of total)

ival-sub: 2.0ms (0.9% of total)

exact: 1.0ms (0.5% of total)

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

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

series51.0ms (0.4%)

Memory

11.9MiB live, 90.8MiB allocated

Counts

27 → 576

Calls

Call 1

Inputs
#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<representation binary64>) () ())
#s(alt (.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)))))) (patch (.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)))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (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) (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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) #<representation binary64>) () ())
#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())
#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())
#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())
#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<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 (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)))))))) (patch (.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)))))))) #<representation binary64>) () ())
#s(alt (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))))) (patch (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))))) #<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 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<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>) () ())

Outputs
#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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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)) (.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))))))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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))))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<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 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)))))) (patch (.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)))))) #<representation binary64>) () ())) ())
#s(alt (* th (sin ky)) (taylor 0 th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<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 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<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 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (sin th)) (taylor 0 ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<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 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<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 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 th) (sin.f64 ky)) (patch (.f64 (sin.f64 th) (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) (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 (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 ky) (taylor 0 kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky)))) (taylor 0 kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor 0 ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (patch #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (* 2 (pow ky 2)) (taylor 0 ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 2 (* -2/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3)))) (taylor 0 ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3)))) (taylor 0 ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.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))) (patch (+.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))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt 1/2)) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (* 1/12 (/ th (sqrt 1/2)))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/72 (/ th (sqrt 1/2))) (+ (* 1/120 (* th (sqrt 1/2))) (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2)))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/72 (/ th (sqrt 1/2))) (+ (* 1/120 (* th (sqrt 1/2))) (+ (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* (pow ky 2) (+ (* -1/12 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (+ (* -1/5040 (* th (sqrt 1/2))) (+ (* 1/1440 (/ th (sqrt 1/2))) (* 1/2 (/ (* th (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (/ (* th (sqrt 1/2)) ky) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* 1/12 (/ (* (pow ky 2) th) (sqrt 1/2))) (* th (sqrt 1/2))) ky) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* 1/12 (/ th (sqrt 1/2))) (* 1/2 (/ (* (pow ky 2) (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))) ky) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (* (pow ky 2) (* th (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))))) ky) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<representation binary64>) () ())) ())
#s(alt (* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) #<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 (* (* 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (sin ky)) (taylor 0 kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky))) (taylor 0 kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky))) (taylor 0 kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -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 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky))) (taylor 0 kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf kx) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor 0 ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx))) (taylor 0 ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* 1/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx))) (taylor 0 ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 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/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx))) (taylor 0 ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf ky) (#s(alt (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))))) (patch (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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (taylor -inf ky) (#s(alt (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))))) (patch (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))))) #<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 (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 ky 2) (taylor 0 ky) (#s(alt (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 1/2) ky) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* 1/12 (/ (pow ky 2) (sqrt 1/2)))) ky) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* (pow ky 2) (+ (* 1/2 (/ (* (pow ky 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) ky) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* (pow ky 2) (+ (* (pow ky 2) (+ (* 1/2 (/ (* (pow ky 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)))))) ky) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 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))))) (patch (sqrt.f64 (/.f64 #s(literal 1 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))))) #<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>) () ())) ())

Calls

144 calls:

Time	Variable		Point	Expression
4.0ms	ky	@	-inf	(* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky))
1.0ms	th	@	0	(* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky))
1.0ms	ky	@	0	(* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky))
1.0ms	ky	@	inf	(* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky))
1.0ms	th	@	inf	(+ (* th (* -1/6 (* th th))) th)

simplify405.0ms (3.1%)

Memory

29.1MiB live, 564.2MiB allocated

Algorithm

1×	egg-herbie

Rules

7 648×	`lower-fma.f64`
7 648×	`lower-fma.f32`
6 880×	`lower-*.f64`
6 880×	`lower-*.f32`
5 800×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	822	12918
1	2645	12372
2	6648	12234
0	8900	11615

Stop Event

1×	iter limit
1×	node limit

Counts

576 → 572

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)))))
(* (* 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 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))
(* 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 (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
(* 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 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))
(/ (* 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 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)))
(* 2 (pow ky 2))
(* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))
(+ 1 (* -1 (cos (* 2 ky))))
(+ 1 (* -1 (cos (* 2 ky))))
(+ 1 (* -1 (cos (* 2 ky))))
(+ 1 (* -1 (cos (* 2 ky))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(+ 1 (* -1 (cos (neg (* -2 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 (sqrt 1/2))
(+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (* 1/12 (/ th (sqrt 1/2))))))
(+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/72 (/ th (sqrt 1/2))) (+ (* 1/120 (* th (sqrt 1/2))) (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))))))))))
(+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/72 (/ th (sqrt 1/2))) (+ (* 1/120 (* th (sqrt 1/2))) (+ (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* (pow ky 2) (+ (* -1/12 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (+ (* -1/5040 (* th (sqrt 1/2))) (+ (* 1/1440 (/ th (sqrt 1/2))) (* 1/2 (/ (* th (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2)))))))))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(/ (* th (sqrt 1/2)) ky)
(/ (+ (* 1/12 (/ (* (pow ky 2) th) (sqrt 1/2))) (* th (sqrt 1/2))) ky)
(/ (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* 1/12 (/ th (sqrt 1/2))) (* 1/2 (/ (* (pow ky 2) (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))) ky)
(/ (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (* (pow ky 2) (* th (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))))) ky)
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(+ 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)))))
(* (* 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 (sin ky))
(+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))
(+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -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 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(/ 1 (sin kx))
(+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))
(+ (* (pow ky 2) (- (* 1/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 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/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(sqrt (/ 1 (+ (pow (sin kx) 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)
(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 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)))))
(/ (sqrt 1/2) ky)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow ky 2) (sqrt 1/2)))) ky)
(/ (+ (sqrt 1/2) (* (pow ky 2) (+ (* 1/2 (/ (* (pow ky 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) ky)
(/ (+ (sqrt 1/2) (* (pow ky 2) (+ (* (pow ky 2) (+ (* 1/2 (/ (* (pow ky 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)))))) ky)
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt (/ 1 (+ 1 (* -1 (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 (+ 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)) (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 (/.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 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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 #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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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))))) (.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 (.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 (.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 (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 (.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 (.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 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 (/.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 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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 #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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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))
(*.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 (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
(* 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))))
(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 (/.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 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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 #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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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))))) (.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 (.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 (.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))))
(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 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))
(/ (* 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 (/.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 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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 #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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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))))) (.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 (.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 (.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))))
(fma.f64 ky (.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 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) (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/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)))
(* 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/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 (.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/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)))
(* (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 #s(literal -1/2 binary64) (/.f64 (*.f64 kx kx) (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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (*.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))
(* (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 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 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 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 (.f64 kx kx) (fma.f64 (.f64 kx kx) (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 ky) #s(literal 2 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (/.f64 (.f64 kx kx) (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 ky ky) (/.f64 (+.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))
(* 2 (pow ky 2))
(.f64 #s(literal 2 binary64) (.f64 ky ky))
(* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(+ 1 (* -1 (cos (* 2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (* 2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (* 2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (* 2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(+ 1 (* -1 (cos (neg (* -2 ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(/ (* 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 (/.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 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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 #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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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))))) (.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 (.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 (.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 (sqrt 1/2))
(*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (* 1/12 (/ th (sqrt 1/2))))))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/72 (/ th (sqrt 1/2))) (+ (* 1/120 (* th (sqrt 1/2))) (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 th (/.f64 #s(literal 7/360 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal -1/72 binary64) th) (sqrt.f64 #s(literal 1/2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* -1/6 (* th (sqrt 1/2))) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/72 (/ th (sqrt 1/2))) (+ (* 1/120 (* th (sqrt 1/2))) (+ (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* (pow ky 2) (+ (* -1/12 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (+ (* -1/5040 (* th (sqrt 1/2))) (+ (* 1/1440 (/ th (sqrt 1/2))) (* 1/2 (/ (* th (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2)))))))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 th (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/72 binary64) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/12 binary64) (.f64 th (/.f64 #s(literal 7/360 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (fma.f64 (/.f64 th (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/1440 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 th (/.f64 #s(literal 31/15120 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/5040 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))) (fma.f64 #s(literal 1/120 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 th #s(literal 7/360 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64))))) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))
(/ (* th (sqrt 1/2)) ky)
(/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)
(/ (+ (* 1/12 (/ (* (pow ky 2) th) (sqrt 1/2))) (* th (sqrt 1/2))) ky)
(/.f64 (fma.f64 th (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (.f64 #s(literal 1/12 binary64) (.f64 th (*.f64 ky ky))) (sqrt.f64 #s(literal 1/2 binary64)))) ky)
(/ (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* 1/12 (/ th (sqrt 1/2))) (* 1/2 (/ (* (pow ky 2) (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))) ky)
(/.f64 (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/12 binary64) (/.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 (.f64 th (.f64 ky ky)) #s(literal 7/360 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64)))) ky)
(/ (+ (* th (sqrt 1/2)) (* (pow ky 2) (+ (* 1/12 (/ th (sqrt 1/2))) (* (pow ky 2) (+ (* 1/2 (/ (* th (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (* (pow ky 2) (* th (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))))) ky)
(/.f64 (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 #s(literal 1/2 binary64) (fma.f64 th (/.f64 #s(literal 7/360 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 th (.f64 ky ky)) #s(literal 31/15120 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64)))) ky)
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky))))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))
(* th (sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky)))))))
(.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -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 #s(literal 2/45 binary64) (.f64 kx kx) #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #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) (+.f64 (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 #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))))
(/ 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))))
(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 #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 (/.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 (-.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 (/.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 (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 (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 (/.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 (-.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))))) (.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 #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))))) (.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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #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 (.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 (.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 (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 #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))))))
(/ 1 (sin ky))
(/.f64 #s(literal 1 binary64) (sin.f64 ky))
(+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (+.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 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -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 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 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) (sin.f64 ky)) (+.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/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))) (.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 ky)) (+.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 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (/.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/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 ky ky) (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/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 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/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 ky ky) (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/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))))))) (.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/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
(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)))))
(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))
(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 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))
(/ (sqrt 1/2) ky)
(/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow ky 2) (sqrt 1/2)))) ky)
(/.f64 (fma.f64 (*.f64 ky ky) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) ky)
(/ (+ (sqrt 1/2) (* (pow ky 2) (+ (* 1/2 (/ (* (pow ky 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) ky)
(/.f64 (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (*.f64 ky ky) #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))) ky)
(/ (+ (sqrt 1/2) (* (pow ky 2) (+ (* (pow ky 2) (+ (* 1/2 (/ (* (pow ky 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)))))) ky)
(/.f64 (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 ky ky) #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))) ky)
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))
(sqrt (/ 1 (+ 1 (* -1 (cos (neg (* -2 ky)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #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 (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 #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)))))) (* (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 (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 #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 (.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 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -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 (.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 (+.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 (/.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)))))))) (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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #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)))))

rewrite137.0ms (1%)

Memory

-22.9MiB live, 248.1MiB allocated

Rules

986×	`lower-*.f32`
966×	`lower-*.f64`
934×	`lower-fma.f32`
928×	`lower-fma.f64`
828×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	397
0	93	358
1	321	313
0	2259	266

Stop Event

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

Counts

27 → 395

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
(.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))))))
(*.f64 (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) (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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(sin.f64 ky)
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
(+.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(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 (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))))))))
(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)))))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow.f64 (sin.f64 ky) #s(literal 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) (+.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) (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)))))))

Outputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 th) (sin.f64 ky))))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.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) (*.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 (+.f64 (-.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)))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) (.f64 (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th)))) (.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 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 (+.f64 (-.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 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky))) (neg.f64 (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sin.f64 th) #s(literal 1 binary64)) (/.f64 (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sqrt.f64 (/.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/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 2 binary64))
(/.f64 (.f64 (sqrt.f64 (/.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th)))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(literal 1 binary64)) (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 th)) (/.f64 (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (sqrt.f64 (/.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(literal 2 binary64))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) (sqrt.f64 (/.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(literal 2 binary64))
(.f64 (/.f64 (sin.f64 ky) (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sin.f64 ky) (.f64 (sqrt.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(.f64 (sin.f64 ky) (.f64 (sin.f64 th) (sqrt.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sqrt.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (.f64 (sin.f64 th) (sin.f64 ky)))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sqrt.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)) (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 (/.f64 (cos.f64 (-.f64 th ky)) #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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 th ky)) (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 (neg.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th)))) #s(literal -2 binary64))
(*.f64 (sin.f64 th) (sin.f64 ky))
(*.f64 (sin.f64 ky) (sin.f64 th))
(*.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1/2 binary64))
(*.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) #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) (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 (.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 th (.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 (.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 th (.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 (.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 th (.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 (.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 th (.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 (.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 th (.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) (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (*.f64 (sin.f64 th) (sin.f64 ky))))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (*.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) (*.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (*.f64 (sin.f64 th) (sin.f64 ky))) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (*.f64 (sin.f64 th) #s(literal 1 binary64)) (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky)))
(/.f64 (*.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 th)) (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky)))
(/.f64 (*.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))))
(/.f64 (*.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(pow.f64 (/.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)) (sin.f64 ky)) #s(literal -1 binary64))
(*.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (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 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
(+.f64 ky ky)
(+.f64 kx kx)
(+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(+.f64 (fma.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))) #s(literal 1/2 binary64))
(+.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(+.f64 (neg.f64 (fma.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)))) #s(literal -1/2 binary64))
(+.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) #s(literal 1 binary64))
(exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))
(-.f64 #s(literal 0 binary64) (+.f64 ky ky))
(-.f64 (/.f64 (.f64 ky ky) #s(literal 0 binary64)) (/.f64 (.f64 ky ky) #s(literal 0 binary64)))
(-.f64 (/.f64 (.f64 kx kx) #s(literal 0 binary64)) (/.f64 (.f64 kx kx) #s(literal 0 binary64)))
(-.f64 (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 0 binary64)) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 0 binary64)))
(fma.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64) #s(literal 1 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 #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)) #s(literal 1/4 binary64))) (fma.f64 #s(literal -1/2 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 #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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64))))) (fma.f64 #s(literal -1/2 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))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(fma.f64 (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))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(neg.f64 (+.f64 ky ky))
(/.f64 #s(literal 1 binary64) (+.f64 ky ky))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 ky ky #s(literal 0 binary64)) (*.f64 (fma.f64 ky ky #s(literal 0 binary64)) (+.f64 ky ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 kx kx #s(literal 0 binary64)) (*.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 ky ky) #s(literal 1 binary64))
(/.f64 (+.f64 ky ky) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (+.f64 ky ky))
(/.f64 #s(literal 0 binary64) #s(literal 0 binary64))
(/.f64 (*.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (fma.f64 kx kx #s(literal 0 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (neg.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (.f64 #s(literal 1 binary64) (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 ky ky #s(literal 0 binary64)) (+.f64 ky ky)) (fma.f64 ky ky #s(literal 0 binary64)))
(/.f64 (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)) (fma.f64 (.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)) #s(literal 1/4 binary64)) (.f64 (fma.f64 (.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)) #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 (fma.f64 (.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)) #s(literal 1/4 binary64)) (fma.f64 (.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)) #s(literal 1/4 binary64))))
(/.f64 (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)) (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (.f64 (fma.f64 (.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)) #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 (fma.f64 (.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)) #s(literal 1/4 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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64))))))
(/.f64 (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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (fma.f64 (.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)) #s(literal 1/4 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 (fma.f64 (.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)) #s(literal 1/4 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (.f64 (fma.f64 (.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)) #s(literal 1/4 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))))) #s(literal -1/4 binary64)))) (.f64 (fma.f64 (.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)) #s(literal 1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(/.f64 (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)) (fma.f64 (.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)) #s(literal 1/4 binary64)) (.f64 (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 (cos.f64 (+.f64 ky ky)) #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 (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (fma.f64 (.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)) #s(literal 1/4 binary64))))
(/.f64 (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)) (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (.f64 (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 (cos.f64 (+.f64 ky ky)) #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 (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64))))))
(/.f64 (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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 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 (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (.f64 (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 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))))) #s(literal -1/4 binary64)))) (.f64 (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(/.f64 (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))))))) (fma.f64 (.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)) #s(literal 1/4 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)))) (.f64 (+.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) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (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))))))) (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64))))))
(/.f64 (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/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 #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 #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 (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))))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (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))))) #s(literal -1/4 binary64)))) (.f64 (+.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 (fma.f64 (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))))) #s(literal -1/4 binary64)) (fma.f64 (.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)) #s(literal 1/4 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (fma.f64 (.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)) #s(literal 1/4 binary64))))
(/.f64 (fma.f64 (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))))) #s(literal -1/4 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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64))))))
(/.f64 (fma.f64 (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))))) #s(literal -1/4 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 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 (fma.f64 (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))))) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 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))))) #s(literal -1/4 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 ky ky #s(literal 0 binary64)) (+.f64 ky ky))) (neg.f64 (fma.f64 ky ky #s(literal 0 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky))) (neg.f64 (fma.f64 kx kx #s(literal 0 binary64))))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) (pow.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 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 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (+.f64 (pow.f64 (fma.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))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (fma.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))) (fma.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/4 binary64) (*.f64 (fma.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))) #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)))))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (-.f64 (*.f64 (fma.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))) (fma.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)))) #s(literal 1/4 binary64)) (-.f64 (fma.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))) #s(literal 1/2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (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 #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)) #s(literal 1/4 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64)))))
(/.f64 (.f64 #s(literal 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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (.f64 #s(literal 2 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))))) #s(literal -1/4 binary64))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(pow.f64 (+.f64 ky ky) #s(literal -1 binary64))
(*.f64 ky #s(literal 2 binary64))
(*.f64 kx #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) ky)
(*.f64 #s(literal 2 binary64) kx)
(*.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (+.f64 ky ky))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal -1 binary64)))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (sqrt.f64 (+.f64 ky ky)) (sqrt.f64 (+.f64 ky ky)))
(*.f64 (+.f64 ky ky) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (+.f64 ky ky))
(*.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) #s(literal 0 binary64)))
(.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))
(.f64 (.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(.f64 (.f64 (fma.f64 ky ky #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 ky ky #s(literal 0 binary64))))
(*.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) #s(literal 0 binary64)) #s(literal 0 binary64))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 (+.f64 ky ky)) (.f64 th (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky)))
(.f64 th (.f64 (sqrt.f64 (+.f64 ky ky)) (sin.f64 ky)))
(.f64 (sin.f64 ky) (.f64 th (sqrt.f64 (+.f64 ky ky))))
(.f64 (sqrt.f64 (+.f64 ky ky)) (.f64 th (sin.f64 ky)))
(.f64 (.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky)))
(.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th)
(/.f64 th (sqrt.f64 (+.f64 ky ky)))
(/.f64 (*.f64 th #s(literal 1 binary64)) (sqrt.f64 (+.f64 ky ky)))
(/.f64 (*.f64 #s(literal 1 binary64) th) (sqrt.f64 (+.f64 ky ky)))
(*.f64 th (sqrt.f64 (+.f64 ky ky)))
(*.f64 (sqrt.f64 (+.f64 ky ky)) th)
(+.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 binary64) (cos.f64 (+.f64 ky ky))))))
(+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (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) (fma.f64 #s(literal -1/2 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 #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)) #s(literal 1/4 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(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 #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 (cos.f64 (+.f64 ky ky)) #s(literal -1/4 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (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))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (+.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) (cos.f64 (+.f64 ky ky))))
(/.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 ky ky))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64))) (fma.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (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 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (-.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 binary64) (neg.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 binary64) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 ky ky))) (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 1 binary64) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #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 ky ky)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (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 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))))))
(-.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)))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal -1/2 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 (*.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)) #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 (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 (cos.f64 (+.f64 ky ky)) #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 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 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))))) #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 (*.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)) #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 (cos.f64 (+.f64 ky ky)) #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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (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))))) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/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 #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)) #s(literal 1/4 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 #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 (cos.f64 (+.f64 ky ky)) #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 (neg.f64 (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))))) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 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 #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)) #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)) (/.f64 #s(literal 1 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 (cos.f64 (+.f64 ky ky)) #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 (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))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th)))) (.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 th ky)) (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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(literal 1 binary64)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) #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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th)))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 th ky)) (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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 (sin.f64 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 (sin.f64 th) (sin.f64 ky)))
(*.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(exp.f64 (.f64 (log.f64 (/.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (/.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/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/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) (/.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(pow.f64 (sqrt.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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1 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) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal -1/2 binary64))
(pow.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1/2 binary64))
(.f64 #s(literal 1 binary64) (sqrt.f64 (/.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (/.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/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (pow.f64 (/.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1/4 binary64)) (pow.f64 (/.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/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 kx))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(-.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 (sin.f64 kx) #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 (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 (sin.f64 ky) (sin.f64 ky))
(*.f64 (sin.f64 kx) (sin.f64 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))))
(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 #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 (sin.f64 kx) #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 (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 (sin.f64 ky) (sin.f64 ky))
(*.f64 (sin.f64 kx) (sin.f64 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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (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 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))))))
(-.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)))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(fma.f64 #s(literal -1/2 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 (*.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)) #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 (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 (cos.f64 (+.f64 ky ky)) #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 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 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))))) #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 (*.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)) #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 (cos.f64 (+.f64 ky ky)) #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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (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))))) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/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 #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)) #s(literal 1/4 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 #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 (cos.f64 (+.f64 ky ky)) #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 (neg.f64 (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))))) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 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 #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)) #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)) (/.f64 #s(literal 1 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 (cos.f64 (+.f64 ky ky)) #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 (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))))) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 ky ky))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (+.f64 ky ky))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (+.f64 ky ky)))
(/.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 #s(literal 0 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 #s(literal 0 binary64)) (sqrt.f64 #s(literal 0 binary64)))
(pow.f64 (sqrt.f64 (+.f64 ky ky)) #s(literal -1 binary64))
(pow.f64 (+.f64 ky ky) #s(literal -1/2 binary64))
(pow.f64 (+.f64 ky ky) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky)))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 ky ky)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (+.f64 ky ky) #s(literal 1/4 binary64)) (pow.f64 (+.f64 ky ky) #s(literal 1/4 binary64)))
(+.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 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 binary64) (/.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 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 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)))

eval155.0ms (1.2%)

Memory: -8.3MiB live, 359.0MiB allocated
Compiler: Compiled 30 052 to 2 640 computations (91.2% saved)

prune235.0ms (1.8%)

Memory

34.6MiB live, 473.3MiB allocated

Pruning

78 alts after pruning (74 fresh and 4 done)

	Pruned	Kept	Total
New	1 046	39	1 085
Fresh	8	35	43
Picked	4	1	5
Done	0	3	3
Total	1 058	78	1 136

Accuracy

100.0%

Counts

1 136 → 78

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.7%	(/.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)))
	10.6%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
	36.4%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
	75.7%	(/.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)))))))
	75.7%	(/.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)))
	75.6%	(/.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))))
	80.9%	(.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)))))
	75.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))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	75.7%	(.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))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.6%	(.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)))
	56.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
	10.8%	(*.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))
	75.8%	(.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))
▶	85.4%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	37.8%	(.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))
	54.8%	(.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))
	31.6%	(.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))
	21.9%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	50.9%	(.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))
	75.7%	(.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))) (sin.f64 th))
	38.2%	(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
	75.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)) (sin.f64 th))
▶	39.5%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(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)))
	43.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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))
	29.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))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
	35.5%	(.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))
	29.3%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
	35.4%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
	39.7%	(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
	31.9%	(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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))))))))
	14.4%	(.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))))))
	38.2%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
	22.6%	(.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))
	35.9%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
▶	31.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))
	34.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	15.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
	18.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
	15.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
	18.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
	9.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
▶	15.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
	4.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
	5.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
	15.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
	50.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))))
	35.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
	15.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
	6.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
	15.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
✓	49.0%	#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)))
	22.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	6.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
✓	27.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	4.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
	6.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
	7.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))
	21.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
	16.6%	#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)))
	16.5%	#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 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
	16.6%	#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)))
	16.6%	#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)))
✓	16.6%	#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)))
	16.9%	#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 th)))))
	16.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
	16.9%	#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))))))
	8.5%	#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)))))))
▶	13.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))))))
	31.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))))))))
	39.6%	#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 3 192 to 2 028 computations (36.5% saved)

simplify374.0ms (2.8%)

Memory

-15.5MiB live, 154.9MiB 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 #s(literal -1/6 binary64) (*.f64 th th)) 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 #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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th)
cost-diff	0	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))
cost-diff	0	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
cost-diff	192	(/.f64 #s(literal 1 binary64) (+.f64 kx kx))
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 ky)
cost-diff	0	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
cost-diff	0	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
cost-diff	1216	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))

Rules

3 088×	`lower-fma.f32`
3 084×	`lower-fma.f64`
1 736×	`lower-*.f32`
1 708×	`lower-*.f64`
904×	`unsub-neg`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	81	587
0	128	567
1	181	551
2	252	544
3	328	530
4	443	518
5	666	518
6	1235	518
7	1624	518
8	2018	518
9	2194	518
10	2530	518
11	2767	518
12	2814	518
13	2829	518
14	2938	518
15	3328	518
16	3795	518
17	3985	518
18	4447	518
19	4757	518
20	5004	518
21	5152	518
22	5712	518
23	6121	518
24	6145	518
25	6149	518
26	6165	518
27	6174	518
28	6178	518
29	6178	518
30	6178	518
0	6178	495

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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
(sin.f64 ky)
ky
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #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 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.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 ky ky)))))
#s(literal 1 binary64)
(/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
(sin.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 #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)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th)
(sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx)))
(/.f64 #s(literal 1 binary64) (+.f64 kx kx))
#s(literal 1 binary64)
(+.f64 kx kx)
kx
th
(sin.f64 ky)
ky
(.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) (+.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(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 #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)

Outputs
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #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 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(sin.f64 ky)
ky
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (pow.f64 (sin.f64 kx) #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 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.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 ky ky)))))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
#s(literal 1 binary64)
(/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
(sin.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 #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 #s(literal -1/6 binary64) (*.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 (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 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
#s(approx (+ (* th (* -1/6 (* th 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 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))
#s(literal -1/6 binary64)
(.f64 th (.f64 th th))
th
(*.f64 th th)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))
(.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) (.f64 (sin.f64 ky) th))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th)
(*.f64 th (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx)))
(sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx))
(/.f64 #s(literal 1 binary64) (+.f64 kx kx))
(/.f64 #s(literal 1/2 binary64) kx)
#s(literal 1 binary64)
(+.f64 kx kx)
kx
th
(sin.f64 ky)
ky
(.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) (+.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 (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 #s(literal -1/6 binary64) (.f64 th th)) 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 ky ky)) (cos.f64 (+.f64 kx kx))) #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 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
(*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))
#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 #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)

localize508.0ms (3.8%)

Memory

16.0MiB live, 566.7MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	2.5084389666472897	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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	17.21304139417124	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	17.477074235177728	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
accuracy	29.64895214503454	#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
accuracy	0.4140625	(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
accuracy	12.246212662634221	(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
accuracy	17.21304139417124	(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
accuracy	35.942754601520775	#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.14453125	(sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx)))
accuracy	0.2109375	(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th)
accuracy	1.61079302686154	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))
accuracy	53.87236942307589	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
accuracy	0.13671875	(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
accuracy	29.64895214503454	#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))
accuracy	32.56203414482382	#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
accuracy	46.14250994669904	#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.2421907260364374	(cos.f64 (+.f64 ky ky))
accuracy	0.7385219580777226	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
accuracy	2.4613826817128834	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))
accuracy	17.50737995219644	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))

Samples

239.0ms	130×	2	valid
51.0ms	58×	1	valid
34.0ms	59×	0	valid
16.0ms	9×	3	valid

Compiler

Compiled 493 to 58 computations (88.2% saved)

Precisions

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

ival-cos: 101.0ms (38% of total)

ival-mult: 35.0ms (13.2% of total)

adjust: 30.0ms (11.3% of total)

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

ival-div: 20.0ms (7.5% of total)

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

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

ival-sub: 9.0ms (3.4% of total)

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

const: 7.0ms (2.6% of total)

exact: 1.0ms (0.4% of total)

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

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

series161.0ms (1.2%)

Memory

-25.7MiB live, 108.7MiB allocated

Counts

29 → 588

Calls

Call 1

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

Outputs
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #<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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* (/ (* (pow kx 2) (sin ky)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky))))))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky))))))))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) #<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) #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 (/ 1/2 kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1/2 kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (+.f64 kx kx)) (patch (/.f64 #s(literal 1 binary64) (+.f64 kx 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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<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)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* ky (* th (sqrt 1/2)))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1/6 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))) (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/6 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))) (* 1/120 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/6 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))) (* (pow ky 2) (+ (* -1/5040 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))) (* 1/120 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2)))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2)))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2)))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2)))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2)))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor 0 th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (taylor -inf th) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) 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 (+ 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) 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 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* 2 (pow ky 2)) (taylor 0 ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 2 (* -2/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3)))) (taylor 0 ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3)))) (taylor 0 ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 ky))) (taylor inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 ky))) (taylor inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 ky))) (taylor inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 ky))) (taylor inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 ky)))) (taylor -inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 ky)))) (taylor -inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 ky)))) (taylor -inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 ky)))) (taylor -inf ky) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (/ (pow kx 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.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)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -2 (pow ky 2))) (taylor 0 ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2))) (taylor 0 ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2))) (taylor 0 ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (* 2 ky)) (taylor inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (* 2 ky)) (taylor inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (* 2 ky)) (taylor inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (* 2 ky)) (taylor inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (* -2 ky))) (taylor -inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (* -2 ky))) (taylor -inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (* -2 ky))) (taylor -inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (* -2 ky))) (taylor -inf ky) (#s(alt (cos.f64 (+.f64 ky ky)) (patch (cos.f64 (+.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (sqrt 1/2)) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx 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 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 (* 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>) () ())) ())

Calls

147 calls:

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

simplify432.0ms (3.3%)

Memory

12.8MiB live, 318.9MiB allocated

Algorithm

1×	egg-herbie

Rules

7 568×	`lower-fma.f64`
7 568×	`lower-fma.f32`
6 824×	`lower-*.f64`
6 824×	`lower-*.f32`
5 702×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	930	14521
1	3006	13929
2	7371	13922
0	8054	13190

Stop Event

1×	iter limit
1×	node limit

Counts

588 → 584

Calls

Call 1

Inputs
(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 (cos (* 2 ky))))
(* 1/2 (- 1 (cos (* 2 ky))))
(* 1/2 (- 1 (cos (* 2 ky))))
(* 1/2 (- 1 (cos (* 2 ky))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(* 1/2 (- 1 (cos (neg (* -2 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 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))
(+ (* -2 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))
(+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))
(+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 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 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))
(+ (* -2 (* (/ (* (pow kx 2) (sin ky)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))
(+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))
(+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 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 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))
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 kx)
(/ 1/2 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)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* ky (* th (sqrt 1/2))))
(* ky (+ (* -1/6 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))) (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))))
(* ky (+ (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/6 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))) (* 1/120 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2)))))))))
(* ky (+ (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/6 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))) (* (pow ky 2) (+ (* -1/5040 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))) (* 1/120 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))))))))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/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)))))
(+ 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 ky 2))
(* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))
(- 1 (cos (* 2 ky)))
(- 1 (cos (* 2 ky)))
(- 1 (cos (* 2 ky)))
(- 1 (cos (* 2 ky)))
(- 1 (cos (neg (* -2 ky))))
(- 1 (cos (neg (* -2 ky))))
(- 1 (cos (neg (* -2 ky))))
(- 1 (cos (neg (* -2 ky))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky)))))
(+ (* 1/2 (* (/ (pow kx 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 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 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
1
(+ 1 (* -2 (pow ky 2)))
(+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2)))
(+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2)))
(cos (* 2 ky))
(cos (* 2 ky))
(cos (* 2 ky))
(cos (* 2 ky))
(cos (neg (* -2 ky)))
(cos (neg (* -2 ky)))
(cos (neg (* -2 ky)))
(cos (neg (* -2 ky)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/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 (* -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))
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)
(* 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))))))))

Outputs
(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 (cos (* 2 ky))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (* 2 ky))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (* 2 ky))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (* 2 ky))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(* 1/2 (- 1 (cos (neg (* -2 ky)))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(/ (* 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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx))) (/.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))))) (fma.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) #s(literal 1/12 binary64) (/.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 th)) (sin.f64 kx)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx)))) (/.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)) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (+.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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))) (fma.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) #s(literal -1/240 binary64) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) #s(literal -1/5040 binary64) (.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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))))))))) (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 #s(literal 1/12 binary64) (sin.f64 th)) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))
(.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64)))))))
(+ (* -2 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))
(fma.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64)))))) (.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 kx kx) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))))
(+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (sqrt.f64 #s(literal 2 binary64))))))) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #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 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))))))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #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 (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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 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))))
(fma.f64 ky (.f64 (+.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)))) (neg.f64 (.f64 ky ky))) (/.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) (-.f64 (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/12 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/120 binary64) (sin.f64 kx)))) (neg.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 (.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 #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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))))) (-.f64 (.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 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (*.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64))))
(+ (* -2 (* (/ (* (pow kx 2) (sin ky)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))
(fma.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 kx kx)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (*.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64)))))
(+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 ky) (.f64 kx kx)) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 ky)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (*.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64)))))
(+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 ky) (.f64 kx kx)) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 ky)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (*.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64)))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))))
(.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 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))))
(.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)
(/ (* 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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx))) (/.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))))) (fma.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) #s(literal 1/12 binary64) (/.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 th)) (sin.f64 kx)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx)))) (/.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)) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (+.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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))) (fma.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) #s(literal -1/240 binary64) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) #s(literal -1/5040 binary64) (.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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))))))))) (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 #s(literal 1/12 binary64) (sin.f64 th)) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx)))) (/.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 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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 (.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 (+ (* -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/6 binary64) (sin.f64 ky) (.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (*.f64 th th))))))))
(* 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))))
(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 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 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)))
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) kx)
(/ 1/2 kx)
(/.f64 #s(literal 1/2 binary64) 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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx))) (/.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))))) (fma.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) #s(literal 1/12 binary64) (/.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 th)) (sin.f64 kx)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx)))) (/.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)) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (+.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 #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)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))) (fma.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) #s(literal -1/240 binary64) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) #s(literal -1/5040 binary64) (.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (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))))))))) (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 #s(literal 1/12 binary64) (sin.f64 th)) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 (*.f64 #s(literal -1/6 binary64) (sin.f64 th)) (sin.f64 kx)))) (/.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 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.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 #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)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.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)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 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 (.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 (+ (* -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/6 binary64) (sin.f64 ky) (.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (*.f64 th th))))))))
(* 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))))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 th (sin.f64 ky)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 th (sin.f64 ky)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 th (sin.f64 ky)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (* (sqrt -1) (sqrt -1/2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 th (sin.f64 ky)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* ky (* th (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))
(* ky (+ (* -1/6 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))) (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))))
(.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
(* ky (+ (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/6 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))) (* 1/120 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2)))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/120 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) kx))) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
(* ky (+ (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))) (* (pow ky 2) (+ (* -1/6 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))) (* (pow ky 2) (+ (* -1/5040 (* (sqrt (/ 1 kx)) (* (pow ky 2) (* th (sqrt 1/2))))) (* 1/120 (* (sqrt (/ 1 kx)) (* th (sqrt 1/2))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 #s(literal 1/120 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sin ky) (sqrt 1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (* (sqrt -1) (sqrt -1/2))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64)))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt (/ 1 kx)) (* th (sqrt 1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #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 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (sin.f64 ky) (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) 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)))))))))))
(.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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) 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))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/3 binary64) (.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 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/120 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 #s(literal -2 binary64) kx)))))))) (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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) 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))))))))))))))))))))
(.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 #s(literal -2 binary64) kx)))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))))) (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))))))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx)))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))))))))
(* (* (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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (.f64 kx kx) (.f64 (sin.f64 ky) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 ky) (.f64 kx kx)) (+.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))))) (*.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 -2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) 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))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (sqrt.f64 #s(literal 2 binary64)))) (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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))))) (fma.f64 #s(literal -2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) 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))))))))))))))))))))
(.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 #s(literal -2 binary64) kx)))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))))) (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) 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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx)))))))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (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 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))))))) (fma.f64 #s(literal -2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx))))))))
(* (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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (.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 #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 (.f64 ky (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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal -2 binary64) kx))))) (*.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 #s(literal 1/12 binary64) (/.f64 (*.f64 kx kx) (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 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/3 binary64) (*.f64 kx kx) #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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) (.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 #s(literal -2 binary64) kx))) (.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 #s(literal -2 binary64) kx))) (.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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (.f64 kx kx) (pow.f64 (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (fma.f64 (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (neg.f64 (.f64 kx kx)) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal -4 binary64) (/.f64 (.f64 ky ky) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) 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))))))
(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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) 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))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))))
(/ 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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (sin.f64 ky) (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) 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)))))))))))
(.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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) 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))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/3 binary64) (.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 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/120 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 #s(literal -2 binary64) kx)))))))) (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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) 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))))))))))))))))))))
(.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 #s(literal -2 binary64) kx)))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))))) (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))))))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx)))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx)))))) (.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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))))))))
(* (* (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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(* 2 (pow ky 2))
(.f64 #s(literal 2 binary64) (.f64 ky ky))
(* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(- 1 (cos (* 2 ky)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (* 2 ky)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (* 2 ky)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (* 2 ky)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 ky))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky)))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* 1/2 (* (/ (pow kx 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #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 ky #s(literal -2 binary64)))))) (/.f64 (.f64 kx kx) (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 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) (-.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 ky #s(literal -2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))) #s(literal -1/6 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(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 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (/.f64 (.f64 ky ky) (sin.f64 kx))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)) (sin.f64 kx))) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 ky))))) (pow (sin kx) 2)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -2 (pow ky 2)))
(fma.f64 (*.f64 ky ky) #s(literal -2 binary64) #s(literal 1 binary64))
(+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/3 binary64) #s(literal -2 binary64)) #s(literal 1 binary64))
(+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2)))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -4/45 binary64) #s(literal 2/3 binary64)) #s(literal -2 binary64)) #s(literal 1 binary64))
(cos (* 2 ky))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (* 2 ky))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (* 2 ky))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (* 2 ky))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (neg (* -2 ky)))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (neg (* -2 ky)))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (neg (* -2 ky)))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(cos (neg (* -2 ky)))
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (sqrt 1/2))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64))))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64))))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -1/2 binary64))))
(* (sqrt (/ 1 kx)) (* (sqrt -1) (sqrt -1/2)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #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 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(* 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)))
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))))
(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)
(* 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 #s(literal -2 binary64) kx)))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -2 binary64) kx)))
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (sqrt.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))))))
(+ (* -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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) 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)))))))))
(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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) 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)))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))))) (fma.f64 #s(literal 2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx)))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) 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 #s(literal -2 binary64) kx))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx))) #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 #s(literal -2 binary64) kx)))))))
(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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 #s(literal -2 binary64) kx))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))

rewrite130.0ms (1%)

Memory

-5.3MiB live, 154.9MiB allocated

Rules

978×	`lower-fma.f32`
974×	`lower-fma.f64`
930×	`lower-*.f32`
902×	`lower-*.f64`
730×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	81	437
0	128	421
1	366	392
0	2469	367

Stop Event

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

Counts

29 → 349

Calls

Call 1

Inputs
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
(sin.f64 ky)
#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(literal 1 binary64) (+.f64 kx kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) 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))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 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 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))
(cos.f64 (+.f64 ky ky))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(*.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))
(-.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)))))))

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

eval247.0ms (1.9%)

Memory: 21.9MiB live, 259.6MiB allocated
Compiler: Compiled 29 552 to 2 748 computations (90.7% saved)

prune286.0ms (2.2%)

Memory

-25.3MiB live, 327.9MiB allocated

Pruning

99 alts after pruning (93 fresh and 6 done)

	Pruned	Kept	Total
New	965	27	992
Fresh	3	66	69
Picked	2	3	5
Done	1	3	4
Total	971	99	1 070

Accuracy

100.0%

Counts

1 070 → 99

Alt Table

Click to see full alt table

Status	Accuracy	Program
	75.7%	(/.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)))
	10.6%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
	36.4%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
	75.7%	(/.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)))))))
	75.7%	(/.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)))
	75.6%	(/.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))))
	80.9%	(.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)))))
	75.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))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	75.7%	(.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))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.6%	(.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)))
	56.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
	10.8%	(*.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))
	75.8%	(.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))
✓	85.4%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	37.8%	(.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))
	54.8%	(.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))
	31.6%	(.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))
	21.9%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	29.5%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
	50.9%	(.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))
	75.7%	(.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))) (sin.f64 th))
	38.2%	(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
	75.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)) (sin.f64 th))
	39.5%	(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
	43.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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))
	23.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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	15.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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	29.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))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
	35.5%	(.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))
	18.4%	(.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	29.3%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
	35.4%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
	39.7%	(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
	31.9%	(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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))))))))
	2.9%	(.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 ky ky)))))))
	14.4%	(.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))))))
	38.2%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
	22.6%	(.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))
	35.9%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	29.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
✓	31.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.7%	(.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))
	17.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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))
	23.3%	(.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))
	17.1%	(.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))
	23.2%	(.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))
	34.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	15.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
	18.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
	15.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
	18.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
	9.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
	14.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
	4.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
	5.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
	15.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
	15.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
	12.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
	8.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
	11.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
	50.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))))
	35.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
	15.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
	15.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
	6.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
	15.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
	22.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	6.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
✓	27.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	4.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
	6.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
	7.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))
	15.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
	14.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
	14.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
	21.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
	16.6%	#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)))
	16.5%	#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 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
	16.6%	#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)))
✓	16.6%	#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)))
	16.9%	#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 th)))))
	16.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
	16.9%	#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))))))
	8.5%	#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)))))))
	13.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 (*.f64 th #s(literal -1/6 binary64))) th))))
	13.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))))))
✓	13.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))))))
	29.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
	44.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky))))
	31.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))))))))
	39.6%	#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 4 278 to 1 766 computations (58.7% saved)

regimes428.0ms (3.2%)

Memory

30.0MiB live, 613.8MiB allocated

Counts

123 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky))))
(*.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 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 (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)) (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 (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 (/.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))) (sin.f64 th))
(/.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 (/.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 (sqrt.f64 (/.f64 #s(literal 1 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))))) (sin.f64 ky)) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(*.f64 (/.f64 (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)) (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 (.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)))))

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

Calls

9 calls:

62.0ms	(sin.f64 th)
61.0ms	(sin.f64 kx)
50.0ms	kx
45.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
44.0ms	ky

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)

regimes376.0ms (2.8%)

Memory

5.4MiB live, 609.2MiB 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky))))
(*.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 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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 (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)) (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 (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 (/.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))) (sin.f64 th))
(/.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 (/.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 #s(approx (sin ky) (fma.f64 ky (*.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (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) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))

Calls

9 calls:

65.0ms	ky
52.0ms	th
47.0ms	(sin.f64 kx)
42.0ms	kx
35.0ms	(sin.f64 th)

Results

Accuracy	Segments	Branch
95.6%	2	`kx`
99.0%	2	`ky`
89.8%	2	`th`
84.0%	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.1%	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)))))`
99.0%	3	`(sin.f64 ky)`
95.6%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
95.6%	3	`(sin.f64 kx)`
89.8%	3	`(sin.f64 th)`

Compiler

Compiled 69 to 51 computations (26.1% saved)

regimes66.0ms (0.5%)

Memory

-3.6MiB live, 73.8MiB allocated

Counts

103 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky))))
(*.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 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #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))

Outputs

(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (*.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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

1 calls:

60.0ms

ky

Results

Accuracy	Segments	Branch
98.9%	2	`ky`

Compiler

Compiled 4 to 3 computations (25% saved)

regimes290.0ms (2.2%)

Memory

-12.1MiB live, 480.1MiB allocated

Counts

101 → 6

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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.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)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky))))
(*.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 th) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))

Outputs
(.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) (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 (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 (sin 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))))))))
(.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))

Calls

8 calls:

48.0ms	(sin.f64 ky)
39.0ms	(sin.f64 kx)
36.0ms	ky
35.0ms	th
33.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
79.2%	3	`(sin.f64 th)`
79.4%	2	`th`
78.6%	3	`(sin.f64 kx)`
90.3%	6	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
78.4%	2	`kx`
78.4%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
82.6%	3	`(sin.f64 ky)`
82.1%	2	`ky`

Compiler

Compiled 50 to 38 computations (24% saved)

regimes36.0ms (0.3%)

Memory

-1.4MiB live, 72.1MiB allocated

Counts

94 → 6

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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 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) (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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (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
90.3%	6	`(/.f64 (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)

regimes36.0ms (0.3%)

Memory

-7.5MiB live, 74.5MiB allocated

Counts

93 → 6

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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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)))

Outputs
#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 (/.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.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 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))

Calls

1 calls:

29.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
90.1%	6	`(/.f64 (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)

regimes33.0ms (0.2%)

Memory

1.7MiB live, 78.0MiB allocated

Counts

92 → 6

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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))

Outputs
#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 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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))))))))
(.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 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx))) (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
90.1%	6	`(/.f64 (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.0MiB live, 61.0MiB allocated

Counts

91 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin 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
#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 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.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) #s(approx (sin 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))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

29.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
87.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)

regimes34.0ms (0.3%)

Memory

1.6MiB live, 78.5MiB allocated

Counts

90 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))
(.f64 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.f64 (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) 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)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

Outputs
#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 (.f64 (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 #s(literal -1/6 binary64) (.f64 th th)) th)))
(.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:

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

regimes33.0ms (0.3%)

Memory

-7.4MiB live, 72.2MiB allocated

Counts

87 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.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)) (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)))))))

Outputs
#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))))))
#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)))))))
(.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:

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

regimes140.0ms (1.1%)

Memory

34.7MiB live, 300.6MiB allocated

Counts

86 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
(.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 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))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (sin th)) (.f64 (.f64 (sin.f64 ky) (.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 ky #s(literal -2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky)))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))

Outputs

#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 (/.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 (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

5 calls:

30.0ms	(sin.f64 ky)
28.0ms	ky
27.0ms	th
26.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	(/.f64 (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
55.6%	3	`th`
63.4%	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))`
78.8%	3	`(sin.f64 ky)`
78.2%	2	`ky`
80.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 48 to 34 computations (29.2% saved)

regimes214.0ms (1.6%)

Memory

8.5MiB live, 470.1MiB allocated

Counts

82 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (/ 1 (/ 2 (- 1 (cos (+ ky ky))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))) (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))

(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #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 (*.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))

Calls

7 calls:

42.0ms	kx
39.0ms	(sin.f64 th)
25.0ms	(sin.f64 kx)
24.0ms	ky
24.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
66.1%	5	`(sin.f64 kx)`
75.6%	4	`(sin.f64 ky)`
50.6%	5	`(sin.f64 th)`
75.0%	3	`ky`
64.4%	4	`kx`
66.0%	5	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
71.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 46 to 35 computations (23.9% saved)

regimes106.0ms (0.8%)

Memory

-23.6MiB live, 178.0MiB allocated

Counts

80 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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 (* (* (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 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))
(.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 (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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.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))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) 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))))))

Outputs

#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 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))

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

Calls

3 calls:

26.0ms	ky
24.0ms	(sin.f64 ky)
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
71.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)))))`
69.4%	5	`(sin.f64 ky)`
68.4%	4	`ky`

Compiler

Compiled 25 to 18 computations (28% saved)

regimes114.0ms (0.9%)

Memory

18.5MiB live, 188.5MiB allocated

Counts

74 → 4

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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(.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
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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))))))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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

3 calls:

58.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)))))
27.0ms	(sin.f64 ky)
24.0ms	ky

Results

Accuracy	Segments	Branch
62.5%	5	`(sin.f64 ky)`
55.6%	4	`ky`
66.5%	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)))))`

Compiler

Compiled 25 to 18 computations (28% saved)

regimes26.0ms (0.2%)

Memory

-1.4MiB live, 76.3MiB allocated

Counts

72 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))

Outputs

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

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

#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
64.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 16 to 11 computations (31.3% saved)

regimes31.0ms (0.2%)

Memory

-2.4MiB live, 75.4MiB allocated

Counts

71 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 ky)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (exp.f64 (*.f64 (log.f64 (+.f64 ky ky)) #s(literal -1 binary64)))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))

Outputs

(*.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 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

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

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

Calls

1 calls:

27.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
64.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 16 to 11 computations (31.3% saved)

regimes26.0ms (0.2%)

Memory

-8.1MiB live, 66.7MiB 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th 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 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

Outputs

(*.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 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

(*.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:

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

regimes105.0ms (0.8%)

Memory

1.7MiB live, 239.2MiB 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (+ (* (cos (+ ky ky)) -1/2) 1/2) (*.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (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)) #s(literal 1/2 binary64))))) th) (sin.f64 ky)))
#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))))))))
(.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 (.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 #s(literal -2 binary64) kx)))))) (sin.f64 ky)) #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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 ky #s(literal -2 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))

Calls

5 calls:

25.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))
20.0ms	kx
19.0ms	(sin.f64 kx)
19.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)))))
17.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
58.9%	3	`kx`
58.9%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
59.2%	4	`(sin.f64 kx)`
49.9%	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))`
59.5%	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 51 to 37 computations (27.5% saved)

regimes81.0ms (0.6%)

Memory

6.1MiB live, 122.0MiB allocated

Counts

51 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 (sin.f64 ky) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 th (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) th)))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) 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

4 calls:

32.0ms	kx
16.0ms	(sin.f64 ky)
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)))))
14.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
49.1%	2	`kx`
49.1%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
50.0%	2	`(sin.f64 ky)`
56.8%	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 32 to 24 computations (25% saved)

regimes42.0ms (0.3%)

Memory

-35.3MiB live, 36.6MiB allocated

Counts

46 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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:

26.0ms	(sin.f64 kx)
13.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.7%	3	`(sin.f64 kx)`
55.8%	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)

regimes135.0ms (1%)

Memory

34.4MiB live, 263.7MiB allocated

Counts

45 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))
(.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))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))))) th) (sin.f64 ky)))
(.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 #s(literal 1/12 binary64) (/.f64 (.f64 kx kx) (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 ( (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 (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))

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

Calls

9 calls:

17.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))
16.0ms	(sin.f64 ky)
16.0ms	(sin.f64 kx)
15.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
15.0ms	th

Results

Accuracy	Segments	Branch
34.8%	3	`(sin.f64 th)`
39.8%	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))`
38.9%	3	`(sin.f64 kx)`
38.2%	2	`kx`
38.2%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
41.7%	2	`(sin.f64 ky)`
41.8%	2	`ky`
34.7%	2	`th`
44.0%	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 69 to 51 computations (26.1% saved)

regimes16.0ms (0.1%)

Memory

-3.7MiB live, 33.4MiB allocated

Counts

41 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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)) (.f64 (.f64 (sqrt.f64 (.f64 (.f64 (fma.f64 kx kx #s(literal 0 binary64)) (+.f64 ky ky)) (/.f64 #s(literal 1 binary64) (fma.f64 kx kx #s(literal 0 binary64))))) th) (sin.f64 ky)))

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:

13.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.9%	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)

regimes17.0ms (0.1%)

Memory

-9.9MiB live, 37.8MiB allocated

Counts

39 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))
(.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:

14.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.9%	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)

regimes14.0ms (0.1%)

Memory

-7.5MiB live, 30.6MiB allocated

Counts

38 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (*.f64 ky (/.f64 th (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (+.f64 ky ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 kx kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (+.f64 ky ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 th (sqrt.f64 (+.f64 ky ky))) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx ( (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (/.f64 (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))) ky)) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) ky)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) kx)) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 ky ky))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 th (sin.f64 ky))) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) th)) (sqrt.f64 (+.f64 ky ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)) (.f64 #s(literal 2 binary64) (.f64 ky ky))))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 ky ky)))) th) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 #s(approx (sqrt (/ 1 (+ kx kx))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (sqrt.f64 #s(literal 1/2 binary64)))) th) (sin.f64 ky)))

Outputs

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

#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.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 16 to 11 computations (31.3% saved)

regimes41.0ms (0.3%)

Memory

22.9MiB live, 100.5MiB allocated

Counts

19 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))))

Outputs

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

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

Calls

6 calls:

8.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))
7.0ms	ky
6.0ms	(sin.f64 ky)
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	kx

Results

Accuracy	Segments	Branch
33.8%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
33.7%	2	`kx`
37.4%	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))`
35.9%	2	`(sin.f64 ky)`
35.8%	2	`ky`
37.6%	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 55 to 40 computations (27.3% saved)

regimes10.0ms (0.1%)

Memory

-23.2MiB live, 18.2MiB allocated

Counts

18 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin 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))))))

Outputs

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

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

Calls

1 calls:

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

Results

Accuracy	Segments	Branch
37.6%	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)

regimes55.0ms (0.4%)

Memory

7.0MiB live, 121.8MiB 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky))))
#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))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 #s(literal 1/12 binary64) th) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))

Outputs

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

#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:

7.0ms	(sin.f64 ky)
7.0ms	(sin.f64 th)
7.0ms	th
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)))))
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))

Results

Accuracy	Segments	Branch
19.7%	2	`(sin.f64 th)`
24.3%	2	`kx`
24.3%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
19.5%	2	`th`
26.5%	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))`
25.1%	2	`ky`
25.0%	2	`(sin.f64 ky)`
24.3%	3	`(sin.f64 kx)`
26.9%	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 69 to 51 computations (26.1% saved)

regimes5.0ms (0%)

Memory

14.0MiB live, 14.0MiB 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (*.f64 th (sqrt.f64 #s(literal 1/2 binary64)))))))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (*.f64 ky (*.f64 th (sqrt.f64 #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 (*.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))

Calls

1 calls:

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

regimes18.0ms (0.1%)

Memory

-20.7MiB live, 22.3MiB allocated

Counts

11 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.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) (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 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)) #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)))

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:

13.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
26.0%	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))`
25.5%	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)

regimes7.0ms (0.1%)

Memory

16.9MiB live, 16.9MiB allocated

Counts

7 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #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 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 (.f64 th th)) #s(literal -1/6 binary64) 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

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

3.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
25.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)))))`
25.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 35 to 24 computations (31.4% saved)

regimes24.0ms (0.2%)

Memory

-16.0MiB live, 60.7MiB allocated

Counts

4 → 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #s(literal 1/2 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))))))

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

Calls

9 calls:

4.0ms	(sin.f64 th)
3.0ms	ky
2.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	(sin.f64 kx)
2.0ms	kx

Results

Accuracy	Segments	Branch
13.0%	1	`th`
13.0%	1	`(sin.f64 th)`
13.0%	1	`(sin.f64 kx)`
13.0%	1	`kx`
13.0%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
15.2%	2	`(sin.f64 ky)`
14.8%	2	`ky`
15.8%	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)))))`
16.6%	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 69 to 51 computations (26.1% saved)

regimes8.0ms (0.1%)

Memory

23.7MiB live, 23.7MiB 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 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) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 (*.f64 th (*.f64 th #s(literal -1/6 binary64))) 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))))))

Calls

4 calls:

2.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 ky)
2.0ms	ky

Results

Accuracy	Segments	Branch
13.0%	1	`ky`
13.0%	1	`(sin.f64 ky)`
13.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)))))`
13.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 44 to 31 computations (29.5% saved)

bsearch33.0ms (0.3%)

Memory

-8.1MiB live, 69.0MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
31.0ms	0.0005857579666975172	3051.669771701198

Samples

23.0ms

144×

valid

Compiler

Compiled 463 to 324 computations (30% saved)

Precisions

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

ival-sin: 13.0ms (69.2% of total)

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

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

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

ival-mult: 1.0ms (5.3% of total)

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

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

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

bsearch2.0ms (0%)

Memory

4.6MiB live, 4.6MiB allocated

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.0005857579666975172	3051.669771701198

Compiler

Compiled 463 to 324 computations (30% saved)

bsearch1.0ms (0%)

Memory

2.9MiB live, 2.9MiB allocated

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	+inf
0.0ms	0.9937106402935854	0.9971337822475395
0.0ms	0.05312298191309259	0.06438056642503066
0.0ms	-0.3176651976453707	-0.2436580741074414
0.0ms	-0.9997607227881238	-0.9995250965401785

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.4MiB live, 2.4MiB allocated

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	+inf
0.0ms	0.9937106402935854	0.9971337822475395
0.0ms	0.0005258440357504452	0.0012688340099863726
0.0ms	-0.3176651976453707	-0.2436580741074414
0.0ms	-0.9997607227881238	-0.9995250965401785

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.6MiB live, 2.6MiB allocated

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	+inf
0.0ms	0.9937106402935854	0.9971337822475395
0.0ms	0.0005258440357504452	0.0012688340099863726
0.0ms	-0.3176651976453707	-0.2436580741074414
0.0ms	-0.9997607227881238	-0.9995250965401785

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.3MiB live, 2.3MiB allocated

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	+inf
0.0ms	0.9937106402935854	0.9971337822475395
0.0ms	0.0005258440357504452	0.0012688340099863726
0.0ms	-0.3176651976453707	-0.2436580741074414
0.0ms	-0.9997607227881238	-0.9995250965401785

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.9937106402935854	0.9971337822475395
0.0ms	0.0005258440357504452	0.0012688340099863726
0.0ms	-0.2436580741074414	1.492891543455513e-303
0.0ms	-0.9997607227881238	-0.9995250965401785

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.2MiB live, 2.3MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9937106402935854	0.9971337822475395
0.0ms	0.0005258440357504452	0.0012688340099863726
0.0ms	-0.2436580741074414	1.492891543455513e-303
0.0ms	-0.9997607227881238	-0.9995250965401785

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch3.0ms (0%)

Memory

-34.2MiB live, 2.4MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9937106402935854	0.9971337822475395
0.0ms	0.0005258440357504452	0.0012688340099863726
0.0ms	-0.2436580741074414	1.492891543455513e-303
0.0ms	-0.9997607227881238	-0.9995250965401785

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.05312298191309259	0.06438056642503066
0.0ms	-0.2436580741074414	1.492891543455513e-303

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch41.0ms (0.3%)

Memory

20.4MiB live, 98.2MiB allocated

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
18.0ms	1.8070689469023047e-5	0.0005857579666975172
20.0ms	7.463050574791184e-158	1.4603487459501395e-154

Samples

28.0ms

240×

valid

Compiler

Compiled 640 to 456 computations (28.8% saved)

Precisions

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

ival-sin: 12.0ms (53.6% of total)

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

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

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

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

ival-mult: 1.0ms (4.5% of total)

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

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

bsearch1.0ms (0%)

Memory

1.6MiB live, 1.6MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7
0.0ms	-0.2436580741074414	1.492891543455513e-303

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.5MiB live, 1.5MiB allocated

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7
0.0ms	1.28104366597583e-286	3.0672647295095913e-285
0.0ms	-0.9193556890236779	-0.8975585458606059

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.3MiB live, 1.3MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7
0.0ms	-0.9193556890236779	-0.8975585458606059

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.8MiB live, 1.8MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7
0.0ms	-0.9193556890236779	-0.8975585458606059

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.2MiB live, 1.2MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7
0.0ms	-0.3176651976453707	-0.2436580741074414

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

1.2MiB live, 1.2MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7
0.0ms	-0.2436580741074414	1.492891543455513e-303

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

1.1MiB live, 1.1MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

1.2MiB live, 1.2MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.1724849825378335e-7	7.610646454248187e-7

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.1654691227351349e-7	2.1724849825378335e-7

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.1654691227351349e-7	2.1724849825378335e-7

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.1654691227351349e-7	2.1724849825378335e-7

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	2.1724849825378335e-7	7.610646454248187e-7

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	6.203026599773156e-25	4.874339375664817e-24

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.5MiB live, 0.5MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	6.203026599773156e-25	4.874339375664817e-24

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.5MiB live, 0.5MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.1654691227351349e-7	2.1724849825378335e-7

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.1654691227351349e-7	2.1724849825378335e-7

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.5MiB live, 0.5MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	5.323333254455133e-309	4.1003849432115477e-305

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.4MiB live, 0.4MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	5.323333254455133e-309	4.1003849432115477e-305

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.4MiB live, 0.4MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	5.323333254455133e-309	4.1003849432115477e-305

Compiler

Compiled 22 to 19 computations (13.6% saved)

simplify41.0ms (0.3%)

Memory

-15.4MiB live, 65.3MiB allocated

Algorithm

1×	egg-herbie

Rules

120×	`*-commutative_binary64`
20×	`+-commutative_binary64`
12×	`sub-neg_binary64`
6×	`neg-sub0_binary64`
6×	`neg-mul-1_binary64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	327	3824
1	398	3824
2	408	3824
3	414	3824
4	417	3824

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 ky #s(literal 7839866231326559/2305843009213693952 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (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) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(if (<=.f64 ky #s(literal 7839866231326559/2305843009213693952 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 binary64)) (.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)) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 1080863910568919/18014398509481984 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 binary64)) (.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)) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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)))))) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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)))))) (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 -5404319552844595/18014398509481984 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 #s(literal -1/6 binary64) (.f64 th 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 1152921504606847/1152921504606846976 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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)))))) (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/18014398509481984 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 #s(literal -1/6 binary64) (.f64 th 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 1152921504606847/1152921504606846976 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) #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 -1125449546879887/1125899906842624 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)))))) (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/18014398509481984 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 #s(literal -1/6 binary64) (.f64 th 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 1152921504606847/1152921504606846976 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 8962163258467287/9007199254740992 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 -1125449546879887/1125899906842624 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)))))) (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/18014398509481984 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))))))) (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 #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 8962163258467287/9007199254740992 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 -3602879701896397/18014398509481984 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)))))) (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 1080863910568919/18014398509481984 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)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 ky #s(literal 5555272689337309/120766797594289323271729746591624604509341479053326093708038601607859973196548763266756055205685080561326988000984443036792658708157593364241965896045846273396780650463232 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th)) (if (<=.f64 ky #s(literal 2674777890687885/4611686018427387904 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 ky ky))))) (sin.f64 ky)) (sin.f64 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)) (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 -3602879701896397/18014398509481984 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)))))) (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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) 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 8572068857490139/42860344287450692837937001962400072422456192468221344297750015534814042044997444899727935152627834325103786916702125873007485811427692561743938310298794299215738271099296923941684298420249484567511816728612185899934327765069595070236662175784308251658284785910746168670641719326610497547348822672277504 binary64)) (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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)))))))) (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 944473296573929/2361183241434822606848 binary64)) (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) 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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th 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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -5404319552844595/18014398509481984 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th 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 944473296573929/2361183241434822606848 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 -3602879701896397/18014398509481984 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.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 944473296573929/2361183241434822606848 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 944473296573929/2361183241434822606848 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 944473296573929/2361183241434822606848 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 944473296573929/4722366482869645213696 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) #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)) #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 944473296573929/4722366482869645213696 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 944473296573929/4722366482869645213696 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 944473296573929/2361183241434822606848 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (.f64 ky (/.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 5444517870735015/5444517870735015415413993718908291383296 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #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 5444517870735015/5444517870735015415413993718908291383296 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #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 944473296573929/4722366482869645213696 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)))) #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 944473296573929/4722366482869645213696 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (.f64 th (sqrt.f64 #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 (.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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 (/.f64 (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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #s(literal 1/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))))))

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(if (<=.f64 ky #s(literal 7839866231326559/2305843009213693952 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (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) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(if (<=.f64 ky #s(literal 7839866231326559/2305843009213693952 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 kx)))) (/.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))))))))
(if (<=.f64 ky #s(literal 7839866231326559/2305843009213693952 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 ky #s(literal 7839866231326559/2305843009213693952 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 binary64)) (.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)) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 1080863910568919/18014398509481984 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #s(approx (pow (sin kx) 2) (.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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 1080863910568919/18014398509481984 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #s(approx (pow (sin kx) 2) (.f64 kx kx)))))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 binary64)) (.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)) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #s(approx (pow (sin kx) 2) (.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 -5404319552844595/18014398509481984 binary64)) (.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))) (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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #s(approx (pow (sin kx) 2) (.f64 kx kx)))))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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)))))) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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) (sin.f64 th)) (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)))))) (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 -5404319552844595/18014398509481984 binary64)) (.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))) (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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.f64 (sin.f64 th) #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)))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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)))))) (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 -5404319552844595/18014398509481984 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 #s(literal -1/6 binary64) (.f64 th 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 1152921504606847/1152921504606846976 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.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 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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) (sin.f64 th)) (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)))))) (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 -5404319552844595/18014398509481984 binary64)) (.f64 #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (.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))))))) (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) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) (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 2 binary64)) (.f64 (sin.f64 th) #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)))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (*.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sin.f64 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 -1125449546879887/1125899906842624 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)))))) (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/18014398509481984 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 #s(literal -1/6 binary64) (.f64 th 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 1152921504606847/1152921504606846976 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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) #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 -1125449546879887/1125899906842624 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) (sin.f64 th)) (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)))))) (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/18014398509481984 binary64)) (.f64 #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (.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))))))) (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 #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)))))) (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 8962163258467287/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) #s(approx (sin 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)))))))) #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 -1125449546879887/1125899906842624 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)))))) (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/18014398509481984 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 #s(literal -1/6 binary64) (.f64 th 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 1152921504606847/1152921504606846976 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 8962163258467287/9007199254740992 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 -1125449546879887/1125899906842624 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) (sin.f64 th)) (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)))))) (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/18014398509481984 binary64)) (.f64 #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (.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))))))) (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 #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)))))) (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 8962163258467287/9007199254740992 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 -1125449546879887/1125899906842624 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)))))) (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/18014398509481984 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))))))) (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 #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 8962163258467287/9007199254740992 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 -1125449546879887/1125899906842624 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) (sin.f64 th)) (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)))))) (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/18014398509481984 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))))))) (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 #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)))))) (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 8962163258467287/9007199254740992 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 -3602879701896397/18014398509481984 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)))))) (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 1080863910568919/18014398509481984 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)) #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 -3602879701896397/18014398509481984 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) (sin.f64 th)) (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)))))) (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 1080863910568919/18014398509481984 binary64)) (.f64 (sin.f64 th) (/.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)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 ky #s(literal 5555272689337309/120766797594289323271729746591624604509341479053326093708038601607859973196548763266756055205685080561326988000984443036792658708157593364241965896045846273396780650463232 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th)) (if (<=.f64 ky #s(literal 2674777890687885/4611686018427387904 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 ky ky))))) (sin.f64 ky)) (sin.f64 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)) (sin.f64 th))))
(if (<=.f64 ky #s(literal 5555272689337309/120766797594289323271729746591624604509341479053326093708038601607859973196548763266756055205685080561326988000984443036792658708157593364241965896045846273396780650463232 binary64)) (.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx)))) (if (<=.f64 ky #s(literal 2674777890687885/4611686018427387904 binary64)) (.f64 (sin.f64 th) (.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) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 ky ky))))))) (.f64 (sin.f64 th) (.f64 (sin.f64 ky) (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)))))))))
(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/18014398509481984 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)))))) (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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -3602879701896397/18014398509481984 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) (sin.f64 th)) (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)))))) (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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) 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 8572068857490139/42860344287450692837937001962400072422456192468221344297750015534814042044997444899727935152627834325103786916702125873007485811427692561743938310298794299215738271099296923941684298420249484567511816728612185899934327765069595070236662175784308251658284785910746168670641719326610497547348822672277504 binary64)) (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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)))))))) (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 944473296573929/2361183241434822606848 binary64)) (.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 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 8572068857490139/42860344287450692837937001962400072422456192468221344297750015534814042044997444899727935152627834325103786916702125873007485811427692561743938310298794299215738271099296923941684298420249484567511816728612185899934327765069595070236662175784308251658284785910746168670641719326610497547348822672277504 binary64)) (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (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)))))))) (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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) 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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 #s(approx (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2))) (/.f64 #s(literal 1 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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th 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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -8106479329266893/9007199254740992 binary64)) (.f64 #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 944473296573929/2361183241434822606848 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (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 -5404319552844595/18014398509481984 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 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th 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 944473296573929/2361183241434822606848 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 -5404319552844595/18014398509481984 binary64)) (.f64 #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/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 944473296573929/2361183241434822606848 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 -3602879701896397/18014398509481984 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.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 944473296573929/2361183241434822606848 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 -3602879701896397/18014398509481984 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.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 944473296573929/2361183241434822606848 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 944473296573929/2361183241434822606848 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 944473296573929/2361183241434822606848 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 944473296573929/2361183241434822606848 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 944473296573929/4722366482869645213696 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) #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)) #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 944473296573929/4722366482869645213696 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) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (.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 944473296573929/4722366482869645213696 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 944473296573929/4722366482869645213696 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 944473296573929/4722366482869645213696 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 944473296573929/4722366482869645213696 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 944473296573929/2361183241434822606848 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (sqrt (/ 1 (+ (pow (sin ky) 2) (pow (sin kx) 2)))) (* (sin ky) th)) (.f64 ky (/.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 5444517870735015/5444517870735015415413993718908291383296 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 ky (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 (.f64 ky ky) (.f64 th (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 th (sqrt.f64 #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 5444517870735015/5444517870735015415413993718908291383296 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #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 5444517870735015/5444517870735015415413993718908291383296 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx 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 944473296573929/4722366482869645213696 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx))) th) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)))) #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 944473296573929/4722366482869645213696 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (.f64 th (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 kx kx)))))) #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 944473296573929/4722366482869645213696 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (* (sqrt (/ 1 (+ kx kx))) th) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) kx)) (.f64 ky (.f64 th (sqrt.f64 #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 (.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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 (/.f64 (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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #s(literal 1/2 binary64))))))
(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 1012011266536553/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 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 (* (* (sqrt (/ 1 (+ (+ (* (cos (+ ky ky)) -1/2) 1/2) (+ (* (cos (+ ky ky)) -1/2) 1/2)))) th) (sin ky)) (*.f64 th (sqrt.f64 #s(literal 1/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))))))

soundness2.1s (15.7%)

Memory

10.8MiB live, 1 760.4MiB allocated

Rules

14 278×	`lower-fma.f64`
14 278×	`lower-fma.f32`
8 218×	`lower-fma.f64`
8 218×	`lower-fma.f32`
7 648×	`lower-fma.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	397
0	93	358
1	321	313
0	2259	266
0	822	12918
1	2645	12372
2	6648	12234
0	8900	11615
0	808	13612
1	2674	13254
2	7139	13167
0	8026	12403
0	930	14521
1	3006	13929
2	7371	13922
0	8054	13190
0	317	2263
1	1011	2214
2	3860	2122
3	7804	2122
0	8107	1974
0	49	298
0	85	269
1	276	240
0	1928	240
0	81	437
0	128	421
1	366	392
0	2469	367
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×	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
1×	iter limit
1×	node limit
1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit

Compiler

Compiled 4 869 to 1 774 computations (63.6% saved)

preprocess245.0ms (1.9%)

Memory

9.2MiB live, 349.3MiB allocated

Remove

(negabs ky)

(negabs th)

(abs kx)

Compiler

Compiled 5 006 to 546 computations (89.1% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated