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

start0.0ms (0.0%)

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

analyze254.0ms (2.7%)

Memory

26.9MiB live, 509.4MiB allocated; 109ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 18 to 14 computations (22.2% saved)

sample2.1s (22.0%)

Memory

17.9MiB live, 5 307.7MiB allocated; 769ms collecting garbage

Samples

1.8s

8 256×

valid

Precisions

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

ival-sin: 779.0ms (54.4% of total)

ival-pow2: 304.0ms (21.2% of total)

ival-sqrt: 213.0ms (14.9% of total)

ival-div!: 60.0ms (4.2% of total)

ival-mult!: 52.0ms (3.6% of total)

ival-add!: 22.0ms (1.5% of total)

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess61.0ms (0.6%)

Memory

16.3MiB live, 252.0MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	46	166
1	142	163
2	566	163
3	3361	163

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs kx)

(negabs ky)

(negabs th)

Compiler

Compiled 32 to 26 computations (18.8% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
2

Outputs
#s(literal 2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 3 to 3 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series73.0ms (0.8%)

Memory

34.2MiB live, 315.8MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	417	3016

Stop Event

1×	iter-limit

Counts

13 → 63

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable	Point
10.0ms	kx	-inf
6.0ms	ky	inf
6.0ms	kx	inf
6.0ms	ky	0
5.0ms	kx	0

rewrite160.0ms (1.7%)

Memory

-11.3MiB live, 368.5MiB allocated; 37ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	13	66
0	22	66
1	69	66
2	216	66
3	1080	66
0	4302	66

Stop Event

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

Counts

13 → 471

Calls

Call 1

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

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

eval74.0ms (0.8%)

Memory: 18.7MiB live, 207.6MiB allocated; 16ms collecting garbage
Compiler: Compiled 17 371 to 3 403 computations (80.4% saved)

prune60.0ms (0.6%)

Memory

-58.4MiB live, 77.4MiB allocated; 63ms collecting garbage

Pruning

22 alts after pruning (22 fresh and 0 done)

	Pruned	Kept	Total
New	501	22	523
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	502	22	524

Accuracy

98.3%

Counts

524 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.1%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
	72.6%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))) (*.f64 (sin.f64 th) (sin.f64 ky))))
	18.0%	(*.f64 (/.f64 (sin.f64 (+.f64 (neg.f64 ky) (PI.f64))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 (+.f64 (neg.f64 ky) (PI.f64))) #s(literal 2 binary64))))) (sin.f64 th))
	7.1%	(*.f64 (/.f64 (sin.f64 (neg.f64 (+.f64 (PI.f64) ky))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (+.f64 (PI.f64) ky))) #s(literal 2 binary64))))) (sin.f64 th))
	73.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))) (sin.f64 ky))
	73.1%	(*.f64 (/.f64 (sin.f64 ky) (/.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
	72.9%	(.f64 (/.f64 (sin.f64 ky) (.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))))) (sin.f64 th))
	73.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 (.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 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
▶	73.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 th))
	50.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))))) (sin.f64 th))
▶	94.8%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 kx) #s(literal 1 binary64)) (pow.f64 (sin.f64 kx) #s(literal -1 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
▶	81.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	74.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	41.0%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	45.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (sin.f64 th))
▶	73.2%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))) (sin.f64 ky))) (sin.f64 th))
	73.0%	(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))) (.f64 (sin.f64 th) (sin.f64 ky)))
	40.6%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (sin.f64 th))
	40.4%	#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 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
	90.2%	#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 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
▶	37.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))

Compiler

Compiled 1 104 to 834 computations (24.5% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
1
-1
2
1/2

Outputs
#s(literal 1 binary64)
#s(literal -1 binary64)
#s(literal 2 binary64)
#s(literal 1/2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 6 to 6 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series166.0ms (1.7%)

Memory

13.8MiB live, 293.2MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1248	12022

Stop Event

1×	iter-limit

Counts

47 → 215

Calls

Call 1

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

Outputs
#s(approx kx kx)
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (pow (sin kx) -1) (/.f64 #s(literal 1 binary64) kx))
#s(approx (pow (sin kx) -1) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/6 binary64) (pow.f64 kx #s(literal 2 binary64)))) kx))
#s(approx (pow (sin kx) -1) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal 7/360 binary64) (pow.f64 kx #s(literal 2 binary64)))))) kx))
#s(approx (pow (sin kx) -1) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 7/360 binary64) (*.f64 #s(literal 31/15120 binary64) (pow.f64 kx #s(literal 2 binary64)))))))) kx))
#s(approx (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow.f64 kx #s(literal 2 binary64)))
#s(approx (/ (pow (sin kx) 1) (pow (sin kx) -1)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (/ (pow (sin kx) 1) (pow (sin kx) -1)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (/ (pow (sin kx) 1) (pow (sin kx) -1)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (pow.f64 kx #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sin.f64 th))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky (sin.f64 th)) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 ky (sin.f64 th)))) (.f64 ky (sin.f64 th))) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 ky (sin.f64 th)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th)))))) (.f64 #s(literal -1/6 binary64) (.f64 ky (sin.f64 th)))))) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 ky (sin.f64 th)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 ky (sin.f64 th))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/6 binary64) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th))))))))) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th)))))) (.f64 #s(literal -1/6 binary64) (.f64 ky (sin.f64 th)))))) kx))
#s(approx (+ kx kx) (*.f64 #s(literal 2 binary64) kx))
#s(approx (cos (+ kx kx)) #s(literal 1 binary64))
#s(approx (cos (+ kx kx)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 kx #s(literal 2 binary64)))))
#s(approx (cos (+ kx kx)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/3 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 2 binary64)))))
#s(approx (cos (+ kx kx)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/3 binary64) (*.f64 #s(literal -4/45 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (- 1 (cos (+ kx kx))) (*.f64 #s(literal 2 binary64) (pow.f64 kx #s(literal 2 binary64))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2 binary64) (.f64 #s(literal -2/3 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 2/3 binary64))))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 4/45 binary64) (.f64 #s(literal -2/315 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 2/3 binary64))))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) #s(literal 1/2 binary64))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (pow.f64 kx #s(literal 2 binary64))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64)))))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64)))))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 kx #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sin.f64 th))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (+.f64 (.f64 #s(literal -1 binary64) (pow.f64 kx #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky)))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky))))
#s(approx (* (cos (+ kx kx)) 1/2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 kx #s(literal 2 binary64)))))
#s(approx (* (cos (+ kx kx)) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* (cos (+ kx kx)) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (sin kx) (sin.f64 kx))
#s(approx (pow (sin kx) -1) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
#s(approx (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (sqrt.f64 (+.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) 1) (pow (sin kx) -1)) (pow (sin ky) 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sin kx) 2)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (cos (+ kx kx)) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))
#s(approx (* (- 1 (cos (+ kx kx))) 1/2) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky)))
#s(approx (* (cos (+ kx kx)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (cos (+ kx kx)) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx))))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx)))))
#s(approx (* (- 1 (cos (+ kx kx))) 1/2) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky)))
#s(approx (* (cos (+ kx kx)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))))))
#s(approx (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))))))
#s(approx (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx))))))))
#s(approx ky ky)
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 ky #s(literal 2 binary64))))))
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64))))))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (pow.f64 ky #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64))))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64))))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* ky (sin th)) (*.f64 ky (sin.f64 th)))
#s(approx (+ ky ky) (*.f64 #s(literal 2 binary64) ky))
#s(approx (cos (+ ky ky)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 ky #s(literal 2 binary64)))))
#s(approx (cos (+ ky ky)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/3 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 2 binary64)))))
#s(approx (cos (+ ky ky)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 2/3 binary64) (*.f64 #s(literal -4/45 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (* (cos (+ ky ky)) 1/2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 ky #s(literal 2 binary64)))))
#s(approx (* (cos (+ ky ky)) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* (cos (+ ky ky)) 1/2) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))) (pow.f64 ky #s(literal 2 binary64))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64)))))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64)))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (+.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (+.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (+.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (/.f64 ky (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (.f64 ky (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1 binary64) (pow.f64 ky #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal -2/45 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) ky))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (+.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))))) ky))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (+.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (.f64 #s(literal 1/120 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) ky))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (+.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (.f64 #s(literal 1/120 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (+.f64 (.f64 #s(literal -1/5040 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))) (.f64 #s(literal 1/120 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (.f64 #s(literal 1/120 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))))) ky))
#s(approx (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 ky #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))
#s(approx (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))))
#s(approx (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (/.f64 ky (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (sin ky) (sin.f64 ky))
#s(approx (cos (+ ky ky)) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))
#s(approx (cos (+ ky ky)) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) ky))))
#s(approx (* (cos (+ ky ky)) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky)))))
#s(approx (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky)))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) ky))))))))
#s(approx (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (/ (sqrt (- 1/2 (- (* (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky)))))) (sin.f64 ky)))
#s(approx th th)
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 th #s(literal 2 binary64))))))
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 th #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 th #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (/ (pow (sin kx) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (+.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) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (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) (sqrt.f64 (+.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) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (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 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (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) (sqrt.f64 (+.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) 1) (pow (sin kx) -1)) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (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 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (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 #s(literal 1/120 binary64) (/.f64 (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) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
#s(approx (* ky (sin th)) (*.f64 ky th))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64)))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) ky) (.f64 #s(literal 1/120 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64)))))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 ky (pow.f64 th #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) ky))))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/120 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (sin th) (sin.f64 th))

Calls

9 calls:

Time	Variable	Point
22.0ms	ky	0
12.0ms	kx	0
12.0ms	ky	inf
9.0ms	kx	inf
8.0ms	kx	-inf

rewrite262.0ms (2.7%)

Memory

9.2MiB live, 625.9MiB allocated; 58ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	56	474
0	96	351
1	420	333
2	1566	333
0	4180	333

Stop Event

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

Counts

47 → 1 612

Calls

Call 1

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

Outputs
ky
(sin.f64 ky)
kx
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal -1 binary64)) (sin.f64 kx))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (sin.f64 kx))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (sin.f64 kx))
(*.f64 (sin.f64 kx) (pow.f64 (sin.f64 kx) #s(literal 0 binary64)))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -1 binary64))
(pow.f64 (sin.f64 kx) #s(literal 1 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 kx)) #s(literal 2 binary64))
(/.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (sin.f64 kx)) #s(literal -1 binary64))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (sin.f64 kx) #s(literal 1 binary64))
(sin.f64 kx)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(+.f64 (sin.f64 kx) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
#s(literal 1 binary64)
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal -1 binary64)) (sin.f64 kx))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (sin.f64 kx))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (sin.f64 kx))
(*.f64 (sin.f64 kx) (pow.f64 (sin.f64 kx) #s(literal 0 binary64)))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -1 binary64))
(pow.f64 (sin.f64 kx) #s(literal 1 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (sin.f64 kx)) #s(literal 2 binary64))
(/.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (sin.f64 kx)) #s(literal -1 binary64))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (sin.f64 kx) #s(literal 1 binary64))
(sin.f64 kx)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(+.f64 (sin.f64 kx) (/.f64 #s(literal 0 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
#s(literal -1 binary64)
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64))
(pow.f64 (sin.f64 kx) #s(literal -1 binary64))
(/.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (sin.f64 kx)))
(/.f64 #s(literal -1 binary64) (*.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal -1 binary64)))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 0 binary64) (sin.f64 kx)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)))
(*.f64 (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (sin.f64 kx))))
(*.f64 (sin.f64 (fabs.f64 kx)) (sin.f64 (fabs.f64 kx)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(*.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(*.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 kx)))
(*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 0 binary64)))
(*.f64 #s(literal 1/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 1/2 binary64))
(*.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.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 kx kx))))) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 kx)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (*.f64 (sin.f64 kx) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (cos.f64 (-.f64 (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (neg.f64 kx))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (neg.f64 kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (neg.f64 kx) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (neg.f64 kx))) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (sin.f64 (+.f64 (neg.f64 kx) (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 kx)))
(/.f64 (sin.f64 kx) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(neg.f64 (/.f64 (sin.f64 kx) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(neg.f64 (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 kx kx)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx (PI.f64))))))
(-.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))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 kx)))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 kx)))
(fabs.f64 (*.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (sin.f64 kx) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
#s(literal 2 binary64)
(*.f64 (fabs.f64 (fabs.f64 (sin.f64 ky))) (fabs.f64 (fabs.f64 (sin.f64 ky))))
(*.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(*.f64 (sin.f64 (fabs.f64 ky)) (sin.f64 (fabs.f64 ky)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sin.f64 ky))))
(*.f64 (fabs.f64 (sin.f64 ky)) (fabs.f64 (sin.f64 ky)))
(*.f64 (pow.f64 (sin.f64 ky) #s(literal 1 binary64)) (pow.f64 (sin.f64 ky) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 ky) #s(literal 1 binary64)) (sin.f64 ky))
(*.f64 (pow.f64 (sin.f64 ky) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(*.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sin.f64 ky)))
(*.f64 (sin.f64 ky) (sin.f64 ky))
(pow.f64 (fabs.f64 (sin.f64 ky)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (sin.f64 ky)) #s(literal 2 binary64))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 #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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.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 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) #s(literal -2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) (cos.f64 (-.f64 (+.f64 ky (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 ky (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 ky (PI.f64)) (+.f64 ky (PI.f64)))) (cos.f64 (+.f64 (+.f64 ky (PI.f64)) (+.f64 ky (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 ky (PI.f64)) (neg.f64 ky))) (cos.f64 (+.f64 (+.f64 ky (PI.f64)) (neg.f64 ky)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 ky) (+.f64 ky (PI.f64)))) (cos.f64 (+.f64 (neg.f64 ky) (+.f64 ky (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 ky) (neg.f64 ky))) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 ky (PI.f64)) (+.f64 ky (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (+.f64 ky (PI.f64)) (+.f64 ky (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) (sin.f64 (+.f64 (neg.f64 ky) (+.f64 ky (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 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 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (-.f64 (pow.f64 #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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.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 (pow.f64 (sin.f64 ky) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal -2 binary64)))
(neg.f64 (-.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 ky ky)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky ky)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky (PI.f64))))))
(-.f64 #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/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fabs.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (sin.f64 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 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #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 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(/.f64 (+.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (+.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 kx) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 kx))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (sin.f64 kx) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 kx) #s(literal 1 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (sin.f64 kx))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 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 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)))))
(-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (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 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) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(fabs.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (sqrt.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky)))
(.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal -1 binary64))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 1 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 2 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 ky)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal -2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (sin.f64 ky) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))) #s(literal -1 binary64)))
(+.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 0 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
th
(*.f64 (sin.f64 th) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (sin.f64 th))
(sin.f64 th)
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 th) (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th)))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 th)) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) #s(literal -1 binary64))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (sin.f64 th))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 th))) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sin.f64 th) #s(literal -1 binary64)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 th)) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (sin.f64 th) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th)))
(*.f64 (sin.f64 th) ky)
(*.f64 ky (sin.f64 th))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)))
(*.f64 (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (sin.f64 kx))))
(*.f64 (sin.f64 (fabs.f64 kx)) (sin.f64 (fabs.f64 kx)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(*.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(*.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 kx)))
(*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 0 binary64)))
(*.f64 #s(literal 1/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 1/2 binary64))
(*.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.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 kx kx))))) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 kx)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (*.f64 (sin.f64 kx) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (cos.f64 (-.f64 (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (neg.f64 kx))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (neg.f64 kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (neg.f64 kx) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (neg.f64 kx))) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (sin.f64 (+.f64 (neg.f64 kx) (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 kx)))
(/.f64 (sin.f64 kx) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(neg.f64 (/.f64 (sin.f64 kx) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(neg.f64 (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 kx kx)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx (PI.f64))))))
(-.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))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 kx)))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 kx)))
(fabs.f64 (*.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (sin.f64 kx) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fabs.f64 (sin.f64 kx))) (sqrt.f64 (fabs.f64 (sin.f64 kx))))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1/2 binary64)) (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #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 kx kx)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (neg.f64 (sin.f64 kx))) (sqrt.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(*.f64 (sqrt.f64 (neg.f64 (sin.f64 kx))) (sqrt.f64 (neg.f64 (sin.f64 kx))))
(*.f64 (sqrt.f64 (sin.f64 kx)) (sqrt.f64 (sin.f64 kx)))
(*.f64 (pow.f64 (sin.f64 kx) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx)))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (sqrt.f64 (neg.f64 (neg.f64 (sin.f64 kx)))) (sqrt.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (sqrt.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (sqrt.f64 (neg.f64 (sin.f64 kx))) (sqrt.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (sqrt.f64 (sin.f64 kx)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fabs.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (neg.f64 (sin.f64 kx)))
(fabs.f64 (neg.f64 (fabs.f64 (sin.f64 kx))))
(fabs.f64 (fabs.f64 (sin.f64 kx)))
(fabs.f64 (sin.f64 kx))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 kx))) ky)
(.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 (sin.f64 th) ky))
(.f64 (.f64 (neg.f64 ky) (sin.f64 th)) (/.f64 #s(literal -1 binary64) (fabs.f64 (sin.f64 kx))))
(.f64 (.f64 (sin.f64 th) ky) (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(.f64 (sin.f64 th) (.f64 ky (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(*.f64 (sin.f64 th) (/.f64 ky (fabs.f64 (sin.f64 kx))))
(*.f64 ky (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 kx))))
(/.f64 (neg.f64 (.f64 (.f64 (sin.f64 th) ky) #s(literal 1 binary64))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (neg.f64 ky) (sin.f64 th)))) (neg.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx))))))
(/.f64 (.f64 (.f64 (sin.f64 th) ky) #s(literal 1 binary64)) (fabs.f64 (sin.f64 kx)))
(/.f64 (neg.f64 (*.f64 (neg.f64 ky) (sin.f64 th))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(/.f64 (*.f64 (neg.f64 ky) (sin.f64 th)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(/.f64 (*.f64 (sin.f64 th) ky) (fabs.f64 (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (*.f64 (neg.f64 ky) (sin.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 (sin.f64 kx)) (*.f64 (sin.f64 th) ky)))
(neg.f64 (/.f64 (*.f64 (sin.f64 th) ky) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(neg.f64 (/.f64 (*.f64 (neg.f64 ky) (sin.f64 th)) (fabs.f64 (sin.f64 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (fabs.f64 (sin.f64 kx))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 kx) kx)) kx)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 kx kx)) kx)
(*.f64 #s(literal 2 binary64) kx)
(*.f64 kx #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 kx #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 kx)) #s(literal 3 binary64))) (+.f64 (.f64 kx kx) (-.f64 (.f64 (neg.f64 (neg.f64 kx)) (neg.f64 (neg.f64 kx))) (*.f64 kx (neg.f64 (neg.f64 kx))))))
(/.f64 (-.f64 (.f64 kx kx) (.f64 (neg.f64 kx) (neg.f64 kx))) (+.f64 kx (neg.f64 kx)))
(/.f64 (-.f64 (pow.f64 kx #s(literal 3 binary64)) (pow.f64 (neg.f64 kx) #s(literal 3 binary64))) (+.f64 (.f64 kx kx) (+.f64 (.f64 (neg.f64 kx) (neg.f64 kx)) (*.f64 kx (neg.f64 kx)))))
(/.f64 (-.f64 (.f64 kx kx) (.f64 kx kx)) (-.f64 kx kx))
(/.f64 (+.f64 (pow.f64 kx #s(literal 3 binary64)) (pow.f64 kx #s(literal 3 binary64))) (+.f64 (.f64 kx kx) (-.f64 (.f64 kx kx) (*.f64 kx kx))))
(neg.f64 (*.f64 #s(literal -2 binary64) kx))
(-.f64 kx (neg.f64 kx))
(+.f64 kx (neg.f64 (neg.f64 kx)))
(+.f64 kx kx)
(*.f64 (+.f64 (cos.f64 kx) (sin.f64 kx)) (-.f64 (cos.f64 kx) (sin.f64 kx)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.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 kx kx)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64)) (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) #s(literal 3 binary64))) (+.f64 (.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 kx kx))))) (-.f64 (.f64 (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx 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 kx kx)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx))) #s(literal 3 binary64))) (+.f64 (.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 kx kx))))) (-.f64 (.f64 (.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx))) (.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.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 kx kx))))) (-.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 kx) #s(literal 1 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (sin.f64 kx))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.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 kx kx))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (cos.f64 (-.f64 kx kx)))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.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 kx kx))))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(neg.f64 (neg.f64 (cos.f64 (+.f64 kx kx))))
(sin.f64 (neg.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx)))))
(sin.f64 (neg.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx)) (PI.f64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 (+.f64 kx kx))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx))) (PI.f64)))
(sin.f64 (+.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx)) (PI.f64)) (PI.f64)))
(sin.f64 (-.f64 (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 kx)))
(sin.f64 (+.f64 (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64))) kx))
(sin.f64 (+.f64 (.f64 #s(literal -2 binary64) kx) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (+.f64 kx kx)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx)))
(-.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(-.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(-.f64 (.f64 (sin.f64 kx) (cos.f64 (-.f64 (neg.f64 kx) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 kx) (sin.f64 (-.f64 (neg.f64 kx) (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 kx kx)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (sin.f64 kx) (neg.f64 (neg.f64 (sin.f64 kx)))))
(-.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 binary64) (cos.f64 (+.f64 kx kx)))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 (+.f64 kx kx)))))
(cos.f64 (+.f64 (neg.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (+.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx)) (PI.f64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (+.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 kx kx)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (*.f64 #s(literal -2 binary64) kx) (PI.f64)) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (fabs.f64 (+.f64 kx kx)) (PI.f64)) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (+.f64 kx kx) (PI.f64)) (PI.f64)))
(cos.f64 (neg.f64 (fabs.f64 (+.f64 kx kx))))
(cos.f64 (*.f64 #s(literal -2 binary64) kx))
(cos.f64 (fabs.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -2 binary64) kx)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 (+.f64 kx kx))) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 0 binary64) (sin.f64 (+.f64 kx kx))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))) #s(literal 1 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (+.f64 (pow.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (neg.f64 (cos.f64 (+.f64 kx kx)))) (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (*.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (-.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (neg.f64 (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (neg.f64 (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 kx kx))) (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 kx kx))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)))
(*.f64 (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (sin.f64 kx))))
(*.f64 (sin.f64 (fabs.f64 kx)) (sin.f64 (fabs.f64 kx)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(*.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(*.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 kx)))
(*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 0 binary64)))
(*.f64 #s(literal 1/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 1/2 binary64))
(*.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.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 kx kx))))) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 kx)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (*.f64 (sin.f64 kx) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (cos.f64 (-.f64 (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (neg.f64 kx))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (neg.f64 kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (neg.f64 kx) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (neg.f64 kx))) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (sin.f64 (+.f64 (neg.f64 kx) (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 kx)))
(/.f64 (sin.f64 kx) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(neg.f64 (/.f64 (sin.f64 kx) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(neg.f64 (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 kx kx)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx (PI.f64))))))
(-.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))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 kx)))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 kx)))
(fabs.f64 (*.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (sin.f64 kx) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (+.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 kx) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 kx))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) #s(literal 1 binary64))) (*.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) #s(literal 2 binary64)))
(/.f64 (+.f64 (*.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (sin.f64 kx) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 kx) #s(literal 1 binary64)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (+.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 #s(literal 2 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 #s(literal -1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))))
(neg.f64 (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 ky) ky)) ky)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 ky ky)) ky)
(*.f64 #s(literal 2 binary64) ky)
(*.f64 ky #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 ky #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 ky)) #s(literal 3 binary64))) (+.f64 (.f64 ky ky) (-.f64 (.f64 (neg.f64 (neg.f64 ky)) (neg.f64 (neg.f64 ky))) (*.f64 ky (neg.f64 (neg.f64 ky))))))
(/.f64 (-.f64 (.f64 ky ky) (.f64 (neg.f64 ky) (neg.f64 ky))) (+.f64 ky (neg.f64 ky)))
(/.f64 (-.f64 (pow.f64 ky #s(literal 3 binary64)) (pow.f64 (neg.f64 ky) #s(literal 3 binary64))) (+.f64 (.f64 ky ky) (+.f64 (.f64 (neg.f64 ky) (neg.f64 ky)) (*.f64 ky (neg.f64 ky)))))
(/.f64 (-.f64 (.f64 ky ky) (.f64 ky ky)) (-.f64 ky ky))
(/.f64 (+.f64 (pow.f64 ky #s(literal 3 binary64)) (pow.f64 ky #s(literal 3 binary64))) (+.f64 (.f64 ky ky) (-.f64 (.f64 ky ky) (*.f64 ky ky))))
(neg.f64 (*.f64 #s(literal -2 binary64) ky))
(-.f64 ky (neg.f64 ky))
(+.f64 ky (neg.f64 (neg.f64 ky)))
(+.f64 ky ky)
(*.f64 (+.f64 (cos.f64 ky) (sin.f64 ky)) (-.f64 (cos.f64 ky) (sin.f64 ky)))
(.f64 (-.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/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 (pow.f64 (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64)) (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))) (.f64 (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))))))
(/.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 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.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 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (-.f64 ky ky))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (-.f64 ky ky))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) #s(literal 4 binary64))
(/.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))))) (.f64 (-.f64 #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))))) (cos.f64 (-.f64 ky ky)))
(/.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.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 #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 #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 1/2 binary64)))))))
(neg.f64 (neg.f64 (cos.f64 (+.f64 ky ky))))
(sin.f64 (neg.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky)))))
(sin.f64 (neg.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky)) (PI.f64))))
(sin.f64 (+.f64 (neg.f64 (fabs.f64 (+.f64 ky ky))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky))) (PI.f64)))
(sin.f64 (+.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky)) (PI.f64)) (PI.f64)))
(sin.f64 (-.f64 (+.f64 ky (*.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 ky)))
(sin.f64 (+.f64 (+.f64 ky (*.f64 (PI.f64) #s(literal 1/2 binary64))) ky))
(sin.f64 (+.f64 (.f64 #s(literal -2 binary64) ky) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (+.f64 ky ky)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky)))
(-.f64 (.f64 (sin.f64 ky) (cos.f64 (-.f64 (neg.f64 ky) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (.f64 (cos.f64 ky) (sin.f64 (-.f64 (neg.f64 ky) (.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) (sin.f64 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (sin.f64 ky) (neg.f64 (neg.f64 (sin.f64 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 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (fabs.f64 (+.f64 ky ky)))))
(cos.f64 (+.f64 (neg.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (+.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky)) (PI.f64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (+.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 ky ky)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (*.f64 #s(literal -2 binary64) ky) (PI.f64)) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (fabs.f64 (+.f64 ky ky)) (PI.f64)) (PI.f64)))
(cos.f64 (+.f64 (+.f64 (+.f64 ky ky) (PI.f64)) (PI.f64)))
(cos.f64 (neg.f64 (fabs.f64 (+.f64 ky ky))))
(cos.f64 (*.f64 #s(literal -2 binary64) ky))
(cos.f64 (fabs.f64 (+.f64 ky ky)))
(cos.f64 (+.f64 ky ky))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -2 binary64) ky)) #s(literal 0 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (fabs.f64 (+.f64 ky ky))) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal 0 binary64) (sin.f64 (+.f64 ky ky))))
(+.f64 (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(+.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.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) (cos.f64 (+.f64 ky ky)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #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 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(/.f64 (+.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (+.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 kx) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 kx))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (sin.f64 kx) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 kx) #s(literal 1 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (sin.f64 kx))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 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 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)))))
(-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (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 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) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(fabs.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (sqrt.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky)))
(.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal -1 binary64))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 1 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 2 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 ky)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal -2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (sin.f64 ky) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))) #s(literal -1 binary64)))
(+.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 0 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 th) (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th)))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 th)) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) #s(literal -1 binary64))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (sin.f64 th))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 th))) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sin.f64 th) #s(literal -1 binary64)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 th)) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (sin.f64 th) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.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)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 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))) (+.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (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 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (+.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(neg.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #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 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(/.f64 (+.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (+.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 kx) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 kx))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (sin.f64 kx) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 kx) #s(literal 1 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (sin.f64 kx))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 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 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)))))
(-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (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 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) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(fabs.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (sqrt.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (sin.f64 ky)))
(.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64))) (neg.f64 (sin.f64 ky)))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))) (neg.f64 (neg.f64 (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)) (sin.f64 ky))
(/.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (neg.f64 (sin.f64 ky))))
(/.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky)))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(neg.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky)))
(.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal -1 binary64))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 1 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 2 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 ky)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal -2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (sin.f64 ky) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))) #s(literal -1 binary64)))
(+.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 0 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 th) (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th)))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 th)) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) #s(literal -1 binary64))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (sin.f64 th))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 th))) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sin.f64 th) #s(literal -1 binary64)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 th)) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (sin.f64 th) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th)))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))
(*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))) #s(literal 1 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)) #s(literal 1 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1 binary64)))
(*.f64 (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)) (pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (sin.f64 kx))))
(*.f64 (sin.f64 (fabs.f64 kx)) (sin.f64 (fabs.f64 kx)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(*.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(*.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 kx)))
(*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 0 binary64)))
(*.f64 #s(literal 1/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 1/2 binary64))
(*.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)))
(.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(pow.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(pow.f64 (fabs.f64 (sin.f64 kx)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.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 kx kx))))) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (-.f64 kx kx))))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 kx)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (*.f64 (sin.f64 kx) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (sin.f64 kx))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (cos.f64 (-.f64 (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 kx (PI.f64)) (neg.f64 kx))) (cos.f64 (+.f64 (+.f64 kx (PI.f64)) (neg.f64 kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (+.f64 kx (PI.f64)))) (cos.f64 (+.f64 (neg.f64 kx) (+.f64 kx (PI.f64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (neg.f64 kx) (neg.f64 kx))) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (+.f64 kx (PI.f64)) (+.f64 kx (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (sin.f64 (+.f64 (neg.f64 kx) (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 (sin.f64 kx) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 kx)))
(/.f64 (sin.f64 kx) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64)))
(/.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(neg.f64 (/.f64 (sin.f64 kx) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(neg.f64 (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (cos.f64 (-.f64 kx kx)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx (PI.f64))))))
(-.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))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 kx)))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 kx)))
(fabs.f64 (*.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(fabs.f64 (*.f64 (sin.f64 kx) (fabs.f64 (sin.f64 kx))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #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 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))
(pow.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(/.f64 (+.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal -1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 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 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (+.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (neg.f64 (sin.f64 kx)) (sin.f64 kx)) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))
(/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (sin.f64 kx) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 kx))) #s(literal 2 binary64)) (.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (neg.f64 (sin.f64 kx)) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (sin.f64 kx) #s(literal 2 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 kx) #s(literal 1 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 kx kx)) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 kx)))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (+.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky ky)) (cos.f64 (+.f64 ky ky))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (.f64 #s(literal 2 binary64) (sin.f64 kx))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (-.f64 (.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #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/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 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 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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))) (+.f64 (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)))))
(-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 (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 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) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal -1/2 binary64) (.f64 (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 kx kx)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(sqrt.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(fabs.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.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 kx kx))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))) (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 (-.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(.f64 (sqrt.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky))))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (neg.f64 (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal -1 binary64) (sin.f64 kx))) (neg.f64 (sin.f64 kx)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))
(fabs.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(fabs.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(fabs.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal -1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky)))
(.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal -1 binary64))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)) (.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) #s(literal 1 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 1 binary64)) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 2 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) #s(literal 1 binary64))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 ky)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal -2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 2 binary64)))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 2 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (sin.f64 ky) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))) #s(literal -1 binary64)))
(+.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 0 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal -1 binary64) (sin.f64 ky))))
(.f64 (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 th) (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th)))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 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 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 2 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 2 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 2 binary64) (sin.f64 th)) (.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) #s(literal -1 binary64))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 th))) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky)))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) #s(literal -1 binary64))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 #s(literal -1 binary64) (sin.f64 th))) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 th))) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 (neg.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sin.f64 th) #s(literal -1 binary64)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (neg.f64 (sin.f64 th)) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (neg.f64 (sin.f64 ky))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (sin.f64 ky))) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
(/.f64 (sin.f64 th) (.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th)))

eval170.0ms (1.8%)

Memory: 19.6MiB live, 675.3MiB allocated; 78ms collecting garbage
Compiler: Compiled 46 790 to 7 316 computations (84.4% saved)

prune66.0ms (0.7%)

Memory

-25.0MiB live, 165.5MiB allocated; 19ms collecting garbage

Pruning

41 alts after pruning (40 fresh and 1 done)

	Pruned	Kept	Total
New	1 147	30	1 177
Fresh	7	10	17
Picked	5	0	5
Done	-1	1	0
Total	1 158	41	1 199

Accuracy

100.0%

Counts

1 199 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.1%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
	73.0%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))
	72.5%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
	18.0%	(*.f64 (/.f64 (sin.f64 (+.f64 (neg.f64 ky) (PI.f64))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 (+.f64 (neg.f64 ky) (PI.f64))) #s(literal 2 binary64))))) (sin.f64 th))
	7.1%	(*.f64 (/.f64 (sin.f64 (neg.f64 (+.f64 (PI.f64) ky))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (+.f64 (PI.f64) ky))) #s(literal 2 binary64))))) (sin.f64 th))
	73.2%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
	35.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (pow.f64 kx #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 th))
	32.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 th))
	73.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))) (sin.f64 th))
▶	94.8%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	50.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))))) (sin.f64 th))
✓	81.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	74.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	41.0%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	31.1%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (- (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	45.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (sin.f64 th))
▶	73.2%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (sin.f64 ky))) (sin.f64 th))
	31.1%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (- ( (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (sin.f64 ky))) (sin.f64 th))
	32.2%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (- ( (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))) (sin.f64 ky))) (sin.f64 th))
	73.1%	(.f64 (/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
	72.9%	(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 th) (sin.f64 ky)))
	27.1%	(.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt (- 1/2 (- ( (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) ky))) (sin.f64 th))
	27.2%	(.f64 #s(approx (/ (sin ky) (sqrt (- (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (/.f64 ky (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	32.0%	#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
	37.0%	#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
	39.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (fabs.f64 (sin.f64 kx))))
▶	40.4%	#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 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
	90.2%	#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 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 th (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.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	28.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (sin.f64 kx)) (sqrt.f64 (sin.f64 kx)))))
	10.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (neg.f64 (sin.f64 kx))) (sqrt.f64 (neg.f64 (sin.f64 kx))))))
	27.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
	20.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(approx (* ky (sin th)) (*.f64 ky th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
	38.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 (sin.f64 kx)) (*.f64 (sin.f64 th) ky))))
	42.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 kx))) ky))
	38.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) ky) (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
	42.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (fabs.f64 (sin.f64 kx)))))
	42.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sin.f64 th) (.f64 ky (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))))
▶	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky (sin.f64 th)) kx)))
	37.1%	#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))

Compiler

Compiled 2 280 to 1 768 computations (22.5% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
1
-2
2
1/2
(sqrt 1/2)

Outputs
#s(literal 1 binary64)
#s(literal -2 binary64)
#s(literal 2 binary64)
#s(literal 1/2 binary64)
#s(literal 6369051672525773/9007199254740992 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 8 to 7 computations (12.5% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series2.1s (22.4%)

Memory

-333.3MiB live, 501.4MiB allocated; 2.8s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1302	10942

Stop Event

1×	iter-limit

Counts

42 → 217

Calls

Call 1

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

Outputs
#s(approx kx kx)
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (/ 1 (sin kx)) (/.f64 #s(literal 1 binary64) kx))
#s(approx (/ 1 (sin kx)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/6 binary64) (pow.f64 kx #s(literal 2 binary64)))) kx))
#s(approx (/ 1 (sin kx)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal 7/360 binary64) (pow.f64 kx #s(literal 2 binary64)))))) kx))
#s(approx (/ 1 (sin kx)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 7/360 binary64) (*.f64 #s(literal 31/15120 binary64) (pow.f64 kx #s(literal 2 binary64)))))))) kx))
#s(approx (pow (/ 1 (sin kx)) -2) (pow.f64 kx #s(literal 2 binary64)))
#s(approx (pow (/ 1 (sin kx)) -2) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (pow (/ 1 (sin kx)) -2) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (/ 1 (sin kx)) -2) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (pow.f64 kx #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sin.f64 th))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* ky (sin th)) kx) (/.f64 (*.f64 ky (sin.f64 th)) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 ky (sin.f64 th)))) (.f64 ky (sin.f64 th))) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 ky (sin.f64 th)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th)))))) (.f64 #s(literal -1/6 binary64) (.f64 ky (sin.f64 th)))))) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 ky (sin.f64 th)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 ky (sin.f64 th))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/6 binary64) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th))))))))) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th)))))) (.f64 #s(literal -1/6 binary64) (.f64 ky (sin.f64 th)))))) kx))
#s(approx (+ kx kx) (*.f64 #s(literal 2 binary64) kx))
#s(approx (cos (+ kx kx)) #s(literal 1 binary64))
#s(approx (cos (+ kx kx)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 kx #s(literal 2 binary64)))))
#s(approx (cos (+ kx kx)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/3 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 2 binary64)))))
#s(approx (cos (+ kx kx)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/3 binary64) (*.f64 #s(literal -4/45 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (- 1 (cos (+ kx kx))) (*.f64 #s(literal 2 binary64) (pow.f64 kx #s(literal 2 binary64))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2 binary64) (.f64 #s(literal -2/3 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 2/3 binary64))))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 4/45 binary64) (.f64 #s(literal -2/315 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 2/3 binary64))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 kx (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 kx (+.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 kx (+.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 kx (+.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/315 binary64) (.f64 #s(literal -1/3 binary64) (/.f64 (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 kx (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 kx (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 kx (+.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 kx (+.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (+.f64 #s(literal 2/315 binary64) (.f64 #s(literal -1/3 binary64) (/.f64 (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (-.f64 #s(literal 4/45 binary64) (*.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (.f64 ky (sin.f64 th)) (.f64 kx (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (+.f64 (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 ky (sin.f64 th))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64))))) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) kx))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/9 binary64) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 ky (.f64 (sin.f64 th) (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64)))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64))))))) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) kx))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 ky (.f64 (sin.f64 th) (+.f64 #s(literal 2/315 binary64) (.f64 #s(literal -1/3 binary64) (/.f64 (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 ky (.f64 (sin.f64 th) (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64))))) (.f64 #s(literal 1/3 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/9 binary64) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 ky (.f64 (sin.f64 th) (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))))))) (+.f64 (.f64 #s(literal -1/9 binary64) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 ky (.f64 (sin.f64 th) (-.f64 #s(literal 4/45 binary64) (.f64 #s(literal 1/9 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64)))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3 binary64))))))) (/.f64 (.f64 ky (sin.f64 th)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) kx))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) ky)) (.f64 #s(literal -2 binary64) (pow.f64 kx #s(literal 2 binary64)))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) ky)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/3 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 2 binary64)))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) ky)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/3 binary64) (.f64 #s(literal -4/45 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (+.f64 (.f64 #s(literal -1 binary64) (pow.f64 kx #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 kx #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky)))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) (sin.f64 ky))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sin.f64 th))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))))
#s(approx (sin kx) (sin.f64 kx))
#s(approx (/ 1 (sin kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
#s(approx (pow (/ 1 (sin kx)) -2) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (sqrt.f64 (+.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 (/ 1 (sin kx)) -2) (pow (sin ky) 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))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (cos (+ kx kx)) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))
#s(approx (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))) (sin.f64 ky)))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))
#s(approx (cos (+ kx kx)) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx))))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx)))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx))))))
#s(approx (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx)))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) kx))))))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))) (sin.f64 ky)))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) kx))) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))
#s(approx ky ky)
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 ky #s(literal 2 binary64))))))
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64))))))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (pow.f64 ky #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64))))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64))))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* ky (sin th)) (*.f64 ky (sin.f64 th)))
#s(approx (* (sin ky) (sin th)) (.f64 ky (+.f64 (sin.f64 th) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th))))))
#s(approx (* (sin ky) (sin th)) (.f64 ky (+.f64 (sin.f64 th) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th))))))))
#s(approx (* (sin ky) (sin th)) (.f64 ky (+.f64 (sin.f64 th) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th))) (*.f64 #s(literal 1/120 binary64) (sin.f64 th)))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (pow (sin ky) 2))) (sin.f64 th))
#s(approx (+ ky ky) (*.f64 #s(literal 2 binary64) ky))
#s(approx (cos (+ ky ky)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (pow.f64 ky #s(literal 2 binary64)))))
#s(approx (cos (+ ky ky)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/3 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 2 binary64)))))
#s(approx (cos (+ ky ky)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 2/3 binary64) (*.f64 #s(literal -4/45 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (.f64 #s(literal -2 binary64) (pow.f64 ky #s(literal 2 binary64)))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/3 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 2 binary64)))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 2/3 binary64) (.f64 #s(literal -4/45 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 2 binary64)))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (+.f64 (.f64 #s(literal -1 binary64) (pow.f64 ky #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 ky #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) ky))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))))) ky))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (.f64 #s(literal 1/120 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) ky))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (+.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (.f64 #s(literal 1/120 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (+.f64 (.f64 #s(literal -1/5040 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))) (.f64 #s(literal 1/120 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))))))) (+.f64 (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (.f64 #s(literal 1/120 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))) (.f64 #s(literal -1/6 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))))) ky))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (/.f64 ky (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (.f64 ky (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64))))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (sin ky) (sin.f64 ky))
#s(approx (* (sin ky) (sin th)) (*.f64 (sin.f64 ky) (sin.f64 th)))
#s(approx (cos (+ ky ky)) (cos.f64 (neg.f64 (*.f64 #s(literal -2 binary64) ky))))
#s(approx (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64)))
#s(approx (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (*.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64))))
#s(approx (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (*.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (*.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64))))))
#s(approx (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (*.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64))))) (sin.f64 ky)))
#s(approx (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (*.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (.f64 #s(literal -2 binary64) ky))) (cos.f64 (.f64 #s(literal 2 binary64) kx))) #s(literal 1 binary64)))))))
#s(approx th th)
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 th #s(literal 2 binary64))))))
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 th #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 th #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (+.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 (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (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) (sqrt.f64 (+.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 (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (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 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (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) (sqrt.f64 (+.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 (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (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 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (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 #s(literal 1/120 binary64) (/.f64 (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) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
#s(approx (* ky (sin th)) (*.f64 ky th))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64)))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) ky) (.f64 #s(literal 1/120 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64)))))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 ky (pow.f64 th #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) ky))))))))
#s(approx (/ (* ky (sin th)) kx) (/.f64 (*.f64 ky th) kx))
#s(approx (/ (* ky (sin th)) kx) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) kx)) (/.f64 ky kx))))
#s(approx (/ (* ky (sin th)) kx) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky kx)) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) kx)))) (/.f64 ky kx))))
#s(approx (/ (* ky (sin th)) kx) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky kx)) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) kx)) (*.f64 #s(literal 1/120 binary64) (/.f64 ky kx)))))) (/.f64 ky kx))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/120 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (/.f64 (.f64 ky th) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (/ (* ky (sin th)) (* (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (.f64 #s(literal 1/120 binary64) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))))))) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))))
#s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky)))
#s(approx (* (sin ky) (sin th)) (.f64 th (+.f64 (sin.f64 ky) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky))))))
#s(approx (* (sin ky) (sin th)) (.f64 th (+.f64 (sin.f64 ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky))))))))
#s(approx (* (sin ky) (sin th)) (.f64 th (+.f64 (sin.f64 ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky))) (*.f64 #s(literal 1/120 binary64) (sin.f64 ky)))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (pow (sin ky) 2))) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (pow (sin ky) 2))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (pow (sin ky) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (pow (sin ky) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (*.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))))
#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))) (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64))))))))))) (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (*.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))))

Calls

9 calls:

Time	Variable	Point
37.0ms	th	0
21.0ms	th	inf
13.0ms	ky	-inf
12.0ms	ky	0
9.0ms	kx	inf

rewrite199.0ms (2.1%)

Memory

-10.1MiB live, 561.1MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	54	398
0	87	391
1	363	381
2	1386	377
0	4351	377

Stop Event

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

Counts

42 → 570

Calls

Call 1

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

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

eval154.0ms (1.6%)

Memory: 9.3MiB live, 435.6MiB allocated; 95ms collecting garbage
Compiler: Compiled 37 522 to 5 527 computations (85.3% saved)

prune106.0ms (1.1%)

Memory

-3.7MiB live, 283.1MiB allocated; 17ms collecting garbage

Pruning

62 alts after pruning (60 fresh and 2 done)

	Pruned	Kept	Total
New	879	43	922
Fresh	18	17	35
Picked	5	0	5
Done	-1	2	1
Total	901	62	963

Accuracy

100.0%

Counts

963 → 62

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.2%	(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
	73.1%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
	72.5%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
	73.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (sin.f64 ky))
	73.2%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
	35.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (pow.f64 kx #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 th))
	32.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 th))
	73.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))) (sin.f64 th))
	50.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64)) #s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))))) (sin.f64 th))
	50.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))))) (sin.f64 th))
✓	81.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	74.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	85.9%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64)))) #s(literal 1/2 binary64)))) (sin.f64 th))
	31.1%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (- (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	45.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (sin.f64 th))
	73.0%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sin.f64 ky))) (sin.f64 th))
✓	73.2%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (sin.f64 ky))) (sin.f64 th))
	31.1%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))) (sin.f64 ky))) (sin.f64 th))
	73.2%	(.f64 (/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (*.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (sin.f64 th))
	73.0%	(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 th) (sin.f64 ky)))
	27.1%	(.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt (- 1/2 (- ( (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) ky))) (sin.f64 th))
	37.0%	#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
▶	90.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
	48.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (fabs.f64 (sin.f64 ky))))
	39.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (fabs.f64 (sin.f64 kx))))
▶	34.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (sin.f64 ky)))))
	31.9%	#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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
	32.0%	#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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	11.3%	#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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))
	26.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
	11.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (+.f64 kx (*.f64 (PI.f64) #s(literal 1/2 binary64))) kx)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	11.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (.f64 #s(literal -2 binary64) kx) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	1.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (cos (+ kx kx)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	26.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 (neg.f64 (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	18.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (*.f64 #s(literal 2 binary64) (pow.f64 kx #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 #s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 kx (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	20.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) #s(approx ( (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 kx (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
	14.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(approx (* ky (sin th)) (.f64 ky th)) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	48.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 (sin.f64 ky)) (*.f64 (sin.f64 th) (sin.f64 ky)))))
	38.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 (sin.f64 kx)) (*.f64 (sin.f64 th) ky))))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))))
	27.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) ky))
▶	44.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky))) (sin.f64 ky)))
▶	42.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 kx))) ky))
	48.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	38.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 th) ky) (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
	44.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (copysign.f64 #s(literal 1 binary64) (sin.f64 ky))))
	42.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (fabs.f64 (sin.f64 kx)))))
	44.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))))))
	42.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sin.f64 th) (.f64 ky (fabs.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))))))
	31.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* (sin ky) (sin th)) (sqrt (pow (sin ky) 2))) (sin.f64 th)))
	14.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (.f64 ky #s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 th #s(literal 2 binary64))))))) kx)))
	14.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64))))))) kx)))
▶	15.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(approx (* ky (sin th)) (*.f64 ky th)) kx)))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (/.f64 kx (*.f64 (sin.f64 th) ky)))))
	24.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (*.f64 (/.f64 (sin.f64 th) kx) ky)))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 (/.f64 #s(literal 1 binary64) kx) (.f64 (sin.f64 th) ky))))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (*.f64 (sin.f64 th) (/.f64 ky kx))))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 (sin.f64 th) (.f64 ky (/.f64 #s(literal 1 binary64) kx)))))
	37.1%	#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
	37.0%	#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))

Compiler

Compiled 3 744 to 2 817 computations (24.8% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
2

Outputs
#s(literal 2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 3 to 3 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series118.0ms (1.2%)

Memory

24.5MiB live, 212.9MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	710	4160

Stop Event

1×	iter-limit

Counts

31 → 123

Calls

Call 1

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

Outputs
#s(approx kx kx)
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (pow (sin kx) 2) (pow.f64 kx #s(literal 2 binary64)))
#s(approx (pow (sin kx) 2) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64))))))
#s(approx (pow (sin kx) 2) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin kx) 2) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 kx #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (pow.f64 kx #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 kx #s(literal 2 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 kx #s(literal 2 binary64))) #s(literal 1/3 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 kx #s(literal 2 binary64)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 (sin.f64 ky) (sin.f64 th))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (+.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 5 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* ky (sin th)) kx) (/.f64 (*.f64 ky (sin.f64 th)) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (.f64 ky (sin.f64 th)))) (.f64 ky (sin.f64 th))) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 ky (sin.f64 th)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th)))))) (.f64 #s(literal -1/6 binary64) (.f64 ky (sin.f64 th)))))) kx))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 ky (sin.f64 th)) (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 kx #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 kx #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 ky (sin.f64 th))) (+.f64 (.f64 #s(literal 1/720 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/6 binary64) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th))))))))) (+.f64 (.f64 #s(literal -1/36 binary64) (.f64 ky (sin.f64 th))) (.f64 #s(literal 1/120 binary64) (.f64 ky (sin.f64 th)))))) (.f64 #s(literal -1/6 binary64) (.f64 ky (sin.f64 th)))))) kx))
#s(approx (fabs (sin kx)) (fabs.f64 (sin.f64 kx)))
#s(approx (/ (sin th) (fabs (sin kx))) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 kx))))
#s(approx (* (/ (sin th) (fabs (sin kx))) ky) (/.f64 (*.f64 ky (sin.f64 th)) (fabs.f64 (sin.f64 kx))))
#s(approx (sin kx) (sin.f64 kx))
#s(approx (pow (sin kx) 2) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx ky ky)
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 ky #s(literal 2 binary64))))))
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin ky) (.f64 ky (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin ky) (sin th)) (*.f64 ky (sin.f64 th)))
#s(approx (* (sin ky) (sin th)) (.f64 ky (+.f64 (sin.f64 th) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th))))))
#s(approx (* (sin ky) (sin th)) (.f64 ky (+.f64 (sin.f64 th) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th))))))))
#s(approx (* (sin ky) (sin th)) (.f64 ky (+.f64 (sin.f64 th) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th))) (*.f64 #s(literal 1/120 binary64) (sin.f64 th)))))))))
#s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64))))))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin ky) 2) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 ky #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (pow.f64 ky #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 ky #s(literal 2 binary64))))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/3 binary64))))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (+.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sin.f64 th) (-.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64))))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 #s(literal 1/3 binary64) (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64))))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (* ky th) (*.f64 ky th))
#s(approx (fabs (sin ky)) (fabs.f64 (sin.f64 ky)))
#s(approx (/ (sin th) (fabs (sin ky))) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (/.f64 (*.f64 ky (sin.f64 th)) (fabs.f64 (sin.f64 ky))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (.f64 ky (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th)) (fabs.f64 (sin.f64 ky)))) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky)))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th)) (fabs.f64 (sin.f64 ky)))))) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky)))) (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th)) (fabs.f64 (sin.f64 ky)))) (*.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky)))))))) (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 ky))))))
#s(approx (sqrt (sin ky)) (sqrt.f64 ky))
#s(approx (sqrt (sin ky)) (+.f64 (sqrt.f64 ky) (*.f64 #s(literal -1/12 binary64) (/.f64 (pow.f64 ky #s(literal 3 binary64)) (sqrt.f64 ky)))))
#s(approx (sqrt (sin ky)) (+.f64 (sqrt.f64 ky) (.f64 (pow.f64 ky #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/240 binary64) (/.f64 (pow.f64 ky #s(literal 2 binary64)) (sqrt.f64 ky))) (*.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 ky)))))))
#s(approx (sqrt (sin ky)) (+.f64 (sqrt.f64 ky) (.f64 (pow.f64 ky #s(literal 3 binary64)) (-.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/288 binary64) (/.f64 ky (pow.f64 (sqrt.f64 ky) #s(literal 3 binary64)))) (.f64 #s(literal 1/240 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 ky))))) (*.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 ky)))))))
#s(approx (* (sqrt (sin ky)) (sqrt (sin ky))) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64)))
#s(approx (* (sqrt (sin ky)) (sqrt (sin ky))) (+.f64 (*.f64 #s(literal -1/6 binary64) (pow.f64 ky #s(literal 3 binary64))) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64))))
#s(approx (* (sqrt (sin ky)) (sqrt (sin ky))) (+.f64 (.f64 (pow.f64 ky #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 ky #s(literal 2 binary64))) #s(literal 1/6 binary64))) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (/.f64 (*.f64 ky (sin.f64 th)) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (.f64 ky (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 ky #s(literal 2 binary64)) (sin.f64 th)) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64)))) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 ky (sin.f64 th)) (pow.f64 (sqrt.f64 ky) #s(literal 4 binary64)))))) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (.f64 ky (+.f64 (.f64 (pow.f64 ky #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64)))) (.f64 ky (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (.f64 ky (sin.f64 th)) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64)))) (*.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 ky) #s(literal 4 binary64)))))))) (/.f64 (sin.f64 th) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64))))))
#s(approx (sin ky) (sin.f64 ky))
#s(approx (* (sin ky) (sin th)) (*.f64 (sin.f64 ky) (sin.f64 th)))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (fabs.f64 (sin.f64 ky))))
#s(approx (sqrt (sin ky)) (sqrt.f64 (sin.f64 ky)))
#s(approx (* (sqrt (sin ky)) (sqrt (sin ky))) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64))))
#s(approx th th)
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 th #s(literal 2 binary64))))))
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 th #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 th #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky)))
#s(approx (* (sin ky) (sin th)) (.f64 th (+.f64 (sin.f64 ky) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky))))))
#s(approx (* (sin ky) (sin th)) (.f64 th (+.f64 (sin.f64 ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky))))))))
#s(approx (* (sin ky) (sin th)) (.f64 th (+.f64 (sin.f64 ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky))) (*.f64 #s(literal 1/120 binary64) (sin.f64 ky)))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (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) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (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 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (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) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (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 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (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 #s(literal 1/120 binary64) (/.f64 (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) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64)))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) ky) (.f64 #s(literal 1/120 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64)))))))))
#s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) ky) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 ky (pow.f64 th #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) ky))))))))
#s(approx (/ (* ky (sin th)) kx) (/.f64 (*.f64 ky th) kx))
#s(approx (/ (* ky (sin th)) kx) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) kx)) (/.f64 ky kx))))
#s(approx (/ (* ky (sin th)) kx) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky kx)) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) kx)))) (/.f64 ky kx))))
#s(approx (/ (* ky (sin th)) kx) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky kx)) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) kx)) (*.f64 #s(literal 1/120 binary64) (/.f64 ky kx)))))) (/.f64 ky kx))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (*.f64 ky th) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (*.f64 #s(literal 1/120 binary64) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))) (/.f64 ky (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))
#s(approx (/ (sin th) (fabs (sin kx))) (/.f64 th (fabs.f64 (sin.f64 kx))))
#s(approx (/ (sin th) (fabs (sin kx))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 th #s(literal 2 binary64)) (fabs.f64 (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx))))))
#s(approx (/ (sin th) (fabs (sin kx))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 th #s(literal 2 binary64)) (fabs.f64 (sin.f64 kx)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx)))))) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx))))))
#s(approx (/ (sin th) (fabs (sin kx))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 th #s(literal 2 binary64)) (fabs.f64 (sin.f64 kx)))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx)))))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx)))))) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx))))))
#s(approx (* (/ (sin th) (fabs (sin kx))) ky) (/.f64 (*.f64 ky th) (fabs.f64 (sin.f64 kx))))
#s(approx (* (/ (sin th) (fabs (sin kx))) ky) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (fabs.f64 (sin.f64 kx)))) (/.f64 ky (fabs.f64 (sin.f64 kx))))))
#s(approx (* (/ (sin th) (fabs (sin kx))) ky) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (fabs.f64 (sin.f64 kx)))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 ky (pow.f64 th #s(literal 2 binary64))) (fabs.f64 (sin.f64 kx)))))) (/.f64 ky (fabs.f64 (sin.f64 kx))))))
#s(approx (* (/ (sin th) (fabs (sin kx))) ky) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 ky (fabs.f64 (sin.f64 kx)))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 ky (pow.f64 th #s(literal 2 binary64))) (fabs.f64 (sin.f64 kx)))) (*.f64 #s(literal 1/120 binary64) (/.f64 ky (fabs.f64 (sin.f64 kx)))))))) (/.f64 ky (fabs.f64 (sin.f64 kx))))))
#s(approx (/ (sin th) (fabs (sin ky))) (/.f64 th (fabs.f64 (sin.f64 ky))))
#s(approx (/ (sin th) (fabs (sin ky))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 th #s(literal 2 binary64)) (fabs.f64 (sin.f64 ky)))) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))))))
#s(approx (/ (sin th) (fabs (sin ky))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 th #s(literal 2 binary64)) (fabs.f64 (sin.f64 ky)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky)))))) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))))))
#s(approx (/ (sin th) (fabs (sin ky))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 th #s(literal 2 binary64)) (fabs.f64 (sin.f64 ky)))) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky)))))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky)))))) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (/.f64 (*.f64 th (sin.f64 ky)) (fabs.f64 (sin.f64 ky))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (fabs.f64 (sin.f64 ky)))) (/.f64 (sin.f64 ky) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (fabs.f64 (sin.f64 ky)))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (fabs.f64 (sin.f64 ky)))))) (/.f64 (sin.f64 ky) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (fabs.f64 (sin.f64 ky)))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (fabs.f64 (sin.f64 ky)))) (*.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (fabs.f64 (sin.f64 ky)))))))) (/.f64 (sin.f64 ky) (fabs.f64 (sin.f64 ky))))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (/.f64 (*.f64 th (sin.f64 ky)) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (.f64 th (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))) (.f64 #s(literal 1/120 binary64) (/.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))))) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64))))))
#s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (.f64 th (+.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))) (.f64 (pow.f64 th #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 th #s(literal 2 binary64)) (sin.f64 ky)) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))))))) (/.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64))))))
#s(approx (sin th) (sin.f64 th))

Calls

9 calls:

Time	Variable	Point
24.0ms	th	-inf
17.0ms	ky	inf
6.0ms	ky	-inf
5.0ms	th	inf
5.0ms	ky	0

rewrite193.0ms (2.0%)

Memory

-12.6MiB live, 565.0MiB allocated; 31ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	51	312
0	78	277
1	237	277
2	845	265
0	4178	265

Stop Event

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

Counts

31 → 880

Calls

Call 1

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

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

eval130.0ms (1.4%)

Memory: 5.6MiB live, 518.0MiB allocated; 60ms collecting garbage
Compiler: Compiled 52 070 to 5 357 computations (89.7% saved)

prune112.0ms (1.2%)

Memory

23.6MiB live, 301.5MiB allocated; 45ms collecting garbage

Pruning

75 alts after pruning (71 fresh and 4 done)

	Pruned	Kept	Total
New	1 128	30	1 158
Fresh	14	41	55
Picked	5	0	5
Done	-2	4	2
Total	1 145	75	1 220

Accuracy

100.0%

Counts

1 220 → 75

Alt Table

Click to see full alt table

Status	Accuracy	Program
	73.2%	(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (*.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
	73.1%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
	72.5%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 th) (sin.f64 ky))))
	73.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (sin.f64 ky))
	73.2%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1 binary64)) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))
	35.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (+.f64 #s(literal 1/2 binary64) (pow.f64 kx #s(literal 2 binary64)))) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 th))
	73.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))))) (sin.f64 th))
	50.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64)) #s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))))) (sin.f64 th))
	50.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (pow.f64 ky #s(literal 2 binary64)))))) (sin.f64 th))
✓	81.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	74.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	85.9%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64)))) #s(literal 1/2 binary64)))) (sin.f64 th))
	31.1%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (- (+ ( (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2))) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	73.0%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (.f64 (sqrt.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sin.f64 ky))) (sin.f64 th))
✓	73.2%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))) (sin.f64 ky))) (sin.f64 th))
	31.1%	(.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))) (sin.f64 ky))) (sin.f64 th))
	73.2%	(.f64 (/.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (*.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (sin.f64 th))
	73.0%	(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 th) (sin.f64 ky)))
	27.1%	(.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt (- 1/2 (- ( (cos (+ ky ky)) 1/2) (* (- 1 (cos (+ kx kx))) 1/2)))) (sin ky)) (/.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) ky))) (sin.f64 th))
	37.0%	#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ kx kx))) 1/2) 1/2) (* (cos (+ ky ky)) 1/2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))
	90.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) #s(literal 2 binary64))))))
	45.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin 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) (pow.f64 ky #s(literal 2 binary64)))))))
	42.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (/ 1 (sin kx)) -2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 th (sin.f64 ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
	48.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (fabs.f64 (sin.f64 ky))))
	39.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (fabs.f64 (sin.f64 kx))))
	20.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (.f64 #s(approx (sqrt (sin ky)) (sqrt.f64 ky)) #s(approx (sqrt (sin ky)) (sqrt.f64 ky)))))
	32.0%	#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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	11.3%	#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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))
	34.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx ( (sqrt (sin ky)) (sqrt (sin ky))) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))))
	26.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
	18.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (*.f64 #s(literal 2 binary64) (pow.f64 kx #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (.f64 #s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 kx (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	20.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) #s(approx ( (sqrt (- 1 (cos (+ kx kx)))) (sqrt 1/2)) (.f64 kx (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
	14.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(approx (* ky (sin th)) (.f64 ky th)) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))))
	48.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 (sin.f64 ky)) (*.f64 (sin.f64 th) (sin.f64 ky)))))
	41.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (/.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 (sin.f64 ky))) (sin.f64 ky)) (sqrt.f64 (sin.f64 ky))) (fabs.f64 (sin.f64 kx))) ky))
	23.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 (+.f64 (+.f64 th (PI.f64)) (PI.f64))) (fabs.f64 (sin.f64 ky))) (sin.f64 ky)))
	5.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 (+.f64 (neg.f64 th) (PI.f64))) (fabs.f64 (sin.f64 ky))) (sin.f64 ky)))
	4.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 (neg.f64 (+.f64 th (PI.f64)))) (fabs.f64 (sin.f64 ky))) (sin.f64 ky)))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))))
	27.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) ky))
✓	42.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 th) (fabs.f64 (sin.f64 kx))) ky))
	15.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (sin.f64 th) (fabs.f64 (cos.f64 (+.f64 (neg.f64 kx) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) ky))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (sin.f64 th) (fabs.f64 #s(approx (sin kx) (.f64 kx (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 kx #s(literal 2 binary64)))))))) ky))
	8.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (cos.f64 (+.f64 (neg.f64 th) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 ky))) (sin.f64 ky)))
	6.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 (cos.f64 (+.f64 (neg.f64 th) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 kx))) ky))
	31.1%	#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) (sin.f64 th))) (sin.f64 ky)))
	42.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 th))) ky))
	48.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	38.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 kx))) (.f64 (sin.f64 th) ky)))
	31.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sin.f64 th)) (sin.f64 ky)))
	44.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (copysign.f64 #s(literal 1 binary64) (sin.f64 ky))))
	42.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (fabs.f64 (sin.f64 kx)))))
	44.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 ky))))))
	24.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 #s(approx (/ (sin th) (fabs (sin ky))) (/.f64 th (fabs.f64 (sin.f64 ky)))) (sin.f64 ky)))
	24.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 #s(approx (/ (sin th) (fabs (sin kx))) (/.f64 th (fabs.f64 (sin.f64 kx)))) ky))
	31.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	20.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (/.f64 (*.f64 th (sin.f64 ky)) (pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64)))))
	34.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* (sin ky) (sin th)) (* (sqrt (sin ky)) (sqrt (sin ky)))) (/.f64 (*.f64 ky (sin.f64 th)) (pow.f64 (sqrt.f64 ky) #s(literal 2 binary64)))))
	14.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (+.f64 (.f64 #s(approx ( ky (sin th)) (.f64 th ky)) #s(literal 1/2 binary64)) (.f64 #s(approx (* ky (sin th)) (*.f64 th ky)) #s(literal 1/2 binary64))) kx)))
	14.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 (.f64 ky #s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 th #s(literal 2 binary64))))))) kx)))
	14.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(approx (* ky (sin th)) (.f64 th (+.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky (pow.f64 th #s(literal 2 binary64))))))) kx)))
✓	15.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(approx (* ky (sin th)) (*.f64 ky th)) kx)))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (/.f64 kx (*.f64 (sin.f64 th) ky)))))
	15.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (/.f64 #s(literal 1 binary64) (/.f64 kx #s(approx (* ky (sin th)) (*.f64 th ky))))))
	24.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (*.f64 (/.f64 (sin.f64 th) kx) ky)))
	15.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 (/.f64 #s(literal 1 binary64) kx) #s(approx ( ky (sin th)) (*.f64 th ky)))))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (*.f64 (sin.f64 th) (/.f64 ky kx))))
	23.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (/ (* ky (sin th)) (sqrt (pow (sin kx) 2))) (.f64 (sin.f64 th) (.f64 ky (/.f64 #s(literal 1 binary64) kx)))))
	28.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (/.f64 (*.f64 th (sin.f64 ky)) (fabs.f64 (sin.f64 ky)))))
	18.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (/ (sin th) (fabs (sin ky))) (sin ky)) (/.f64 (*.f64 ky (sin.f64 th)) (fabs.f64 (sin.f64 ky)))))
	21.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (* (/ (sin th) (fabs (sin kx))) ky) (/.f64 (*.f64 ky th) (fabs.f64 (sin.f64 kx)))))
	37.1%	#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* (cos (+ kx kx)) 1/2)) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))))))
	37.0%	#s(approx (* (/ 1 (/ (sqrt (- 1/2 (* (- (cos (+ ky ky)) (- 1 (cos (+ kx kx)))) 1/2))) (sin ky))) (sin th)) (/.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 2 binary64) kx)) (cos.f64 (.f64 #s(literal 2 binary64) ky))) #s(literal 1 binary64)))))))

Compiler

Compiled 2 382 to 1 723 computations (27.7% saved)

regimes2.1s (21.6%)

Memory

40.3MiB live, 5 369.9MiB allocated; 742ms collecting garbage

Counts

1 → 1

2 → 1

4 → 1

6 → 2

7 → 2

9 → 2

10 → 3

22 → 2

23 → 3

24 → 3

25 → 3

27 → 3

50 → 3

73 → 3

86 → 5

87 → 5

89 → 4

91 → 4

102 → 4

106 → 4

111 → 4

112 → 4

113 → 3

117 → 3

120 → 2

126 → 2

Calls

Call 1

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

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

Call 2

Inputs

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

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

Outputs

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

Call 3

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

Outputs

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

Call 4

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

Outputs

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

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

Call 5

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

Outputs

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

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

Call 6

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

Outputs

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

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

Call 7

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

Outputs

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

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

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

Call 8

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

Outputs

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

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

Call 9

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

Outputs

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

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

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

Call 10

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

Outputs

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

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

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

Call 11

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

Outputs

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

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

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

Call 12

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

Outputs

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

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

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

Call 13

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

Outputs

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

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

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

Call 14

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

Outputs

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

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

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

Call 15

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

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

Call 16

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

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

Call 17

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

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

Call 18

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

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

Call 19

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

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

Call 20

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

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

Call 21

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

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

Call 22

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

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

Call 23

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

Outputs

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

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

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

Call 24

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

Outputs

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

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

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

Call 25

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

Outputs

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

(*.f64 (/.f64 (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))

Call 26

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

Outputs

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

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

Calls

95 calls:

76.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
68.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))
64.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
63.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
62.0ms	ky

Results

Accuracy	Segments	Branch
15.0%	1	`(sin.f64 th)`
15.0%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
15.0%	1	`th`
15.0%	1	`(sin.f64 ky)`
15.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)))))`
15.0%	1	`kx`
15.0%	1	`(sin.f64 kx)`
15.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))`
15.0%	1	`ky`
15.0%	1	`(sin.f64 th)`
15.0%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
15.0%	1	`th`
15.0%	1	`kx`
15.0%	1	`(sin.f64 ky)`
15.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)))))`
15.0%	1	`(sin.f64 kx)`
15.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))`
15.0%	1	`ky`
15.0%	1	`th`
15.0%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
15.0%	1	`kx`
15.0%	1	`ky`
15.0%	1	`(sin.f64 ky)`
15.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))`
15.0%	1	`(sin.f64 th)`
15.0%	1	`(sin.f64 kx)`
15.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)))))`
35.5%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
35.5%	2	`kx`
33.2%	2	`th`
36.8%	2	`(sin.f64 ky)`
36.8%	2	`ky`
38.6%	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))`
41.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)))))`
48.7%	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)))))`
43.3%	2	`(sin.f64 ky)`
48.7%	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)))))`
50.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)))))`
50.7%	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)))))`
57.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)))))`
43.9%	4	`(sin.f64 th)`
43.9%	3	`th`
48.1%	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))`
44.3%	4	`(sin.f64 kx)`
43.8%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
43.8%	3	`kx`
50.4%	3	`(sin.f64 ky)`
43.4%	2	`ky`
57.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)))))`
74.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)))))`
74.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)))))`
74.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)))))`
81.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)))))`
88.5%	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)))))`
70.0%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
70.0%	2	`kx`
57.9%	3	`(sin.f64 th)`
61.5%	3	`th`
73.0%	2	`ky`
68.7%	4	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
70.0%	3	`(sin.f64 kx)`
73.0%	3	`(sin.f64 ky)`
88.5%	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)))))`
97.6%	4	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
97.6%	4	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
97.6%	4	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
97.6%	4	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
87.2%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
87.2%	3	`kx`
93.9%	3	`ky`
97.6%	4	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
97.9%	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)))))`
96.3%	3	`ky`
96.7%	3	`ky`
90.2%	1	`(sin.f64 th)`
90.2%	1	`th`
96.7%	4	`(sin.f64 ky)`
94.5%	3	`(sin.f64 kx)`
96.7%	3	`ky`
92.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))`
94.5%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
98.0%	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)))))`
94.5%	2	`kx`
98.0%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
98.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)))))`
98.0%	2	`kx`
94.8%	1	`(sin.f64 th)`
98.0%	3	`(sin.f64 kx)`
98.0%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
94.8%	1	`(sin.f64 ky)`
98.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)))))`
97.2%	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))`
98.0%	2	`kx`
96.7%	2	`ky`
94.8%	1	`th`

Compiler

Compiled 4 423 to 1 254 computations (71.6% saved)

bsearch24.0ms (0.2%)

Memory

5.1MiB live, 51.5MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
22.0ms	1.423372253582326e-167	2.583222788055134e-166

Samples

15.0ms

112×

valid

Compiler

Compiled 313 to 277 computations (11.5% saved)

Precisions

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

ival-sin: 8.0ms (67.1% of total)

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

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

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

adjust: 0.0ms (0.0% of total)

ival-add!: 0.0ms (0.0% of total)

ival-div!: 0.0ms (0.0% of total)

bsearch2.0ms (0.0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.423372253582326e-167	2.583222788055134e-166

Compiler

Compiled 299 to 256 computations (14.4% saved)

bsearch33.0ms (0.3%)

Memory

0.8MiB live, 47.4MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	5.687097441737014e-7	5.970492927976994e-7
31.0ms	4.7768546264059154e-163	3.3519739731350647e-159

Samples

25.0ms

128×

valid

Compiler

Compiled 395 to 346 computations (12.4% saved)

Precisions

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

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

ival-sin: 8.0ms (37.9% of total)

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

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

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

adjust: 0.0ms (0.0% of total)

ival-add!: 0.0ms (0.0% of total)

bsearch5.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	4.2696881512924305e-41	2.5359332359086984e-37
1.0ms	4.7768546264059154e-163	3.3519739731350647e-159

Samples

2.0ms

16×

valid

Compiler

Compiled 419 to 357 computations (14.8% saved)

Precisions

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

ival-sin: 1.0ms (58.6% of total)

adjust: 0.0ms (0.0% of total)

ival-add!: 0.0ms (0.0% of total)

ival-sqrt: 0.0ms (0.0% of total)

ival-pow2: 0.0ms (0.0% of total)

ival-div!: 0.0ms (0.0% of total)

ival-mult!: 0.0ms (0.0% of total)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999979	1.0
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	2.4106010418459516e-296	4.712040760407886e-294

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999979	1.0
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999979	1.0
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999979	1.0
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999979	1.0
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9999999999999979	1.0
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch3.0ms (0.0%)

Memory

-43.2MiB live, 3.0MiB allocated; 2ms collecting garbage

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9944086468049214	0.9992545284072688
0.0ms	0.06568915427575209	0.2325596362595148
0.0ms	-0.07188650077520903	6.552361024499196e-299
0.0ms	-0.8699808989851135	-0.8183005824816514

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

2.7MiB live, 2.8MiB allocated; 0ms collecting garbage

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9944086468049214	0.9992545284072688
0.0ms	0.06568915427575209	0.2325596362595148
0.0ms	-0.07188650077520903	6.552361024499196e-299
0.0ms	-0.8699808989851135	-0.8183005824816514

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209
0.0ms	-0.07188650077520903	6.552361024499196e-299

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch0.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch0.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	4.022660642852249e-5	0.0005547347139227246
0.0ms	4.230975958813401e-73	6.260844694000217e-73

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch0.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch0.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0005547347139227246	0.06568915427575209

Compiler

Compiled 31 to 26 computations (16.1% saved)

bsearch0.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	4.022660642852249e-5	0.0005547347139227246

Compiler

Compiled 31 to 26 computations (16.1% saved)

derivations336.0ms (3.5%)

Memory

24.0MiB live, 496.5MiB allocated; 41ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 2 915 to 244 computations (91.6% saved)

preprocess468.0ms (4.9%)

Memory: -2.4MiB live, 1 433.6MiB allocated; 173ms collecting garbage
Symmetry: (abs kx)
Compiler: Compiled 27 226 to 10 124 computations (62.8% saved)

end0.0ms (0.0%)

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

start0.0ms (0.0%)

analyze254.0ms (2.7%)

sample2.1s (22.0%)

preprocess61.0ms (0.6%)

sample0.0ms (0.0%)

series73.0ms (0.8%)

rewrite160.0ms (1.7%)

eval74.0ms (0.8%)

prune60.0ms (0.6%)

sample0.0ms (0.0%)

series166.0ms (1.7%)

rewrite262.0ms (2.7%)

eval170.0ms (1.8%)

prune66.0ms (0.7%)

sample0.0ms (0.0%)

series2.1s (22.4%)

rewrite199.0ms (2.1%)

eval154.0ms (1.6%)

prune106.0ms (1.1%)

sample0.0ms (0.0%)

series118.0ms (1.2%)

rewrite193.0ms (2.0%)

eval130.0ms (1.4%)

prune112.0ms (1.2%)

regimes2.1s (21.6%)

bsearch24.0ms (0.2%)

bsearch2.0ms (0.0%)

bsearch33.0ms (0.3%)

bsearch5.0ms (0.1%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch3.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch0.0ms (0.0%)

bsearch0.0ms (0.0%)

bsearch0.0ms (0.0%)

bsearch0.0ms (0.0%)

bsearch0.0ms (0.0%)

derivations336.0ms (3.5%)

preprocess468.0ms (4.9%)

end0.0ms (0.0%)

Profiling