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

start0.0ms (0%)

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

analyze1.2s (6.1%)

Memory

-36.6MiB live, 270.7MiB allocated; 195ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 18 to 14 computations (22.2% saved)

sample3.6s (18.1%)

Memory

62.7MiB live, 3 040.9MiB allocated; 557ms collecting garbage

Samples

3.2s

8 256×

valid

Precisions

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

ival-sin: 1.7s (69% of total)

ival-pow2: 414.0ms (16.6% of total)

ival-div!: 136.0ms (5.5% of total)

ival-add!: 121.0ms (4.9% of total)

ival-sqrt: 58.0ms (2.3% of total)

ival-mult!: 42.0ms (1.7% of total)

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess49.0ms (0.2%)

Memory

-17.9MiB live, 71.8MiB allocated; 8ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	46	166
1	113	163
2	396	163
3	2511	163

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	95.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))

Symmetry

(abs kx)

(negabs ky)

(negabs th)

Compiler

Compiled 30 to 26 computations (13.3% saved)

series68.0ms (0.3%)

Memory

30.7MiB live, 123.3MiB allocated; 20ms collecting garbage

Counts

13 → 68

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
25.0ms	ky	@	-inf	((* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin ky) ky (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (sin kx) kx 2 (pow (sin ky) 2) (sin th) th)
9.0ms	th	@	inf	((* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin ky) ky (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (sin kx) kx 2 (pow (sin ky) 2) (sin th) th)
6.0ms	ky	@	0	((* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin ky) ky (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (sin kx) kx 2 (pow (sin ky) 2) (sin th) th)
6.0ms	kx	@	-inf	((* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin ky) ky (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (sin kx) kx 2 (pow (sin ky) 2) (sin th) th)
6.0ms	ky	@	inf	((* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin ky) ky (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (sin kx) kx 2 (pow (sin ky) 2) (sin th) th)

rewrite933.0ms (4.7%)

Memory

25.6MiB live, 814.1MiB allocated; 256ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	432	2436
0	448	2305
1	1453	2231
2	6837	2125
0	8191	2079
0	37367	1747

Stop Event

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

Counts

81 → 714

Calls

Call 1

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

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

eval314.0ms (1.6%)

Memory: -4.6MiB live, 175.3MiB allocated; 35ms collecting garbage
Compiler: Compiled 11 713 to 4 405 computations (62.4% saved)

prune36.0ms (0.2%)

Memory

23.5MiB live, 68.8MiB allocated; 4ms collecting garbage

Pruning

31 alts after pruning (31 fresh and 0 done)

	Pruned	Kept	Total
New	674	31	705
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	675	31	706

Accuracy

100.0%

Counts

706 → 31

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.8%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
▶	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	86.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (sin.f64 ky) (sin.f64 ky) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (sin.f64 th))
	75.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))))) (sin.f64 th))
▶	76.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64))) #s(literal 2 binary64)))) (sin.f64 th))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) (sin.f64 th))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th))
	76.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 th))
	76.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (/.f64 (-.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #s(literal 2 binary64)))))) (sin.f64 th))
▶	48.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))))) #s(approx (sin th) th))
	70.0%	(.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))
	53.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (.f64 (fma.f64 (fma.f64 #s(literal 2/45 binary64) (.f64 kx kx) #s(literal -1/3 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx) kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	53.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	43.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx (fma.f64 kx (.f64 (.f64 (fma.f64 #s(literal 2/45 binary64) (.f64 kx kx) #s(literal -1/3 binary64)) kx) kx) kx) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	25.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) kx) kx #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
	29.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 ky ky #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (sin.f64 th))
▶	34.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 kx kx #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
	31.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (sin.f64 th))
	76.7%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 (/.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (sin.f64 th))
	36.8%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (sin.f64 ky)) kx) kx (sin.f64 ky)))) (sin.f64 th))
	30.5%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (.f64 (/.f64 #s(literal 1/2 binary64) (sin.f64 kx)) ky) ky (sin.f64 kx)))) (sin.f64 th))
	32.6%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	53.1%	(*.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
	99.6%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	14.9%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) kx) (/.f64 kx (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1 binary64))) (sin.f64 th))
	29.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	95.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	50.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
▶	30.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Compiler

Compiled 1 210 to 1 154 computations (4.6% saved)

series92.0ms (0.5%)

Memory

-48.0MiB live, 114.3MiB allocated; 52ms collecting garbage

Counts

38 → 202

Calls

Call 1

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

Outputs
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (sin th)))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 1))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sin kx) #s(hole binary64 kx))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* -1/6 (pow kx 2))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))))
#s(approx kx #s(hole binary64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (sin th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 1))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (pow (sin ky) 2)))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (pow kx 2) (pow (sin ky) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))) (pow (sin ky) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (pow (sin ky) 2))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 ky))))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (- (+ 1/2 (pow kx 2)) (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* kx kx) 1/2) #s(hole binary64 1/2))
#s(approx (+ (* kx kx) 1/2) #s(hole binary64 (+ 1/2 (pow kx 2))))
#s(approx (pow (sin kx) 2) #s(hole binary64 (pow kx 2)))
#s(approx (pow (sin kx) 2) #s(hole binary64 (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
#s(approx (pow (sin kx) 2) #s(hole binary64 (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
#s(approx (pow (sin kx) 2) #s(hole binary64 (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky)))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky)))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (* (pow kx 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sqrt 1/2) (+ 2/3 (/ 1 (- 1 (cos (* 2 ky))))))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (sqrt 1/2) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* (sqrt 1/2) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (* (* (sqrt 1/2) (+ 2/3 (/ 1 (- 1 (cos (* 2 ky)))))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (* (pow kx 2) (* (sqrt 1/2) (- 4/45 (* -1 (/ (+ 2/3 (/ 1 (- 1 (cos (* 2 ky))))) (- 1 (cos (* 2 ky)))))))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (* 1/2 (- 1 (cos (* 2 ky))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow kx 2))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- 1 (cos (* 2 ky)))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- (+ 1 (* 2 (pow kx 2))) (cos (* 2 ky)))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- (+ 1 (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))) (cos (* 2 ky)))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- (+ 1 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))) (cos (* 2 ky)))))
#s(approx (- (cos (+ kx kx)) 1) #s(hole binary64 (* -2 (pow kx 2))))
#s(approx (- (cos (+ kx kx)) 1) #s(hole binary64 (* (pow kx 2) (- (* 2/3 (pow kx 2)) 2))))
#s(approx (- (cos (+ kx kx)) 1) #s(hole binary64 (* (pow kx 2) (- (* (pow kx 2) (+ 2/3 (* -4/45 (pow kx 2)))) 2))))
#s(approx (- (cos (+ kx kx)) 1) #s(hole binary64 (* (pow kx 2) (- (* (pow kx 2) (+ 2/3 (* (pow kx 2) (- (* 2/315 (pow kx 2)) 4/45)))) 2))))
#s(approx (cos (+ kx kx)) #s(hole binary64 1))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* -2 (pow kx 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 2/3 (pow kx 2)) 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/3 (* -4/45 (pow kx 2)))) 2)))))
#s(approx (+ kx kx) #s(hole binary64 (* 2 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (sin kx) #s(hole binary64 (sin kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (pow kx 2)))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (* (pow kx 2) (- (+ 1 (* 1/2 (/ 1 (pow kx 2)))) (* 1/2 (/ (cos (* 2 ky)) (pow kx 2)))))))
#s(approx (+ (* kx kx) 1/2) #s(hole binary64 (pow kx 2)))
#s(approx (+ (* kx kx) 1/2) #s(hole binary64 (* (pow kx 2) (+ 1 (* 1/2 (/ 1 (pow kx 2)))))))
#s(approx (pow (sin kx) 2) #s(hole binary64 (pow (sin kx) 2)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (* 1/2 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))
#s(approx (- (cos (+ kx kx)) 1) #s(hole binary64 (- (cos (* 2 kx)) 1)))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (* 2 kx))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky))))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (* 1/2 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky))))))
#s(approx (- (cos (+ kx kx)) 1) #s(hole binary64 (- (cos (neg (* -2 kx))) 1)))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (neg (* -2 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sin ky) #s(hole binary64 ky))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* -1/6 (pow ky 2))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))))
#s(approx ky #s(hole binary64 ky))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (pow (sin kx) 2)))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (pow ky 2) (pow (sin kx) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (pow (sin kx) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (pow (sin kx) 2))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (+ (pow kx 2) (pow ky 2))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (pow kx 2))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (pow kx 2))))
#s(approx (* 1/2 (cos (+ ky ky))) #s(hole binary64 1/2))
#s(approx (* 1/2 (cos (+ ky ky))) #s(hole binary64 (+ 1/2 (* -1 (pow ky 2)))))
#s(approx (* 1/2 (cos (+ ky ky))) #s(hole binary64 (+ 1/2 (* (pow ky 2) (- (* 1/3 (pow ky 2)) 1)))))
#s(approx (* 1/2 (cos (+ ky ky))) #s(hole binary64 (+ 1/2 (* (pow ky 2) (- (* (pow ky 2) (+ 1/3 (* -2/45 (pow ky 2)))) 1)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 1))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* -2 (pow ky 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2)))))
#s(approx (+ ky ky) #s(hole binary64 (* 2 ky)))
#s(approx (pow (sin ky) 2) #s(hole binary64 (pow ky 2)))
#s(approx (pow (sin ky) 2) #s(hole binary64 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))))
#s(approx (pow (sin ky) 2) #s(hole binary64 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))))
#s(approx (pow (sin ky) 2) #s(hole binary64 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* ky (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (* (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (* (pow ky 2) (* (sqrt 1/2) (+ 2/3 (/ 1 (- 1 (cos (* 2 kx))))))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* (sqrt 1/2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (* (sqrt 1/2) (+ 2/3 (/ 1 (- 1 (cos (* 2 kx)))))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (* (pow ky 2) (* (sqrt 1/2) (- 4/45 (* -1 (/ (+ 2/3 (/ 1 (- 1 (cos (* 2 kx))))) (- 1 (cos (* 2 kx)))))))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (* 1/2 (- 1 (cos (* 2 kx))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- 1 (cos (* 2 kx)))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- (+ 1 (* 2 (pow ky 2))) (cos (* 2 kx)))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- (+ 1 (* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))) (cos (* 2 kx)))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- (+ 1 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))) (cos (* 2 kx)))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* 2 (pow ky 2))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))))
#s(approx (sin ky) #s(hole binary64 (sin ky)))
#s(approx (* 1/2 (cos (+ ky ky))) #s(hole binary64 (* 1/2 (cos (* 2 ky)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (* 2 ky))))
#s(approx (pow (sin ky) 2) #s(hole binary64 (pow (sin ky) 2)))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (- 1 (cos (* 2 ky)))))
#s(approx (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) #s(hole binary64 (- (+ 1/2 (pow kx 2)) (* 1/2 (cos (neg (* -2 ky)))))))
#s(approx (* 1/2 (cos (+ ky ky))) #s(hole binary64 (* 1/2 (cos (neg (* -2 ky))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (neg (* -2 ky)))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx))))))))
#s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) #s(hole binary64 (* 1/2 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))
#s(approx (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) #s(hole binary64 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (- 1 (cos (neg (* -2 ky))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (sin th) #s(hole binary64 th))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* th (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (pow th 2) (+ (* -1/5040 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))))
#s(approx (sin th) #s(hole binary64 (sin th)))

Calls

9 calls:

Time	Variable		Point	Expression
29.0ms	ky	@	0	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (+ (* kx kx) 1/2) 1/2 (* 1/2 (cos (+ ky ky))) (cos (+ ky ky)) (+ ky ky) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) 2 (pow (sin ky) 2) (sin th) (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) (- 1 (cos (+ ky ky))) 1 (- (cos (+ kx kx)) 1) (cos (+ kx kx)) (+ kx kx))
12.0ms	ky	@	inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (+ (* kx kx) 1/2) 1/2 (* 1/2 (cos (+ ky ky))) (cos (+ ky ky)) (+ ky ky) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) 2 (pow (sin ky) 2) (sin th) (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) (- 1 (cos (+ ky ky))) 1 (- (cos (+ kx kx)) 1) (cos (+ kx kx)) (+ kx kx))
11.0ms	kx	@	0	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (+ (* kx kx) 1/2) 1/2 (* 1/2 (cos (+ ky ky))) (cos (+ ky ky)) (+ ky ky) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) 2 (pow (sin ky) 2) (sin th) (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) (- 1 (cos (+ ky ky))) 1 (- (cos (+ kx kx)) 1) (cos (+ kx kx)) (+ kx kx))
7.0ms	kx	@	inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (+ (* kx kx) 1/2) 1/2 (* 1/2 (cos (+ ky ky))) (cos (+ ky ky)) (+ ky ky) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) 2 (pow (sin ky) 2) (sin th) (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) (- 1 (cos (+ ky ky))) 1 (- (cos (+ kx kx)) 1) (cos (+ kx kx)) (+ kx kx))
7.0ms	ky	@	-inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (- (+ (* kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (+ (* kx kx) 1/2) 1/2 (* 1/2 (cos (+ ky ky))) (cos (+ ky ky)) (+ ky ky) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) 2 (pow (sin ky) 2) (sin th) (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) (- 1 (cos (+ ky ky))) 1 (- (cos (+ kx kx)) 1) (cos (+ kx kx)) (+ kx kx))

rewrite651.0ms (3.3%)

Memory

54.6MiB live, 632.6MiB allocated; 116ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1033	9271
0	1094	8564
1	3425	8086
0	8926	7669
0	30891	7289

Stop Event

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

Counts

240 → 990

Calls

Call 1

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

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

eval209.0ms (1%)

Memory: -43.1MiB live, 272.4MiB allocated; 78ms collecting garbage
Compiler: Compiled 15 059 to 5 904 computations (60.8% saved)

prune61.0ms (0.3%)

Memory

25.6MiB live, 116.6MiB allocated; 8ms collecting garbage

Pruning

52 alts after pruning (50 fresh and 2 done)

	Pruned	Kept	Total
New	988	41	1 029
Fresh	17	9	26
Picked	3	2	5
Done	0	0	0
Total	1 008	52	1 060

Accuracy

100.0%

Counts

1 060 → 52

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.8%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	46.8%	(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	50.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 th th) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))
	50.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 th th) #s(literal 1 binary64)) th)))
	50.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 kx kx) #s(literal 1/120 binary64)) (.f64 kx kx) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
▶	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	57.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	50.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(approx (sin th) th))
	76.6%	(*.f64 (/.f64 (sin.f64 ky) (/.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
	75.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))))) (sin.f64 th))
	76.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) #s(literal 2 binary64)))) (sin.f64 th))
	38.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) #s(approx (sin th) th))
	76.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 th))
	25.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #s(approx (sin th) th))
	70.0%	(.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))
	30.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
	38.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) #s(approx (sin th) th))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) (sin.f64 th))
	31.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))) (sin.f64 th))
	30.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (- (+ ( kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (fma.f64 kx kx (*.f64 ky ky)))))) (sin.f64 th))
	19.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (- (+ ( kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (*.f64 kx kx))))) (sin.f64 th))
	44.5%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (fabs.f64 (sin.f64 ky)))) (sin.f64 th))
	43.7%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (fabs.f64 (sin.f64 kx)))) (sin.f64 th))
	32.6%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	56.4%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (hypot.f64 #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
	24.6%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) #s(literal 2 binary64))))) #s(approx (sin th) th))
	11.4%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 kx kx #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
	64.6%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))
	27.3%	(*.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
▶	99.6%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	43.4%	(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (.f64 kx kx))))))
▶	50.6%	(*.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	31.3%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (sin.f64 th))
▶	26.9%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 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))))))) (sin.f64 th))
	76.4%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
	29.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	31.1%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
	26.8%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 (sin.f64 th) (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))))
	38.4%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	95.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
	11.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 (+.f64 (neg.f64 th) (PI.f64))))
	11.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 (neg.f64 (+.f64 th (PI.f64)))))
✓	30.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	6.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (cos.f64 (+.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64))))
	7.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (cos.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64)))))
	15.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))
▶	15.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))

Compiler

Compiled 2 118 to 2 006 computations (5.3% saved)

series65.0ms (0.3%)

Memory

-5.8MiB live, 89.9MiB allocated; 18ms collecting garbage

Counts

39 → 184

Calls

Call 1

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

Outputs
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (sin th)))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (sin th) (sin ky))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 3))) (/ (sin th) (sin ky)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* 1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))) (/ (sin th) (sin ky)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (/ (sin th) (sin ky)))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sin kx) #s(hole binary64 kx))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* -1/6 (pow kx 2))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))))
#s(approx kx #s(hole binary64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (sin th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky)))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ ky kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* 1/12 (/ (* (pow kx 2) ky) (pow (sqrt 1/2) 2)))) kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* (pow kx 2) (+ (* 1/12 (/ ky (pow (sqrt 1/2) 2))) (* 1/2 (/ (* (pow kx 2) (* ky (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 2)))))) kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* (pow kx 2) (+ (* 1/12 (/ ky (pow (sqrt 1/2) 2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (pow (sqrt 1/2) 2))) (* 1/2 (/ (* (pow kx 2) (* ky (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 2)))))))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (sqrt 1/2) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (sqrt 2))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* -1/3 (/ (pow kx 2) (sqrt 2)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* (pow kx 2) (- (* 1/2 (/ (* (pow kx 2) (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2))))) (sqrt 2))) (* 1/3 (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 2/315 (* -1/3 (/ (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2)))) (pow (sqrt 2) 2))))) (sqrt 2))) (* 1/2 (/ (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2)))) (sqrt 2))))) (* 1/3 (/ 1 (sqrt 2)))))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* 2 (pow kx 2))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))))
#s(approx (cos (+ kx kx)) #s(hole binary64 1))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* -2 (pow kx 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 2/3 (pow kx 2)) 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/3 (* -4/45 (pow kx 2)))) 2)))))
#s(approx (+ kx kx) #s(hole binary64 (* 2 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (sin th)))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 1))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 kx))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* kx (+ 1 (* -1/6 (pow kx 2))))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(hole binary64 1))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow kx 2)))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6)))))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(hole binary64 -1/6))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(hole binary64 (- (* 1/120 (pow kx 2)) 1/6)))
#s(approx (* kx kx) #s(hole binary64 (pow kx 2)))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* (sin th) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (sin kx) #s(hole binary64 (sin kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (sqrt (- 1 (cos (* 2 kx))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (- 1 (cos (* 2 kx)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (* 2 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* 1/120 (pow kx 5))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* (pow kx 5) (- 1/120 (* 1/6 (/ 1 (pow kx 2)))))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* (pow kx 5) (- (+ 1/120 (/ 1 (pow kx 4))) (* 1/6 (/ 1 (pow kx 2)))))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(hole binary64 (* 1/120 (pow kx 4))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(hole binary64 (* (pow kx 4) (- 1/120 (* 1/6 (/ 1 (pow kx 2)))))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(hole binary64 (* (pow kx 4) (- (+ 1/120 (/ 1 (pow kx 4))) (* 1/6 (/ 1 (pow kx 2)))))))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(hole binary64 (* 1/120 (pow kx 2))))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(hole binary64 (* (pow kx 2) (- 1/120 (* 1/6 (/ 1 (pow kx 2)))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (neg (* -2 kx)))))))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (sqrt (/ 1 (- 1 (cos (neg (* -2 kx))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (sqrt (- 1 (cos (neg (* -2 kx)))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (- 1 (cos (neg (* -2 kx))))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (neg (* -2 kx)))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* -1 (* (pow kx 5) (- (* 1/6 (/ 1 (pow kx 2))) 1/120)))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) #s(hole binary64 (* -1 (* (pow kx 5) (- (* 1/6 (/ 1 (pow kx 2))) (+ 1/120 (/ 1 (pow kx 4))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (sin ky) #s(hole binary64 ky))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* -1/6 (pow ky 2))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))))
#s(approx ky #s(hole binary64 ky))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (sin th) (sin kx))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow ky 2) (sin th)) (pow (sin kx) 3))) (/ (sin th) (sin kx)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))))) (/ (sin th) (sin kx)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))) (/ (sin th) (sin kx)))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* ky (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ ky (sqrt 1/2)) #s(hole binary64 (/ ky (sqrt 1/2))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sin ky) #s(hole binary64 (sin ky)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* -1/6 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* 1/120 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))))
#s(approx (sin th) #s(hole binary64 th))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (+ (* (* th th) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* th th) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* th (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (pow th 2) (+ (* -1/5040 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (sin th) #s(hole binary64 (sin th)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* -1/6 (pow th 3))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* (pow th 3) (- (/ 1 (pow th 2)) 1/6))))
#s(approx (+ (* (* th th) -1/6) 1) #s(hole binary64 (* -1/6 (pow th 2))))
#s(approx (+ (* (* th th) -1/6) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/6))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))))

Calls

9 calls:

Time	Variable		Point	Expression
12.0ms	kx	@	inf	((* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky) ky (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) th (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (+ (* (* th th) -1/6) 1) th) (+ (* (* th th) -1/6) 1) (* th th) -1/6 1 (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/ ky (sqrt 1/2)) (sqrt 1/2) 1/2 (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (sqrt (- 1 (cos (+ kx kx)))) (- 1 (cos (+ kx kx))) (cos (+ kx kx)) (+ kx kx) (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (+ (* 1/120 (* kx kx)) -1/6) 1/120 (* kx kx))
9.0ms	th	@	0	((* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky) ky (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) th (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (+ (* (* th th) -1/6) 1) th) (+ (* (* th th) -1/6) 1) (* th th) -1/6 1 (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/ ky (sqrt 1/2)) (sqrt 1/2) 1/2 (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (sqrt (- 1 (cos (+ kx kx)))) (- 1 (cos (+ kx kx))) (cos (+ kx kx)) (+ kx kx) (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (+ (* 1/120 (* kx kx)) -1/6) 1/120 (* kx kx))
7.0ms	kx	@	-inf	((* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky) ky (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) th (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (+ (* (* th th) -1/6) 1) th) (+ (* (* th th) -1/6) 1) (* th th) -1/6 1 (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/ ky (sqrt 1/2)) (sqrt 1/2) 1/2 (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (sqrt (- 1 (cos (+ kx kx)))) (- 1 (cos (+ kx kx))) (cos (+ kx kx)) (+ kx kx) (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (+ (* 1/120 (* kx kx)) -1/6) 1/120 (* kx kx))
6.0ms	ky	@	-inf	((* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky) ky (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) th (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (+ (* (* th th) -1/6) 1) th) (+ (* (* th th) -1/6) 1) (* th th) -1/6 1 (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/ ky (sqrt 1/2)) (sqrt 1/2) 1/2 (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (sqrt (- 1 (cos (+ kx kx)))) (- 1 (cos (+ kx kx))) (cos (+ kx kx)) (+ kx kx) (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (+ (* 1/120 (* kx kx)) -1/6) 1/120 (* kx kx))
5.0ms	ky	@	inf	((* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky) ky (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) th (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (+ (* (* th th) -1/6) 1) th) (+ (* (* th th) -1/6) 1) (* th th) -1/6 1 (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/ ky (sqrt 1/2)) (sqrt 1/2) 1/2 (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (sqrt (- 1 (cos (+ kx kx)))) (- 1 (cos (+ kx kx))) (cos (+ kx kx)) (+ kx kx) (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (+ (* 1/120 (* kx kx)) -1/6) 1/120 (* kx kx))

rewrite585.0ms (2.9%)

Memory

-26.6MiB live, 525.4MiB allocated; 180ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1038	9406
0	1096	8487
1	3635	8273
0	8155	7525
0	25509	7152

Stop Event

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

Counts

223 → 631

Calls

Call 1

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

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (*.f64 #s(literal -2 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 th ky))) (*.f64 #s(literal 2 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (*.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (*.f64 #s(literal 2 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
(neg.f64 (/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
(neg.f64 (/.f64 (*.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(-.f64 (/.f64 (/.f64 (cos.f64 (-.f64 ky th)) #s(literal 2 binary64)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (/.f64 (/.f64 (cos.f64 (+.f64 ky th)) #s(literal 2 binary64)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(neg.f64 (neg.f64 (sin.f64 ky)))
(sin.f64 (neg.f64 (+.f64 ky (PI.f64))))
(sin.f64 (+.f64 (+.f64 ky (PI.f64)) (PI.f64)))
(sin.f64 (+.f64 (neg.f64 ky) (PI.f64)))
(sin.f64 ky)
(cos.f64 (+.f64 (+.f64 ky (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (neg.f64 ky) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (+.f64 ky (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64)))
ky
(/.f64 (neg.f64 (sin.f64 th)) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
(neg.f64 (/.f64 (sin.f64 th) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(neg.f64 (neg.f64 (sin.f64 th)))
(sin.f64 (neg.f64 (+.f64 th (PI.f64))))
(sin.f64 (+.f64 (+.f64 th (PI.f64)) (PI.f64)))
(sin.f64 (+.f64 (neg.f64 th) (PI.f64)))
(sin.f64 th)
(cos.f64 (+.f64 (+.f64 th (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64)))
th
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (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 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) #s(literal 2 binary64))
(neg.f64 (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (sin.f64 kx))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (sin.f64 ky))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (sin.f64 kx))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 ky))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (sin.f64 kx)))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (sin.f64 kx))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (sin.f64 ky)))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 ky))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (sin.f64 ky)) (sin.f64 kx))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (sin.f64 kx)) (sin.f64 ky))
(hypot.f64 (sin.f64 kx) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (sin.f64 kx) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (sin.f64 kx) (neg.f64 (sin.f64 ky)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(hypot.f64 (sin.f64 ky) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (sin.f64 ky) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (sin.f64 ky) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (sin.f64 ky) (neg.f64 (sin.f64 kx)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(exp.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))) #s(literal 1/2 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 2 binary64))))
(cos.f64 (+.f64 (neg.f64 kx) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (+.f64 kx (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64)))
kx
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
#s(approx (sin th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th))
(.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)
(.f64 th (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)))
(-.f64 th (.f64 (neg.f64 th) (.f64 (*.f64 th th) #s(literal -1/6 binary64))))
(-.f64 th (.f64 (.f64 (*.f64 th th) #s(literal 1/6 binary64)) th))
(+.f64 th (.f64 th (.f64 (*.f64 th th) #s(literal -1/6 binary64))))
(+.f64 th (.f64 (.f64 (*.f64 th th) #s(literal -1/6 binary64)) th))
(fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/6 binary64) (*.f64 th th) #s(literal 1 binary64))
(fma.f64 th (*.f64 th #s(literal -1/6 binary64)) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal 1/6 binary64)))
(+.f64 (.f64 (.f64 th th) #s(literal -1/6 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/6 binary64)))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 th))) (neg.f64 (neg.f64 (fabs.f64 th))))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (neg.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 th) th))
(sqrt.f64 (.f64 (.f64 th th) (*.f64 th th)))
(fabs.f64 (*.f64 (neg.f64 th) th))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 (fabs.f64 th)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 th)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
#s(literal -1/6 binary64)
#s(literal 1 binary64)
(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(.f64 (neg.f64 ky) (/.f64 #s(literal -1 binary64) (neg.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) (/.f64 #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 #s(literal 1 binary64) (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 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(.f64 #s(literal -1 binary64) (/.f64 (neg.f64 ky) (neg.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))))
(.f64 #s(literal -1 binary64) (/.f64 ky (neg.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
(.f64 #s(literal 1 binary64) (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(.f64 ky (/.f64 #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 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 ky (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (/.f64 ky (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 (/.f64 (neg.f64 ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (/.f64 ky (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 (neg.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (/.f64 ky (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) (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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (*.f64 ky (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (.f64 #s(literal -2 binary64) ky) (.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 ky ky) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 ky (neg.f64 (neg.f64 (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
(/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))
(/.f64 ky (neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 ky (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (/.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(neg.f64 (/.f64 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 ky (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 (neg.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (/.f64 (neg.f64 ky) (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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (neg.f64 ky) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky #s(literal 2 binary64)))
(.f64 (neg.f64 ky) (/.f64 #s(literal 2 binary64) (neg.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(.f64 #s(literal -2 binary64) (/.f64 (neg.f64 ky) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(*.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 #s(literal 2 binary64) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(.f64 ky (/.f64 #s(literal 2 binary64) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 #s(literal -2 binary64) ky) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (/.f64 (+.f64 ky ky) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (.f64 #s(literal -2 binary64) ky) (neg.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (+.f64 ky ky) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))
(neg.f64 (neg.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 ky (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 (neg.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))))
(+.f64 (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(neg.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(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)))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (-.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 -1/2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/4 binary64)))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))
(pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/2 binary64))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(neg.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(neg.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.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/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/4 binary64)))
(pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(neg.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))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (sin.f64 kx))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 kx))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (sin.f64 kx)))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 kx))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (sin.f64 kx)) (sin.f64 kx))
(hypot.f64 (sin.f64 kx) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (sin.f64 kx) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (sin.f64 kx) (neg.f64 (sin.f64 kx)))
(hypot.f64 (sin.f64 kx) (sin.f64 kx))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)))
(.f64 #s(literal -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal -2 binary64) kx)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (.f64 #s(literal -2 binary64) kx)) #s(literal 2 binary64)))))
(.f64 #s(literal -2 binary64) (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) kx)) (sin.f64 (+.f64 #s(literal 0 binary64) kx))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (pow.f64 (cos.f64 kx) #s(literal 1 binary64)) (pow.f64 (cos.f64 kx) #s(literal 1 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 (fabs.f64 (fabs.f64 (cos.f64 kx))) (fabs.f64 (fabs.f64 (cos.f64 kx))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 (neg.f64 (fabs.f64 (cos.f64 kx))) (neg.f64 (fabs.f64 (cos.f64 kx))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 kx))) (neg.f64 (neg.f64 (cos.f64 kx))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (cos.f64 kx)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (cos.f64 kx)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 kx)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (neg.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)))))
(fma.f64 (cos.f64 kx) (cos.f64 kx) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (cos.f64 (+.f64 kx kx))))
(fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (.f64 #s(literal -2 binary64) kx)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (.f64 #s(literal -2 binary64) kx)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) kx)) (sin.f64 (+.f64 #s(literal 0 binary64) kx))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (sin.f64 kx) (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) (.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64))) (.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 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (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)))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))) (-.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))) (-.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (sin.f64 kx)) (-.f64 (fabs.f64 (cos.f64 kx)) (sin.f64 kx)))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))) (-.f64 (neg.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))) (-.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (sin.f64 kx)) (-.f64 (neg.f64 (cos.f64 kx)) (sin.f64 kx)))
(*.f64 (+.f64 (cos.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 (cos.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(*.f64 (+.f64 (cos.f64 kx) (fabs.f64 (sin.f64 kx))) (-.f64 (cos.f64 kx) (fabs.f64 (sin.f64 kx))))
(*.f64 (+.f64 (cos.f64 kx) (neg.f64 (sin.f64 kx))) (-.f64 (cos.f64 kx) (neg.f64 (sin.f64 kx))))
(*.f64 (+.f64 (cos.f64 kx) (sin.f64 kx)) (-.f64 (cos.f64 kx) (sin.f64 kx)))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #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 kx kx)) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(sin.f64 (-.f64 (+.f64 kx (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 kx)))
(sin.f64 (+.f64 (+.f64 kx (/.f64 (PI.f64) #s(literal 2 binary64))) kx))
(sin.f64 (fma.f64 #s(literal -2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (cos.f64 kx) #s(literal 1 binary64)) (pow.f64 (cos.f64 kx) #s(literal 1 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 (cos.f64 kx))) (fabs.f64 (fabs.f64 (cos.f64 kx))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 (cos.f64 kx))) (neg.f64 (fabs.f64 (cos.f64 kx))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 kx))) (neg.f64 (neg.f64 (cos.f64 kx))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -2 binary64) kx)) #s(literal 0 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(fma.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (cos.f64 kx)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (cos.f64 kx)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(fma.f64 (cos.f64 kx) (cos.f64 kx) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(-.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #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)))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
(cos.f64 (-.f64 (neg.f64 kx) kx))
(cos.f64 (*.f64 #s(literal -2 binary64) kx))
(cos.f64 (+.f64 kx kx))
(+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (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 (+.f64 kx kx)) #s(literal 0 binary64)) (.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 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -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 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
(*.f64 (neg.f64 kx) #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) (neg.f64 kx))
(*.f64 #s(literal 2 binary64) kx)
(*.f64 kx #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -2 binary64) kx))
(+.f64 kx kx)
(*.f64 (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))
(*.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (*.f64 (neg.f64 (sin.f64 ky)) #s(approx (sin th) th)) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
(neg.f64 (/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
(neg.f64 (/.f64 (*.f64 (neg.f64 (sin.f64 ky)) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 (neg.f64 #s(approx (sin th) th)) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
(/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
(neg.f64 (/.f64 #s(approx (sin th) th) (neg.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
(neg.f64 (/.f64 (neg.f64 #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
#s(approx (sin th) th)
(neg.f64 (neg.f64 #s(approx (sin th) th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 #s(literal -2 binary64) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 th ky))) (.f64 #s(literal 2 binary64) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (neg.f64 (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (.f64 #s(literal 2 binary64) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky)))
(neg.f64 (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (neg.f64 (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky)))))
(neg.f64 (/.f64 (.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(-.f64 (/.f64 (/.f64 (cos.f64 (-.f64 ky th)) #s(literal 2 binary64)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))) (/.f64 (/.f64 (cos.f64 (+.f64 ky th)) #s(literal 2 binary64)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky)))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky)))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (pow.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (pow.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (pow.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(neg.f64 (neg.f64 (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (pow.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) #s(literal 2 binary64)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))) (sin.f64 ky))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))
(hypot.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 ky))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))
(hypot.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (sin.f64 ky))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))
(hypot.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))) (sin.f64 ky))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (neg.f64 (sin.f64 ky)) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))
(hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (fabs.f64 (sin.f64 ky)))
(hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (neg.f64 (sin.f64 ky)))
(hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky))
(hypot.f64 (sin.f64 ky) (neg.f64 (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))))
(hypot.f64 (sin.f64 ky) (neg.f64 (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))))
(hypot.f64 (sin.f64 ky) (fabs.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (sin.f64 ky) (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))
(exp.f64 (.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (pow.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))
(neg.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
(.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)
(.f64 kx (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)))
(-.f64 kx (.f64 (.f64 (.f64 (fma.f64 (.f64 #s(literal -1/120 binary64) kx) kx #s(literal 1/6 binary64)) kx) kx) kx))
(-.f64 kx (.f64 (neg.f64 kx) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) kx) kx)))
(+.f64 kx (.f64 kx (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) kx) kx)))
(+.f64 kx (.f64 (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) kx) kx) kx))
(fma.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) kx) kx #s(literal 1 binary64))
(fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (*.f64 #s(literal -1/120 binary64) kx) kx #s(literal 1/6 binary64)) kx) kx))
(+.f64 (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) kx) kx) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) kx) kx))
(fma.f64 (*.f64 #s(literal 1/120 binary64) kx) kx #s(literal -1/6 binary64))
(fma.f64 (*.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64))
(fma.f64 #s(literal 1/120 binary64) (*.f64 kx kx) #s(literal -1/6 binary64))
(-.f64 (.f64 (.f64 kx kx) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(-.f64 #s(literal -1/6 binary64) (.f64 (.f64 #s(literal -1/120 binary64) kx) kx))
(-.f64 #s(literal -1/6 binary64) (.f64 #s(literal -1/120 binary64) (.f64 kx kx)))
(+.f64 (.f64 (.f64 kx kx) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))
(+.f64 #s(literal -1/6 binary64) (.f64 (.f64 kx kx) #s(literal 1/120 binary64)))
#s(literal 1/120 binary64)
(*.f64 (neg.f64 (neg.f64 (fabs.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 kx))))
(*.f64 (neg.f64 (fabs.f64 kx)) (/.f64 (neg.f64 (fabs.f64 kx)) #s(literal 1 binary64)))
(*.f64 (neg.f64 (fabs.f64 kx)) (neg.f64 (fabs.f64 kx)))
(*.f64 (fabs.f64 kx) (/.f64 (fabs.f64 kx) #s(literal 1 binary64)))
(*.f64 (fabs.f64 kx) (fabs.f64 kx))
(*.f64 (neg.f64 kx) (/.f64 (neg.f64 kx) #s(literal 1 binary64)))
(*.f64 (neg.f64 kx) (neg.f64 kx))
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 kx) kx))
(.f64 (.f64 kx kx) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (.f64 kx kx))
(*.f64 kx (/.f64 kx #s(literal 1 binary64)))
(*.f64 kx kx)
(pow.f64 (neg.f64 (fabs.f64 kx)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 kx) #s(literal 2 binary64))
(pow.f64 (neg.f64 kx) #s(literal 2 binary64))
(pow.f64 (*.f64 kx kx) #s(literal 1 binary64))
(pow.f64 kx #s(literal 2 binary64))
(/.f64 (*.f64 kx kx) #s(literal 1 binary64))
(neg.f64 (*.f64 (neg.f64 kx) kx))
(sqrt.f64 (.f64 (.f64 kx kx) (*.f64 kx kx)))
(fabs.f64 (*.f64 (neg.f64 kx) kx))
(fabs.f64 (*.f64 kx kx))
(exp.f64 (*.f64 (log.f64 (fabs.f64 kx)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 kx)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 kx) #s(literal 2 binary64)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (-.f64 (sin.f64 th) (/.f64 (.f64 (.f64 kx kx) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (sin.f64 th) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)))))) (.f64 kx kx) (sin.f64 th)))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (/.f64 (sin.f64 th) (sin.f64 ky)))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (/.f64 (.f64 (.f64 kx kx) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 3 binary64))) #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 3 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx kx)))) (*.f64 kx kx) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 ky)))) (.f64 kx kx) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 3 binary64)))) (*.f64 kx kx) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 ky))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (*.f64 kx (/.f64 kx (sin.f64 ky))) #s(literal 1/2 binary64) (sin.f64 ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 kx kx)) #s(literal 1/2 binary64)) (sin.f64 ky)) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 kx kx)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (sin.f64 ky)) (.f64 kx kx) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (sin kx) kx)
#s(approx (sin kx) (.f64 (fma.f64 (.f64 kx kx) #s(literal -1/6 binary64) #s(literal 1 binary64)) kx))
#s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))
(neg.f64 (neg.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))))
#s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 kx kx) #s(literal 1/120 binary64)) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx))
#s(approx kx kx)
#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)) (-.f64 (sin.f64 th) (/.f64 (.f64 (.f64 kx kx) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (sin.f64 th) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)))))) (.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (-.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (.f64 kx kx)) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (fma.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64)) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 kx kx) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (fma.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 kx kx) (-.f64 (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)))) (sin.f64 th)) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (-.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64))))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64))))))))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (-.f64 (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky)))) (.f64 (.f64 (.f64 kx kx) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (fma.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (/.f64 (.f64 (sin.f64 ky) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 kx kx) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (fma.f64 (-.f64 (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)))) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (-.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64))))) (sin.f64 ky)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64))))))))) (/.f64 (.f64 (sin.f64 ky) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 kx kx) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky kx))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 kx kx) ky) ky) kx))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 kx kx) ky) #s(literal 7/360 binary64) (.f64 #s(literal 1/6 binary64) ky)) (.f64 kx kx) ky) kx))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 7/360 binary64) ky (.f64 (.f64 (.f64 kx kx) ky) #s(literal 31/15120 binary64))) (.f64 #s(literal 1/6 binary64) ky)) (.f64 kx kx) ky) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (fma.f64 (*.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 #s(literal 7/360 binary64) (.f64 kx kx)) #s(literal 1/12 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64))) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -31/15120 binary64) (.f64 kx kx) #s(literal -7/360 binary64)) (.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64))) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (.f64 kx kx) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/30 binary64) (*.f64 kx kx))) #s(literal 1/3 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/1260 binary64) (.f64 kx kx)) #s(literal 1/60 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 kx kx)) (/.f64 #s(literal 1/3 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 kx kx) (sqrt.f64 #s(literal 2 binary64))) kx))
#s(approx (- 1 (cos (+ kx kx))) (*.f64 kx (+.f64 kx kx)))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx)))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 (fma.f64 #s(literal 4/45 binary64) (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx) #s(literal 2 binary64)) (.f64 kx kx)))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -2/315 binary64) (.f64 kx kx) #s(literal 4/45 binary64)) (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx)))
#s(approx (cos (+ kx kx)) #s(literal 1 binary64))
#s(approx (cos (+ kx kx)) (fma.f64 #s(literal -2 binary64) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (cos (+ kx kx)) (fma.f64 (fma.f64 #s(literal 2/3 binary64) (.f64 kx kx) #s(literal -2 binary64)) (.f64 kx kx) #s(literal 1 binary64)))
#s(approx (cos (+ kx kx)) (fma.f64 (fma.f64 (fma.f64 #s(literal -4/45 binary64) (.f64 kx kx) #s(literal 2/3 binary64)) (.f64 kx kx) #s(literal -2 binary64)) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (+ kx kx) (+.f64 kx kx))
#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)) (-.f64 (sin.f64 th) (/.f64 (.f64 (.f64 kx kx) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (sin.f64 th) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)))))) (.f64 kx kx) (sin.f64 th)))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(literal 1 binary64))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 kx kx) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (-.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) (cos.f64 (+.f64 ky ky))))) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (.f64 kx kx)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 ky))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (*.f64 kx (/.f64 kx (sin.f64 ky))) #s(literal 1/2 binary64) (sin.f64 ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 kx kx)) #s(literal 1/2 binary64)) (sin.f64 ky)) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 kx kx)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (sin.f64 ky)) (.f64 kx kx) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) kx)
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (.f64 (fma.f64 (.f64 kx kx) #s(literal -1/6 binary64) #s(literal 1 binary64)) kx))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) #s(literal 1 binary64))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (fma.f64 (*.f64 kx kx) #s(literal -1/6 binary64) #s(literal 1 binary64)))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(literal -1/6 binary64))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) (fma.f64 (*.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)))
#s(approx (* kx kx) (*.f64 kx kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 th)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
#s(approx (sin kx) (sin.f64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
#s(approx (cos (+ kx kx)) (cos.f64 (+.f64 kx kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (*.f64 (pow.f64 kx #s(literal 5 binary64)) #s(literal 1/120 binary64)))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (.f64 (-.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/6 binary64) (.f64 kx kx))) (pow.f64 kx #s(literal 5 binary64))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 kx kx) (.f64 kx kx))) #s(literal -1/120 binary64)) (/.f64 #s(literal 1/6 binary64) (*.f64 kx kx))) (pow.f64 kx #s(literal 5 binary64))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (.f64 (.f64 (.f64 kx kx) (.f64 kx kx)) #s(literal 1/120 binary64)))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (.f64 (.f64 (.f64 kx kx) (.f64 kx kx)) (-.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/6 binary64) (*.f64 kx kx)))))
#s(approx (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) (.f64 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 kx kx) (.f64 kx kx))) #s(literal -1/120 binary64)) (/.f64 #s(literal 1/6 binary64) (.f64 kx kx))) (.f64 (.f64 kx kx) (.f64 kx kx))))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) (.f64 (.f64 kx kx) #s(literal 1/120 binary64)))
#s(approx (+ (* 1/120 (* kx kx)) -1/6) (.f64 (-.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/6 binary64) (.f64 kx kx))) (*.f64 kx kx)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
#s(approx (cos (+ kx kx)) (cos.f64 (+.f64 kx kx)))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (.f64 (pow.f64 kx #s(literal 5 binary64)) (neg.f64 (-.f64 (/.f64 #s(literal 1/6 binary64) (.f64 kx kx)) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) (.f64 (neg.f64 (pow.f64 kx #s(literal 5 binary64))) (-.f64 (-.f64 (/.f64 #s(literal 1/6 binary64) (.f64 kx kx)) #s(literal 1/120 binary64)) (/.f64 #s(literal 1 binary64) (.f64 (.f64 kx kx) (*.f64 kx kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (sin.f64 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) #s(literal 1/2 binary64))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/5040 binary64)) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)))))))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (sin ky) ky)
#s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky))
#s(approx (sin ky) (.f64 (fma.f64 (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 ky ky) #s(literal 1 binary64)) ky))
#s(approx (sin ky) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 ky ky) #s(literal -1/6 binary64)) (.f64 ky ky) #s(literal 1 binary64)) ky))
#s(approx ky ky)
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (/.f64 (sin.f64 th) (sin.f64 kx)))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (.f64 (.f64 ky ky) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) (.f64 ky ky)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal -8 binary64))))) (sin.f64 th))) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)))) (.f64 ky ky) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (*.f64 ky (/.f64 ky (sin.f64 kx))) #s(literal 1/2 binary64) (sin.f64 kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 ky ky)) #s(literal 1/2 binary64)) (sin.f64 kx)) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 ky ky)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (sin.f64 kx)) (.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (sin.f64 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) #s(literal 1/2 binary64))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/5040 binary64)) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)))))))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 th) (/.f64 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)))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (-.f64 (.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (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) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 ky ky) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))) ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sin.f64 th)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (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 ky ky) (-.f64 (.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (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) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 ky ky) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))) ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (-.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (fma.f64 (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (/.f64 (-.f64 (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64)))) (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/12 binary64) (/.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))))) (fma.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (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 #s(literal -1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64))))) (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sin.f64 th)) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))) (.f64 ky ky) (.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 th) (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) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 ky ky) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))) ky))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (+.f64 (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))) (.f64 ky (.f64 (-.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/6 binary64)) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 ky ky)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (+.f64 (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))) (.f64 ky (.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/120 binary64) (fma.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/6 binary64)))) (.f64 ky ky) (-.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/6 binary64)) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 ky ky)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (+.f64 (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))) (.f64 ky (.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/120 binary64) (fma.f64 (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64)))) (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/12 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))) (fma.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/120 binary64) (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/5040 binary64)))) (.f64 ky ky) (fma.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/6 binary64))))) (.f64 ky ky) (-.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/6 binary64)) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 ky ky)))))
#s(approx (/ ky (sqrt 1/2)) (/.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 (sin.f64 th) (/.f64 ky (sin.f64 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) #s(literal 1/2 binary64))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/5040 binary64)) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 kx)))))))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (/.f64 ky (sin.f64 kx)))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/6 binary64))) (.f64 ky ky))) ky))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))))) (.f64 ky ky)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/6 binary64)))) (*.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (.f64 (fma.f64 (-.f64 (.f64 (.f64 ky ky) (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (-.f64 (fma.f64 (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal -8 binary64))))) (sin.f64 kx)) #s(literal -1/2 binary64) (.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/5040 binary64)))) (.f64 ky ky) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) #s(literal 1/3 binary64))))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/6 binary64)))) (*.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (*.f64 ky (/.f64 ky (sin.f64 kx))) #s(literal 1/2 binary64) (sin.f64 kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 ky ky)) #s(literal 1/2 binary64)) (sin.f64 kx)) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 ky ky)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (sin.f64 kx)) (.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (sin ky) (sin.f64 ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky 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 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (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) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal -1/6 binary64) (sin.f64 ky)))) (.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 th th))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) th))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))) th))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))) th))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(literal -1/6 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))) th))
#s(approx (sin th) th)
(neg.f64 (neg.f64 #s(approx (sin th) th)))
#s(approx (sin th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th))
#s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th))
#s(approx (sin th) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 th th) #s(literal -1/6 binary64)) (.f64 th th) #s(literal 1 binary64)) th))
#s(approx th th)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (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) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal -1/6 binary64) (sin.f64 ky)))) (.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 th th))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) th)
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th))
#s(approx (+ (* (* th th) -1/6) 1) #s(literal 1 binary64))
#s(approx (+ (* (* th th) -1/6) 1) (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))))) th))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 th th) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64))))) th))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (fma.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))))))) (.f64 th th))) (.f64 th th) (.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64))))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (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) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal -1/6 binary64) (sin.f64 ky)))) (.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 th th))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 ky))) th))
#s(approx (sin th) (sin.f64 th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (.f64 (*.f64 th th) th) #s(literal -1/6 binary64)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (.f64 (.f64 th th) th)))
#s(approx (+ (* (* th th) -1/6) 1) (.f64 (.f64 th th) #s(literal -1/6 binary64)))
#s(approx (+ (* (* th th) -1/6) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (*.f64 th th)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (neg.f64 (.f64 (.f64 th th) th)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))

eval87.0ms (0.4%)

Memory: 15.5MiB live, 161.3MiB allocated; 16ms collecting garbage
Compiler: Compiled 9 345 to 3 398 computations (63.6% saved)

prune130.0ms (0.6%)

Memory

1.2MiB live, 101.3MiB allocated; 9ms collecting garbage

Pruning

72 alts after pruning (67 fresh and 5 done)

	Pruned	Kept	Total
New	641	34	675
Fresh	12	33	45
Picked	2	3	5
Done	0	2	2
Total	655	72	727

Accuracy

100.0%

Counts

727 → 72

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.8%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	53.5%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky)))
	46.8%	(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	50.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 th th) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))
	50.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 kx kx) #s(literal 1/120 binary64)) (.f64 kx kx) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
✓	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 #s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	57.7%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) #s(approx ( (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) kx)))) (sin.f64 th))
	50.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(approx (sin th) th))
	76.6%	(*.f64 (/.f64 (sin.f64 ky) (/.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
	75.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))))) (sin.f64 th))
	76.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) #s(literal 2 binary64)))) (sin.f64 th))
▶	38.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) #s(approx (sin th) th))
	76.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 th))
	70.0%	(.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))
	38.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) #s(approx (sin th) th))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) (sin.f64 th))
	31.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))) (sin.f64 th))
	30.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (- (+ ( kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (fma.f64 kx kx (*.f64 ky ky)))))) (sin.f64 th))
	19.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (- (+ ( kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (*.f64 kx kx))))) (sin.f64 th))
	44.5%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (fabs.f64 (sin.f64 ky)))) (sin.f64 th))
	43.7%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (fabs.f64 (sin.f64 kx)))) (sin.f64 th))
▶	32.6%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	56.4%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (hypot.f64 #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sin.f64 kx))) (sin.f64 th))
	38.3%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (hypot.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	64.6%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))
	45.5%	(.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	27.0%	(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
✓	99.6%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	32.5%	(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))))
	50.5%	(.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 th th) #s(literal 1 binary64)) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
✓	50.6%	(*.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	32.8%	(*.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (hypot.f64 #s(approx (sin kx) kx) (sin.f64 ky))))
	19.3%	(.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) #s(approx (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))))
▶	99.5%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 th))))
	26.9%	(*.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 (/.f64 ky (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))) (sin.f64 th))
	31.3%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (sin.f64 th))
	44.4%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))) (sin.f64 th))
	26.9%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))) (sin.f64 th))
	13.9%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 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))))))) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))
▶	9.8%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx))))))) (sin.f64 th))
	18.9%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (*.f64 kx (+.f64 kx kx))))))) (sin.f64 th))
	21.2%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) kx))))) (sin.f64 th))
	21.5%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) kx))))) (sin.f64 th))
	26.8%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/4 binary64))))) (sin.f64 th))
	21.6%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) #s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)))) (sin.f64 th))
	76.4%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
	16.3%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(approx ( (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 kx kx) ky) ky) kx))) (sin.f64 th))
	21.6%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(approx ( (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky kx))) (sin.f64 th))
	29.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	27.9%	(.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)))))
	62.6%	(*.f64 #s(approx (sin ky) ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))))
	30.5%	(*.f64 #s(approx (sin ky) ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))))
	51.0%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
	31.1%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
	38.4%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	95.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
	11.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 (+.f64 (neg.f64 th) (PI.f64))))
	11.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 (neg.f64 (+.f64 th (PI.f64)))))
✓	30.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	7.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (cos.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64)))))
	0.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (exp.f64 (.f64 (log.f64 (neg.f64 th)) #s(literal 2 binary64))) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	15.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	15.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 th (.f64 th #s(literal -1/6 binary64)) #s(literal 1 binary64)) th)))
	9.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 #s(approx (+ ( (* th th) -1/6) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (*.f64 th th))) th)))
	11.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 #s(approx (+ ( (* th th) -1/6) 1) (.f64 (.f64 th th) #s(literal -1/6 binary64))) th)))
	11.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (.f64 (*.f64 th th) th) #s(literal -1/6 binary64)))))
▶	15.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th)))

Compiler

Compiled 3 228 to 3 014 computations (6.6% saved)

series90.0ms (0.5%)

Memory

13.5MiB live, 148.8MiB allocated; 10ms collecting garbage

Counts

44 → 251

Calls

Call 1

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

Outputs
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (sin th)))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (sin th) (sin ky))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 3))) (/ (sin th) (sin ky)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* 1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))) (/ (sin th) (sin ky)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (/ (sin th) (sin ky)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (/ (sin th) (sin ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 3))) (/ (sin th) (sin ky)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* 1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))) (/ (sin th) (sin ky)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (/ (sin th) (sin ky)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ 1 (sin ky))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sin kx) #s(hole binary64 kx))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* -1/6 (pow kx 2))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))))
#s(approx kx #s(hole binary64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (sin th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky)))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ ky kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* 1/12 (/ (* (pow kx 2) ky) (pow (sqrt 1/2) 2)))) kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* (pow kx 2) (+ (* 1/12 (/ ky (pow (sqrt 1/2) 2))) (* 1/2 (/ (* (pow kx 2) (* ky (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 2)))))) kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* (pow kx 2) (+ (* 1/12 (/ ky (pow (sqrt 1/2) 2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (pow (sqrt 1/2) 2))) (* 1/2 (/ (* (pow kx 2) (* ky (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 2)))))))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (sqrt 1/2) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (sqrt 2))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* -1/3 (/ (pow kx 2) (sqrt 2)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* (pow kx 2) (- (* 1/2 (/ (* (pow kx 2) (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2))))) (sqrt 2))) (* 1/3 (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 2/315 (* -1/3 (/ (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2)))) (pow (sqrt 2) 2))))) (sqrt 2))) (* 1/2 (/ (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2)))) (sqrt 2))))) (* 1/3 (/ 1 (sqrt 2)))))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* 2 (pow kx 2))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* 2 (pow kx 2))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 2))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 (+ 2 (* -2/3 (pow kx 2)))))
#s(approx (* kx kx) #s(hole binary64 (pow kx 2)))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 1))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (+ (* -2 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (+ (* -2 (* (/ (* (pow kx 2) (sin ky)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky)))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (* 1/2 (* (/ (pow kx 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (* 1/2 (- 1 (cos (* 2 ky))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow kx 2))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 1/2))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (+ 1/2 (* -1 (pow kx 2)))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (+ 1/2 (* (pow kx 2) (- (* 1/3 (pow kx 2)) 1)))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (+ 1/2 (* (pow kx 2) (- (* (pow kx 2) (+ 1/3 (* -2/45 (pow kx 2)))) 1)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 1))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* -2 (pow kx 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 2/3 (pow kx 2)) 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/3 (* -4/45 (pow kx 2)))) 2)))))
#s(approx (+ kx kx) #s(hole binary64 (* 2 kx)))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* (sin th) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* (sin th) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (sin kx) #s(hole binary64 (sin kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (sqrt (- 1 (cos (* 2 kx))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (- 1 (cos (* 2 kx)))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* -2/3 (pow kx 4))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* (pow kx 4) (- (* 2 (/ 1 (pow kx 2))) 2/3))))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 (* -2/3 (pow kx 2))))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 (* (pow kx 2) (- (* 2 (/ 1 (pow kx 2))) 2/3))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (* 1/2 (cos (* 2 kx)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (* 2 kx))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (neg (* -2 kx)))))))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (sqrt (/ 1 (- 1 (cos (neg (* -2 kx))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (sqrt (- 1 (cos (neg (* -2 kx)))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (- 1 (cos (neg (* -2 kx))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx)))))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (* 1/2 (cos (neg (* -2 kx))))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (neg (* -2 kx)))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (sin ky) #s(hole binary64 ky))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* -1/6 (pow ky 2))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))))
#s(approx ky #s(hole binary64 ky))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (sin th) (sin kx))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow ky 2) (sin th)) (pow (sin kx) 3))) (/ (sin th) (sin kx)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))))) (/ (sin th) (sin kx)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))) (/ (sin th) (sin kx)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (/ (sin th) (sin kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* -1/2 (/ (* (pow ky 2) (sin th)) (pow (sin kx) 3))) (/ (sin th) (sin kx)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))))) (/ (sin th) (sin kx)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))) (/ (sin th) (sin kx)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ 1 (sin kx))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (- (* 1/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* ky (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ ky (sqrt 1/2)) #s(hole binary64 (/ ky (sqrt 1/2))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* ky (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* ky (+ (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (* -1/6 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* ky (+ (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (+ (* -1/6 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* (pow ky 2) (+ (* 1/120 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (+ (* 1/12 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (* 1/2 (* (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* ky (+ (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (+ (* -1/6 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* (pow ky 2) (+ (* 1/120 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (+ (* 1/12 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (+ (* 1/2 (* (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 2/45 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 2/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 4)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/12 (* (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/240 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (* -1/5040 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (+ (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (* -1/6 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (+ (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (+ (* -1/6 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* 1/12 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (* 1/2 (* (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (+ (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (+ (* -1/6 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* 1/12 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (+ (* 1/2 (* (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 2/45 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 2/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 4))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/12 (* (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/240 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (* -1/5040 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))) (* 1/2 (* (pow ky 2) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* 1/2 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* 1/2 (* (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (pow ky 2)) (* 1/2 (cos (* 2 kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 1/2))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (pow ky 2))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* 2 (pow ky 2))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 1))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* -2 (pow ky 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2)))))
#s(approx (+ ky ky) #s(hole binary64 (* 2 ky)))
#s(approx (sin ky) #s(hole binary64 (sin ky)))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky)))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (- 1 (cos (* 2 ky)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (* 2 ky))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx)))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky))))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (- 1 (cos (neg (* -2 ky))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (neg (* -2 ky)))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* -1/6 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* 1/120 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* -1/6 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* 1/120 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))))
#s(approx (sin th) #s(hole binary64 th))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* th (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (pow th 2) (+ (* -1/5040 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))))))))))))
#s(approx (sin th) #s(hole binary64 (sin th)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* -1/6 (pow th 3))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* (pow th 3) (- (/ 1 (pow th 2)) 1/6))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))))

Calls

9 calls:

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

rewrite661.0ms (3.3%)

Memory

-21.2MiB live, 536.3MiB allocated; 75ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1479	13700
0	1540	12060
1	5190	11785
0	8331	10587
0	28187	10008

Stop Event

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

Counts

295 → 727

Calls

Call 1

Inputs
(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 th))))
(sin.f64 ky)
ky
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 th)))
(*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
#s(literal 1 binary64)
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sin.f64 kx)
kx
(sin.f64 th)
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th)))
#s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) th)
(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx))))))) (sin.f64 th))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (.f64 kx kx)))))))
(.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (.f64 kx kx))))))
(/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx)))))
(sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx))))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx)))
(.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx))
(fma.f64 #s(literal -2/3 binary64) (*.f64 kx kx) #s(literal 2 binary64))
#s(literal -2/3 binary64)
(*.f64 kx kx)
#s(literal 2 binary64)
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) #s(approx (sin th) th))
(/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
(sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
#s(approx (sin th) th)
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (sin th)))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (sin th) (sin ky))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 3))) (/ (sin th) (sin ky)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* 1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))) (/ (sin th) (sin ky)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (/ (sin th) (sin ky)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (/ (sin th) (sin ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 3))) (/ (sin th) (sin ky)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* 1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))) (/ (sin th) (sin ky)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 3))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (/ (sin th) (sin ky)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ 1 (sin ky))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (sin ky) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 3))))) (/ 1 (sin ky)))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sin kx) #s(hole binary64 kx))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* -1/6 (pow kx 2))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))))
#s(approx (sin kx) #s(hole binary64 (* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))))
#s(approx kx #s(hole binary64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (sin th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (+ (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* -1 (* (/ (* (pow kx 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (- 1 (cos (* 2 ky))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky)))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ ky kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* 1/12 (/ (* (pow kx 2) ky) (pow (sqrt 1/2) 2)))) kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* (pow kx 2) (+ (* 1/12 (/ ky (pow (sqrt 1/2) 2))) (* 1/2 (/ (* (pow kx 2) (* ky (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 2)))))) kx)))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (/ (+ ky (* (pow kx 2) (+ (* 1/12 (/ ky (pow (sqrt 1/2) 2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (pow (sqrt 1/2) 2))) (* 1/2 (/ (* (pow kx 2) (* ky (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 2)))))))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (sqrt 1/2) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (sqrt 2))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* -1/3 (/ (pow kx 2) (sqrt 2)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* (pow kx 2) (- (* 1/2 (/ (* (pow kx 2) (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2))))) (sqrt 2))) (* 1/3 (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (* kx (+ (sqrt 2) (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 2/315 (* -1/3 (/ (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2)))) (pow (sqrt 2) 2))))) (sqrt 2))) (* 1/2 (/ (- 4/45 (* 1/9 (/ 1 (pow (sqrt 2) 2)))) (sqrt 2))))) (* 1/3 (/ 1 (sqrt 2)))))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* 2 (pow kx 2))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* 2 (pow kx 2))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 2))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 (+ 2 (* -2/3 (pow kx 2)))))
#s(approx (* kx kx) #s(hole binary64 (pow kx 2)))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 1))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (+ (* -2 (* (/ (* (pow kx 2) (* (sin ky) (sin th))) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (+ (* (* (sin ky) (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (* (sin ky) (sin th)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (+ (* -2 (* (/ (* (pow kx 2) (sin ky)) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* 1/2 (* (/ (* (pow kx 2) (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (+ (* (* (sin ky) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -2 (* (/ (sin ky) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (* (sin ky) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 ky)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (- 1 (cos (* 2 ky))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))) (* 1/2 (* (/ (* (sin ky) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 ky))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 ky))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 ky))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 ky)))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky)))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (* 1/2 (* (/ (pow kx 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))) (* 1/2 (* (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 ky)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 ky))))))))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (* 1/2 (- 1 (cos (* 2 ky))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (pow kx 2))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (+ (* 1/2 (- 1 (cos (* 2 ky)))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 1/2))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (+ 1/2 (* -1 (pow kx 2)))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (+ 1/2 (* (pow kx 2) (- (* 1/3 (pow kx 2)) 1)))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (+ 1/2 (* (pow kx 2) (- (* (pow kx 2) (+ 1/3 (* -2/45 (pow kx 2)))) 1)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 1))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* -2 (pow kx 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 2/3 (pow kx 2)) 2)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/3 (* -4/45 (pow kx 2)))) 2)))))
#s(approx (+ kx kx) #s(hole binary64 (* 2 kx)))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* (sin th) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* (sin th) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (sin kx) #s(hole binary64 (sin kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (sqrt (- 1 (cos (* 2 kx))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (- 1 (cos (* 2 kx)))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* -2/3 (pow kx 4))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) #s(hole binary64 (* (pow kx 4) (- (* 2 (/ 1 (pow kx 2))) 2/3))))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 (* -2/3 (pow kx 2))))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(hole binary64 (* (pow kx 2) (- (* 2 (/ 1 (pow kx 2))) 2/3))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (* 1/2 (cos (* 2 kx)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (* 2 kx))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 kx))) (cos (* 2 ky)))))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (neg (* -2 kx)))))))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) #s(hole binary64 (sqrt (/ 1 (- 1 (cos (neg (* -2 kx))))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) #s(hole binary64 (sqrt (- 1 (cos (neg (* -2 kx)))))))
#s(approx (- 1 (cos (+ kx kx))) #s(hole binary64 (- 1 (cos (neg (* -2 kx))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (neg (* -2 kx)))))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(hole binary64 (* 1/2 (cos (neg (* -2 kx))))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (neg (* -2 kx)))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (sin ky) #s(hole binary64 ky))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* -1/6 (pow ky 2))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))))
#s(approx (sin ky) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))))
#s(approx ky #s(hole binary64 ky))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (sin th) (sin kx))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow ky 2) (sin th)) (pow (sin kx) 3))) (/ (sin th) (sin kx)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))))) (/ (sin th) (sin kx)))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))) (/ (sin th) (sin kx)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (/ (sin th) (sin kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* -1/2 (/ (* (pow ky 2) (sin th)) (pow (sin kx) 3))) (/ (sin th) (sin kx)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))))) (/ (sin th) (sin kx)))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))) (/ (sin th) (sin kx)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ 1 (sin kx))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (- (* 1/2 (* (pow ky 2) (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/2 (* (pow ky 2) (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (sin kx)))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* ky (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* ky (+ (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ (sin th) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ ky (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* ky (+ (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/6 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -1 (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (- 1 (cos (* 2 kx))))) (+ (* 4/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (* 2 (/ (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 2/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (/ 1 (pow (- 1 (cos (* 2 kx))) 3))) (sqrt 1/2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/120 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))))
#s(approx (/ ky (sqrt 1/2)) #s(hole binary64 (/ ky (sqrt 1/2))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* ky (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* ky (+ (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (* -1/6 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* ky (+ (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (+ (* -1/6 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* (pow ky 2) (+ (* 1/120 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (+ (* 1/12 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (* 1/2 (* (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* ky (+ (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (+ (* -1/6 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* (pow ky 2) (+ (* 1/120 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (+ (* 1/12 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (+ (* 1/2 (* (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 2/45 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 2/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 4)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/12 (* (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/240 (* (sin th) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))))) (* -1/5040 (* (sin th) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (+ (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (* -1/6 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (+ (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (+ (* -1/6 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* 1/12 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (* 1/2 (* (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* ky (+ (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (+ (* -1/6 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* 1/12 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (+ (* 1/2 (* (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 2/45 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 2/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 4))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/12 (* (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))))) (+ (* -1/240 (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3)))) (* -1/5040 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))) (* 1/2 (* (pow ky 2) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* 1/2 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (* 1/2 (* (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))) (- 1/2 (* 1/2 (cos (* 2 kx)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (pow ky 2)) (* 1/2 (cos (* 2 kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 1/2))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (pow ky 2))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* 2 (pow ky 2))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* -2/3 (pow ky 2))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* 4/45 (pow ky 2)) 2/3))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (* (pow ky 2) (+ 2 (* (pow ky 2) (- (* (pow ky 2) (+ 4/45 (* -2/315 (pow ky 2)))) 2/3))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 1))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* -2 (pow ky 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2)))))
#s(approx (+ ky ky) #s(hole binary64 (* 2 ky)))
#s(approx (sin ky) #s(hole binary64 (sin ky)))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky)))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (- 1 (cos (* 2 ky)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (* 2 ky))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* (sin ky) (sin th)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(hole binary64 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (neg (* -2 ky))) (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) #s(hole binary64 (sqrt (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx)))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) #s(hole binary64 (- (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky)))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(hole binary64 (+ 1/2 (* 1/2 (- 1 (cos (neg (* -2 ky))))))))
#s(approx (- 1 (cos (+ ky ky))) #s(hole binary64 (- 1 (cos (neg (* -2 ky))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (neg (* -2 ky)))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (sin ky) (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* -1/6 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* 1/120 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (/ (sin th) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* -1/6 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* 1/120 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) #s(hole binary64 (* th (+ (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (* (pow th 2) (+ (* -1/6 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))))
#s(approx (sin th) #s(hole binary64 th))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))))
#s(approx (sin th) #s(hole binary64 (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* th (+ 1 (* -1/6 (pow th 2))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* (/ (* th (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) #s(hole binary64 (* th (+ (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))) (* (pow th 2) (+ (* -1/6 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* (pow th 2) (+ (* -1/5040 (* (/ (* (pow th 2) (sin ky)) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky)))))))) (* 1/120 (* (/ (sin ky) (sqrt 1/2)) (sqrt (/ 1 (- 2 (+ (cos (* 2 kx)) (cos (* 2 ky))))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx)))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (- 1 (cos (* 2 ky))))) (* 1/2 (cos (* 2 kx))))))))))))))))
#s(approx (sin th) #s(hole binary64 (sin th)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* -1/6 (pow th 3))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* (pow th 3) (- (/ 1 (pow th 2)) 1/6))))
#s(approx (* (+ (* (* th th) -1/6) 1) th) #s(hole binary64 (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))))

Outputs
(.f64 #s(approx ( (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) (sin.f64 ky))
(.f64 (sin.f64 ky) #s(approx ( (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))))
(neg.f64 (neg.f64 (sin.f64 ky)))
(sin.f64 (neg.f64 (+.f64 ky (PI.f64))))
(sin.f64 (+.f64 (+.f64 ky (PI.f64)) (PI.f64)))
(sin.f64 (+.f64 (neg.f64 ky) (PI.f64)))
(sin.f64 ky)
(cos.f64 (+.f64 (+.f64 ky (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (neg.f64 ky) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (+.f64 ky (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64)))
ky
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(*.f64 #s(literal 1 binary64) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(*.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(/.f64 (neg.f64 (sin.f64 th)) (neg.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(neg.f64 (/.f64 (sin.f64 th) (neg.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx)))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 th)) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(.f64 (pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))
(*.f64 (pow.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #s(literal -1/2 binary64)) (pow.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(pow.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #s(literal -1 binary64))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal -2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(neg.f64 (/.f64 #s(literal -1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(neg.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx)))))
(sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (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 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (sqrt.f64 (fma.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 2 binary64))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) #s(literal 2 binary64))
(neg.f64 (neg.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
(sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (sin.f64 kx))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))) (sin.f64 ky))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 kx))) (sin.f64 ky))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (sin.f64 kx))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (neg.f64 (sin.f64 kx)))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (fabs.f64 (sin.f64 ky)) (sin.f64 kx))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (neg.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (sin.f64 kx)) (neg.f64 (sin.f64 ky)))
(hypot.f64 (neg.f64 (sin.f64 kx)) (sin.f64 ky))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (sin.f64 ky)) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (neg.f64 (sin.f64 ky)) (sin.f64 kx))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (neg.f64 (sin.f64 ky)))
(hypot.f64 (fabs.f64 (sin.f64 kx)) (sin.f64 ky))
(hypot.f64 (sin.f64 ky) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 kx)))))
(hypot.f64 (sin.f64 ky) (neg.f64 (fabs.f64 (sin.f64 kx))))
(hypot.f64 (sin.f64 ky) (neg.f64 (sin.f64 kx)))
(hypot.f64 (sin.f64 ky) (fabs.f64 (sin.f64 kx)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(hypot.f64 (sin.f64 kx) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))))
(hypot.f64 (sin.f64 kx) (neg.f64 (fabs.f64 (sin.f64 ky))))
(hypot.f64 (sin.f64 kx) (fabs.f64 (sin.f64 ky)))
(hypot.f64 (sin.f64 kx) (neg.f64 (sin.f64 ky)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(exp.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))) #s(literal 1/2 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 2 binary64))))
(cos.f64 (+.f64 (neg.f64 kx) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (+.f64 kx (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64)))
kx
(*.f64 #s(literal 1 binary64) (sin.f64 th))
(neg.f64 (neg.f64 (sin.f64 th)))
(sin.f64 (neg.f64 (+.f64 th (PI.f64))))
(sin.f64 (+.f64 (+.f64 th (PI.f64)) (PI.f64)))
(sin.f64 (+.f64 (neg.f64 th) (PI.f64)))
(sin.f64 th)
(cos.f64 (+.f64 (+.f64 th (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))) (PI.f64)))
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th)))
#s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) th)
(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64)))))
(.f64 (neg.f64 ky) (/.f64 #s(literal -1 binary64) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))))))
(.f64 (neg.f64 ky) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))))
(.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(.f64 #s(literal -1 binary64) (/.f64 (neg.f64 ky) (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64)))))))
(.f64 #s(literal -1 binary64) (/.f64 ky (neg.f64 (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))) (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))
(.f64 #s(literal 1 binary64) (/.f64 ky (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64)))))
(.f64 ky (/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))))
(.f64 ky (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))) (sqrt.f64 #s(literal 1/2 binary64))))
(.f64 ky (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))))
(/.f64 (/.f64 ky (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 (/.f64 (neg.f64 ky) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (/.f64 ky (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 (/.f64 ky (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(/.f64 (/.f64 (neg.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(/.f64 (neg.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(/.f64 (.f64 (neg.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (.f64 ky (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))))
(/.f64 (.f64 #s(literal -2 binary64) ky) (.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(/.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))
(/.f64 (+.f64 ky ky) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(/.f64 ky (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))))
(/.f64 ky (neg.f64 (neg.f64 (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))))))
(/.f64 ky (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))))
(/.f64 ky (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(neg.f64 (/.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))))
(neg.f64 (/.f64 (.f64 ky (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 ky (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))))
(neg.f64 (/.f64 (neg.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(neg.f64 (/.f64 (.f64 (neg.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))) (sqrt.f64 #s(literal 1/2 binary64))))
(neg.f64 (/.f64 (neg.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))))
(*.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (neg.f64 ky) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky #s(literal 2 binary64)))
(.f64 (neg.f64 ky) (/.f64 #s(literal 2 binary64) (neg.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(.f64 #s(literal -2 binary64) (/.f64 (neg.f64 ky) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(*.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 #s(literal 2 binary64) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(.f64 ky (/.f64 #s(literal 2 binary64) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 #s(literal -2 binary64) ky) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (/.f64 (+.f64 ky ky) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 ky) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (.f64 #s(literal -2 binary64) ky) (neg.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (+.f64 ky ky) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))
(neg.f64 (/.f64 ky (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 (neg.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))))
(neg.f64 (neg.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64)))))
(+.f64 (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 ky (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(.f64 (pow.f64 (.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(pow.f64 (neg.f64 (*.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1/2 binary64) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (*.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(neg.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(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 (.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
#s(literal 1/2 binary64)
(.f64 (pow.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))) #s(literal -1/2 binary64)) (pow.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal -1/4 binary64)) (pow.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal -1/4 binary64)))
(pow.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))) #s(literal -1 binary64))
(pow.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal -1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))
(neg.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(neg.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))))))
(exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))) #s(literal -1 binary64)))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))
(neg.f64 (neg.f64 (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))))
(sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))) #s(literal 1/2 binary64)))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))
(.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)
(.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) (*.f64 kx kx))
(.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) #s(literal 1 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) #s(literal 1 binary64)) (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) #s(literal 1 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 kx))) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 kx))) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (neg.f64 (fabs.f64 kx)) (/.f64 (neg.f64 (fabs.f64 kx)) #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (neg.f64 (fabs.f64 kx)) (/.f64 (neg.f64 (fabs.f64 kx)) #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (neg.f64 (fabs.f64 kx)) (+.f64 (neg.f64 (fabs.f64 kx)) (neg.f64 (fabs.f64 kx))) (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 (neg.f64 (fabs.f64 kx)) (+.f64 (neg.f64 (fabs.f64 kx)) (neg.f64 (fabs.f64 kx))) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx)))
(fma.f64 (neg.f64 (fabs.f64 kx)) (neg.f64 (fabs.f64 kx)) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (neg.f64 (fabs.f64 kx)) (neg.f64 (fabs.f64 kx)) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (.f64 (neg.f64 kx) kx) #s(literal -1 binary64) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (.f64 (neg.f64 kx) kx) #s(literal -1 binary64) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx))))
(fma.f64 (fabs.f64 kx) (/.f64 (fabs.f64 kx) #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (fabs.f64 kx) (/.f64 (fabs.f64 kx) #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (fabs.f64 kx) (+.f64 (fabs.f64 kx) (fabs.f64 kx)) (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 (fabs.f64 kx) (+.f64 (fabs.f64 kx) (fabs.f64 kx)) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx)))
(fma.f64 (fabs.f64 kx) (fabs.f64 kx) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (fabs.f64 kx) (fabs.f64 kx) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (neg.f64 kx) (/.f64 (neg.f64 kx) #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (neg.f64 kx) (/.f64 (neg.f64 kx) #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (neg.f64 kx) (neg.f64 kx) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (neg.f64 kx) (neg.f64 kx) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 (neg.f64 kx) (.f64 #s(literal -2 binary64) kx) (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 (neg.f64 kx) (.f64 #s(literal -2 binary64) kx) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx)))
(fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) (.f64 (sqrt.f64 #s(literal 2 binary64)) kx) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx)))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 kx) kx) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 kx) kx) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx))))
(fma.f64 (.f64 kx kx) #s(literal 2 binary64) (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 (.f64 kx kx) #s(literal 2 binary64) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx)))
(fma.f64 (.f64 kx kx) #s(literal 1 binary64) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 (.f64 kx kx) #s(literal 1 binary64) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx))))
(fma.f64 #s(literal 2 binary64) (.f64 kx kx) (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 #s(literal 2 binary64) (.f64 kx kx) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx)))
(fma.f64 #s(literal 1 binary64) (.f64 kx kx) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 #s(literal 1 binary64) (.f64 kx kx) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx))))
(fma.f64 kx (/.f64 kx #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 kx (/.f64 kx #s(literal 1 binary64)) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(fma.f64 kx (+.f64 kx kx) (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64))))
(fma.f64 kx (+.f64 kx kx) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx)))
(fma.f64 kx kx (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))))
(fma.f64 kx kx (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (.f64 kx kx))))
(+.f64 (.f64 kx (+.f64 kx kx)) (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64))))
(+.f64 (.f64 kx (+.f64 kx kx)) (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx)))
(+.f64 (.f64 kx kx) (fma.f64 kx kx (.f64 (.f64 kx kx) (.f64 (*.f64 kx kx) #s(literal -2/3 binary64)))))
(+.f64 (.f64 kx kx) (fma.f64 kx kx (.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) (*.f64 kx kx))))
(/.f64 (-.f64 #s(literal 4 binary64) (.f64 (.f64 #s(literal 2/3 binary64) (.f64 kx kx)) (.f64 #s(literal 2/3 binary64) (.f64 kx kx)))) (+.f64 #s(literal 2 binary64) (.f64 #s(literal 2/3 binary64) (*.f64 kx kx))))
(/.f64 (-.f64 #s(literal 8 binary64) (pow.f64 (.f64 #s(literal 2/3 binary64) (.f64 kx kx)) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (fma.f64 (.f64 #s(literal 2/3 binary64) (.f64 kx kx)) (.f64 #s(literal 2/3 binary64) (.f64 kx kx)) (.f64 #s(literal 2 binary64) (.f64 #s(literal 2/3 binary64) (*.f64 kx kx))))))
(fma.f64 (*.f64 #s(literal -2/3 binary64) kx) kx #s(literal 2 binary64))
(fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64))
(fma.f64 #s(literal -2/3 binary64) (*.f64 kx kx) #s(literal 2 binary64))
(-.f64 #s(literal 2 binary64) (.f64 #s(literal 2/3 binary64) (.f64 kx kx)))
(+.f64 (.f64 (.f64 kx kx) #s(literal -2/3 binary64)) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (.f64 (.f64 (neg.f64 kx) kx) #s(literal 2/3 binary64)))
(+.f64 #s(literal 2 binary64) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))
#s(literal -2/3 binary64)
(*.f64 (neg.f64 (neg.f64 (fabs.f64 kx))) (neg.f64 (neg.f64 (fabs.f64 kx))))
(*.f64 (neg.f64 (fabs.f64 kx)) (/.f64 (neg.f64 (fabs.f64 kx)) #s(literal 1 binary64)))
(*.f64 (neg.f64 (fabs.f64 kx)) (neg.f64 (fabs.f64 kx)))
(.f64 (.f64 (neg.f64 kx) kx) #s(literal -1 binary64))
(*.f64 (fabs.f64 kx) (/.f64 (fabs.f64 kx) #s(literal 1 binary64)))
(*.f64 (fabs.f64 kx) (fabs.f64 kx))
(*.f64 (neg.f64 kx) (/.f64 (neg.f64 kx) #s(literal 1 binary64)))
(*.f64 (neg.f64 kx) (neg.f64 kx))
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 kx) kx))
(.f64 (.f64 kx kx) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (.f64 kx kx))
(*.f64 kx (/.f64 kx #s(literal 1 binary64)))
(*.f64 kx kx)
(pow.f64 (neg.f64 (fabs.f64 kx)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 kx) #s(literal 2 binary64))
(pow.f64 (neg.f64 kx) #s(literal 2 binary64))
(pow.f64 (*.f64 kx kx) #s(literal 1 binary64))
(pow.f64 kx #s(literal 2 binary64))
(/.f64 (*.f64 kx kx) #s(literal 1 binary64))
(neg.f64 (*.f64 (neg.f64 kx) kx))
(sqrt.f64 (.f64 (.f64 kx kx) (*.f64 kx kx)))
(fabs.f64 (*.f64 (neg.f64 kx) kx))
(fabs.f64 (*.f64 kx kx))
(exp.f64 (*.f64 (log.f64 (fabs.f64 kx)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 kx)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 kx) #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (*.f64 #s(literal -2 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 th ky))) (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (*.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(neg.f64 (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))))
(neg.f64 (/.f64 (*.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
(neg.f64 (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) #s(approx (sin th) th))
(.f64 #s(approx (sin th) th) (/.f64 (sin.f64 ky) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(approx (sin th) th)) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) th)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(neg.f64 (/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) th)) (neg.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))))
(neg.f64 (/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(approx (sin th) th)) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (sin.f64 ky) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) #s(literal 1/4 binary64)) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) #s(literal 1/4 binary64)))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) #s(literal 1/2 binary64))
(neg.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.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) (-.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 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(neg.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(fma.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx 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 -2 binary64)))
(-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(-.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx)))))
(*.f64 (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) #s(literal 1/4 binary64))) (+.f64 #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/8 binary64) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -1/2 binary64))))))
(fma.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(.f64 #s(literal -2 binary64) (.f64 (sin.f64 (+.f64 #s(literal 0 binary64) ky)) (sin.f64 (-.f64 #s(literal 0 binary64) ky))))
(.f64 #s(literal -2 binary64) (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) ky)) (sin.f64 (+.f64 #s(literal 0 binary64) ky))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (/.f64 (+.f64 (+.f64 #s(literal 0 binary64) (/.f64 (PI.f64) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(.f64 #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 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 ky ky)))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 ky ky)) (*.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
(neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (pow.f64 (cos.f64 ky) #s(literal 1 binary64)) (pow.f64 (cos.f64 ky) #s(literal 1 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 (fabs.f64 (fabs.f64 (cos.f64 ky))) (fabs.f64 (fabs.f64 (cos.f64 ky))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (fabs.f64 (sin.f64 ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (neg.f64 (fabs.f64 (cos.f64 ky))) (neg.f64 (fabs.f64 (cos.f64 ky))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 ky))) (neg.f64 (neg.f64 (cos.f64 ky))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 (fabs.f64 (cos.f64 ky)) (fabs.f64 (cos.f64 ky)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 (neg.f64 (cos.f64 ky)) (neg.f64 (cos.f64 ky)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 (neg.f64 (fabs.f64 (sin.f64 ky))) (neg.f64 (fabs.f64 (sin.f64 ky))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (fabs.f64 (sin.f64 ky)) (fabs.f64 (sin.f64 ky)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sin.f64 ky)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (cos.f64 ky) (cos.f64 ky) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (cos.f64 (+.f64 ky ky))))
(fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 (+.f64 #s(literal 0 binary64) ky)) (sin.f64 (-.f64 #s(literal 0 binary64) ky))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) ky)) (sin.f64 (+.f64 #s(literal 0 binary64) ky))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 (sin.f64 ky) (sin.f64 ky) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64))) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (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)))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 ky)))) (-.f64 (fabs.f64 (cos.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 ky)))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 ky)) (fabs.f64 (sin.f64 ky))) (-.f64 (fabs.f64 (cos.f64 ky)) (fabs.f64 (sin.f64 ky))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 ky)) (neg.f64 (sin.f64 ky))) (-.f64 (fabs.f64 (cos.f64 ky)) (neg.f64 (sin.f64 ky))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 ky)) (sin.f64 ky)) (-.f64 (fabs.f64 (cos.f64 ky)) (sin.f64 ky)))
(*.f64 (+.f64 (neg.f64 (cos.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 ky)))) (-.f64 (neg.f64 (cos.f64 ky)) (neg.f64 (fabs.f64 (sin.f64 ky)))))
(*.f64 (+.f64 (neg.f64 (cos.f64 ky)) (fabs.f64 (sin.f64 ky))) (-.f64 (neg.f64 (cos.f64 ky)) (fabs.f64 (sin.f64 ky))))
(*.f64 (+.f64 (neg.f64 (cos.f64 ky)) (neg.f64 (sin.f64 ky))) (-.f64 (neg.f64 (cos.f64 ky)) (neg.f64 (sin.f64 ky))))
(*.f64 (+.f64 (neg.f64 (cos.f64 ky)) (sin.f64 ky)) (-.f64 (neg.f64 (cos.f64 ky)) (sin.f64 ky)))
(*.f64 (+.f64 (cos.f64 ky) (neg.f64 (fabs.f64 (sin.f64 ky)))) (-.f64 (cos.f64 ky) (neg.f64 (fabs.f64 (sin.f64 ky)))))
(*.f64 (+.f64 (cos.f64 ky) (fabs.f64 (sin.f64 ky))) (-.f64 (cos.f64 ky) (fabs.f64 (sin.f64 ky))))
(*.f64 (+.f64 (cos.f64 ky) (neg.f64 (sin.f64 ky))) (-.f64 (cos.f64 ky) (neg.f64 (sin.f64 ky))))
(*.f64 (+.f64 (cos.f64 ky) (sin.f64 ky)) (-.f64 (cos.f64 ky) (sin.f64 ky)))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #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 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))) #s(literal 4 binary64))
(sin.f64 (-.f64 (+.f64 ky (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 ky)))
(sin.f64 (fma.f64 #s(literal -2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (cos.f64 ky) #s(literal 1 binary64)) (pow.f64 (cos.f64 ky) #s(literal 1 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 (cos.f64 ky))) (fabs.f64 (fabs.f64 (cos.f64 ky))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 (cos.f64 ky))) (neg.f64 (fabs.f64 (cos.f64 ky))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 ky))) (neg.f64 (neg.f64 (cos.f64 ky))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -2 binary64) ky)) #s(literal 0 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(fma.f64 (fabs.f64 (cos.f64 ky)) (fabs.f64 (cos.f64 ky)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (cos.f64 ky)) (neg.f64 (cos.f64 ky)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (+.f64 ky ky)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)))
(fma.f64 (cos.f64 ky) (cos.f64 ky) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(cos.f64 (*.f64 #s(literal -2 binary64) ky))
(cos.f64 (+.f64 ky ky))
(+.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (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 (+.f64 ky ky)) #s(literal 0 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #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 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -2 binary64)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(*.f64 (neg.f64 ky) #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) (neg.f64 ky))
(*.f64 #s(literal 2 binary64) ky)
(*.f64 ky #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -2 binary64) ky))
(+.f64 ky ky)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))
(*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))) (-.f64 (fabs.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))) (-.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))))
(*.f64 (+.f64 (fabs.f64 (cos.f64 kx)) (sin.f64 kx)) (-.f64 (fabs.f64 (cos.f64 kx)) (sin.f64 kx)))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))) (-.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (sin.f64 kx))))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))) (-.f64 (neg.f64 (cos.f64 kx)) (fabs.f64 (sin.f64 kx))))
(*.f64 (+.f64 (neg.f64 (cos.f64 kx)) (sin.f64 kx)) (-.f64 (neg.f64 (cos.f64 kx)) (sin.f64 kx)))
(*.f64 (+.f64 (cos.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))) (-.f64 (cos.f64 kx) (neg.f64 (fabs.f64 (sin.f64 kx)))))
(*.f64 (+.f64 (cos.f64 kx) (neg.f64 (sin.f64 kx))) (-.f64 (cos.f64 kx) (neg.f64 (sin.f64 kx))))
(*.f64 (+.f64 (cos.f64 kx) (fabs.f64 (sin.f64 kx))) (-.f64 (cos.f64 kx) (fabs.f64 (sin.f64 kx))))
(*.f64 (+.f64 (cos.f64 kx) (sin.f64 kx)) (-.f64 (cos.f64 kx) (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))))) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) #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 (sin.f64 kx) #s(literal 6 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 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)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #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 kx kx)) #s(literal 1 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal 4 binary64))
(sin.f64 (-.f64 (+.f64 kx (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 kx)))
(sin.f64 (fma.f64 #s(literal -2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (fma.f64 #s(literal 2 binary64) kx (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (cos.f64 kx) #s(literal 1 binary64)) (pow.f64 (cos.f64 kx) #s(literal 1 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 (cos.f64 kx))) (fabs.f64 (fabs.f64 (cos.f64 kx))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 (cos.f64 kx))) (neg.f64 (fabs.f64 (cos.f64 kx))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (neg.f64 (cos.f64 kx))) (neg.f64 (neg.f64 (cos.f64 kx))) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (.f64 #s(literal -2 binary64) kx)) #s(literal 0 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(fma.f64 (fabs.f64 (cos.f64 kx)) (fabs.f64 (cos.f64 kx)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (cos.f64 kx)) (neg.f64 (cos.f64 kx)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(fma.f64 (sin.f64 (+.f64 kx kx)) #s(literal 0 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))
(fma.f64 (cos.f64 kx) (cos.f64 kx) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)))
(-.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #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)))))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
(cos.f64 (*.f64 #s(literal -2 binary64) kx))
(cos.f64 (+.f64 kx kx))
(+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (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 (+.f64 kx kx)) #s(literal 0 binary64)) (.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 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -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 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
(*.f64 (neg.f64 kx) #s(literal -2 binary64))
(*.f64 #s(literal -2 binary64) (neg.f64 kx))
(*.f64 #s(literal 2 binary64) kx)
(*.f64 kx #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -2 binary64) kx))
(+.f64 kx kx)
#s(approx (sin th) 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)) (-.f64 (sin.f64 th) (/.f64 (.f64 (.f64 kx kx) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (sin.f64 th) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)))))) (.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (sin.f64 ky)))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (.f64 (*.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal -3 binary64)))) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 3 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx kx)))) (*.f64 kx kx) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 ky)))) (.f64 kx kx) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 3 binary64)))) (*.f64 kx kx) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (sin.f64 ky)))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (.f64 (*.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal -3 binary64)))) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 3 binary64))) (.f64 (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx kx)))) (*.f64 kx kx) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) (.f64 (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)) (sin.f64 ky)))) (.f64 kx kx) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 3 binary64)))) (*.f64 kx kx) (/.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal -3 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (pow.f64 (sin.f64 ky) #s(literal -3 binary64)))) (.f64 kx kx) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64)))))) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 ky)))) (.f64 kx kx) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal -3 binary64)))) (*.f64 kx kx) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 ky))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (*.f64 kx (/.f64 kx (sin.f64 ky))) #s(literal 1/2 binary64) (sin.f64 ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (.f64 kx kx)) #s(literal 1/2 binary64)) (sin.f64 ky)) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 kx kx)) (.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)))) (sin.f64 ky)) (.f64 kx kx) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (sin kx) kx)
#s(approx (sin kx) (.f64 (fma.f64 (.f64 kx kx) #s(literal -1/6 binary64) #s(literal 1 binary64)) kx))
#s(approx (sin kx) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 kx kx)) #s(literal 1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx))
#s(approx (sin kx) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 kx kx) #s(literal 1/120 binary64)) (.f64 kx kx)) #s(literal 1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx))
#s(approx kx kx)
#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)) (-.f64 (sin.f64 th) (/.f64 (.f64 (.f64 kx kx) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (/.f64 (sin.f64 th) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (sin.f64 th))) #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (sin.f64 th)))))) (.f64 kx kx) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (fma.f64 (neg.f64 (.f64 (.f64 kx kx) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (.f64 (sin.f64 th) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (/.f64 (.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)))) (.f64 kx kx) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (fma.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 kx kx) (fma.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 ky) (.f64 (sin.f64 th) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (fma.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (fma.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))) (neg.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))))))) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64)))))))) (.f64 kx kx) (.f64 (/.f64 (.f64 (neg.f64 (sin.f64 th)) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (fma.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (.f64 (*.f64 (neg.f64 kx) kx) (sin.f64 ky)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (fma.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64))))) (.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (neg.f64 (/.f64 (.f64 (sin.f64 ky) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 kx kx) (*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (fma.f64 (fma.f64 (neg.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64))) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 ky) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (fma.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))) (neg.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64))))))) (sin.f64 ky)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64)))))))))) (.f64 kx kx) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky kx))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 kx kx) ky) ky) kx))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 kx kx) ky) #s(literal 7/360 binary64) (.f64 #s(literal 1/6 binary64) ky)) (.f64 kx kx) ky) kx))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 7/360 binary64) ky (.f64 (.f64 (.f64 kx kx) ky) #s(literal 31/15120 binary64))) (.f64 #s(literal 1/6 binary64) ky)) (.f64 kx kx) ky) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (fma.f64 (*.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 #s(literal 7/360 binary64) (.f64 kx kx)) #s(literal 1/12 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64))) kx))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 #s(literal 31/15120 binary64) (.f64 kx kx)) #s(literal 7/720 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64))) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (.f64 kx kx) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/30 binary64) (*.f64 kx kx))) #s(literal 1/3 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) kx))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/1260 binary64) (.f64 kx kx)) #s(literal 1/60 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 kx kx)) (/.f64 #s(literal 1/3 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 kx kx) (sqrt.f64 #s(literal 2 binary64))) kx))
#s(approx (- 1 (cos (+ kx kx))) (*.f64 kx (+.f64 kx kx)))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 4/45 binary64) (.f64 kx kx)) #s(literal 2/3 binary64)) (.f64 kx kx) #s(literal 2 binary64)) (*.f64 kx kx)))
#s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -2/315 binary64) (.f64 kx kx) #s(literal 4/45 binary64)) (.f64 kx kx)) #s(literal 2/3 binary64)) (.f64 kx kx) #s(literal 2 binary64)) (.f64 kx kx)))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) (*.f64 kx (+.f64 kx kx)))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx))
#s(approx (+ (* -2/3 (* kx kx)) 2) #s(literal 2 binary64))
#s(approx (+ (* -2/3 (* kx kx)) 2) (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))
#s(approx (* kx kx) (*.f64 kx kx))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(literal 1 binary64))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 kx kx) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))) (-.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) (cos.f64 (+.f64 ky ky))))) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 2 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 2/45 binary64) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal -8 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)) (fma.f64 (pow.f64 (sin.f64 ky) #s(literal -6 binary64)) #s(literal 3/4 binary64) (.f64 (pow.f64 (sin.f64 ky) #s(literal -4 binary64)) #s(literal 1/3 binary64))))) (.f64 kx kx)) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 ky))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (*.f64 kx (/.f64 kx (sin.f64 ky))) #s(literal 1/2 binary64) (sin.f64 ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (.f64 kx kx)) #s(literal 1/2 binary64)) (sin.f64 ky)) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 kx kx)) (.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)))) (sin.f64 ky)) (.f64 kx kx) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (*.f64 kx kx) (sin.f64 ky)))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sin.f64 th)) (sin.f64 ky)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky)))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (fma.f64 (.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (.f64 kx kx)) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sin.f64 th)) (sin.f64 ky)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 (fma.f64 #s(literal 4/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 6 binary64))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx kx)) (fabs.f64 (sin.f64 ky))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)))) (.f64 kx kx) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sin.f64 th)) (sin.f64 ky)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (fma.f64 (fma.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (fma.f64 #s(literal 4/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 6 binary64))) (sin.f64 th)) (sin.f64 ky)) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (+.f64 (fma.f64 #s(literal 8/45 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 4/3 binary64) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))) (.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64))))) (neg.f64 (/.f64 (fma.f64 #s(literal 4/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 6 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 th)) (sin.f64 ky)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64)))))))))) (.f64 kx kx) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sin.f64 th)) (sin.f64 ky)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (fma.f64 (.f64 (.f64 (sin.f64 ky) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64))) #s(literal -2 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (fma.f64 #s(literal 4/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 6 binary64)))) (fabs.f64 (sin.f64 ky))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -2 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)))) (.f64 kx kx) (*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (fma.f64 (fma.f64 (.f64 #s(literal -2 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3/2 binary64)) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 4/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 6 binary64))) (sin.f64 ky)) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (+.f64 (fma.f64 #s(literal 8/45 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 4/3 binary64) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 4 binary64)))) (.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64))))) (neg.f64 (/.f64 (fma.f64 #s(literal 4/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal -3 binary64)) #s(literal 6 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64)))))))))) (.f64 kx kx) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fma.f64 (.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fma.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 1/2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 kx kx) (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fma.f64 (fma.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (.f64 kx kx)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))) (.f64 kx kx) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (*.f64 kx kx)))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (*.f64 kx kx))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 2/45 binary64) (.f64 kx kx)) #s(literal 1/3 binary64)) (.f64 kx kx) #s(literal 1 binary64)) (*.f64 kx kx))))
#s(approx (* 1/2 (cos (+ kx kx))) #s(literal 1/2 binary64))
#s(approx (* 1/2 (cos (+ kx kx))) (-.f64 #s(literal 1/2 binary64) (*.f64 kx kx)))
#s(approx (* 1/2 (cos (+ kx kx))) (fma.f64 (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 kx kx)) #s(literal 1 binary64)) (*.f64 kx kx) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (cos (+ kx kx))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -2/45 binary64) (.f64 kx kx) #s(literal 1/3 binary64)) (.f64 kx kx)) #s(literal 1 binary64)) (.f64 kx kx) #s(literal 1/2 binary64)))
#s(approx (cos (+ kx kx)) #s(literal 1 binary64))
#s(approx (cos (+ kx kx)) (fma.f64 #s(literal -2 binary64) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (cos (+ kx kx)) (fma.f64 (-.f64 (.f64 #s(literal 2/3 binary64) (.f64 kx kx)) #s(literal 2 binary64)) (*.f64 kx kx) #s(literal 1 binary64)))
#s(approx (cos (+ kx kx)) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -4/45 binary64) (.f64 kx kx) #s(literal 2/3 binary64)) (.f64 kx kx)) #s(literal 2 binary64)) (.f64 kx kx) #s(literal 1 binary64)))
#s(approx (+ kx kx) (+.f64 kx kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
#s(approx (sin kx) (sin.f64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) (.f64 (.f64 (.f64 kx kx) (.f64 kx kx)) #s(literal -2/3 binary64)))
#s(approx (* (+ (* -2/3 (* kx kx)) 2) (* kx kx)) (.f64 (-.f64 (/.f64 #s(literal 2 binary64) (.f64 kx kx)) #s(literal 2/3 binary64)) (.f64 (.f64 kx kx) (*.f64 kx kx))))
#s(approx (+ (* -2/3 (* kx kx)) 2) (.f64 (.f64 kx kx) #s(literal -2/3 binary64)))
#s(approx (+ (* -2/3 (* kx kx)) 2) (.f64 (-.f64 (/.f64 #s(literal 2 binary64) (.f64 kx kx)) #s(literal 2/3 binary64)) (*.f64 kx kx)))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (*.f64 (sin.f64 ky) (sin.f64 th))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 ky)))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
#s(approx (* 1/2 (cos (+ kx kx))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))
#s(approx (cos (+ kx kx)) (cos.f64 (+.f64 kx kx)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
#s(approx (/ 1 (sqrt (- 1 (cos (+ kx kx))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (sqrt (- 1 (cos (+ kx kx)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
#s(approx (- 1 (cos (+ kx kx))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (*.f64 (sin.f64 ky) (sin.f64 th))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 ky)))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
#s(approx (* 1/2 (cos (+ kx kx))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))
#s(approx (cos (+ kx kx)) (cos.f64 (+.f64 kx kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (sin.f64 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) #s(literal 1/2 binary64))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/5040 binary64)) (fma.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th)) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64))))) #s(literal -1/2 binary64)))) (.f64 ky ky) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) #s(literal 1/2 binary64)))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (sin ky) ky)
#s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky))
#s(approx (sin ky) (.f64 (fma.f64 (-.f64 (.f64 (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 ky ky) #s(literal 1 binary64)) ky))
#s(approx (sin ky) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 ky ky)) #s(literal 1/6 binary64)) (*.f64 ky ky) #s(literal 1 binary64)) ky))
#s(approx ky ky)
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (sin.f64 kx)))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (.f64 (.f64 ky ky) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (.f64 (.f64 ky ky) (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))) (sin.f64 th))) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))))))) (.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (/.f64 (sin.f64 th) (sin.f64 kx)))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (.f64 (.f64 ky ky) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th))))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (.f64 (.f64 ky ky) (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))) (sin.f64 th))) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))))))) (.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (*.f64 ky (/.f64 ky (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))) (.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
#s(approx (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 (.f64 ky ky) (sin.f64 kx)) (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64))))) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 kx)))) (.f64 ky ky) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))) (.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
(neg.f64 (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (*.f64 ky (/.f64 ky (sin.f64 kx))) #s(literal 1/2 binary64) (sin.f64 kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 ky ky)) #s(literal 1/2 binary64)) (sin.f64 kx)) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 ky ky)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (sin.f64 kx)) (.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (*.f64 (sin.f64 th) (/.f64 ky (sin.f64 kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) #s(literal 1/2 binary64))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/5040 binary64)) (fma.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th)) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64))))) #s(literal -1/2 binary64)))) (.f64 ky ky) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) #s(literal 1/2 binary64)))) (.f64 ky ky) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal -1/6 binary64)))) (*.f64 ky ky) (/.f64 (sin.f64 th) (sin.f64 kx))) ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 th) (/.f64 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)))))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (neg.f64 (.f64 (sin.f64 th) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 ky ky) (/.f64 (*.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))) ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (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 ky ky) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (neg.f64 (.f64 (sin.f64 th) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 ky ky) (/.f64 (*.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))) ky))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (fma.f64 (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (fma.f64 (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64)))) #s(literal 2 binary64) (neg.f64 (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64))))))) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/12 binary64) (/.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64))))) (fma.f64 (.f64 #s(literal -1/120 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (.f64 (.f64 #s(literal -1/5040 binary64) (/.f64 (sin.f64 th) (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 ky ky) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (.f64 (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)))))) (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (neg.f64 (.f64 (sin.f64 th) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 ky ky) (/.f64 (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) (sqrt.f64 #s(literal 1/2 binary64)))) ky))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (+.f64 (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))) (.f64 ky (.f64 (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/6 binary64) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 ky ky)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (+.f64 (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))) (.f64 ky (.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/120 binary64) (fma.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/6 binary64)))) (.f64 ky ky) (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/6 binary64) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 ky ky)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (+.f64 (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))) (.f64 ky (.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/120 binary64) (fma.f64 (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) (+.f64 #s(literal 4/45 binary64) (/.f64 #s(literal 4/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (fma.f64 (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64)))) #s(literal 2 binary64) (neg.f64 (fma.f64 #s(literal 2/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3 binary64)) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 4 binary64))))))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/12 binary64) (/.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))) (fma.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/120 binary64) (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/5040 binary64)))) (.f64 ky ky) (fma.f64 (.f64 (fma.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -2 binary64)) #s(literal 2/3 binary64) (/.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/6 binary64))))) (.f64 ky ky) (fma.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/6 binary64) (/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -3/2 binary64)) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky ky)))))
#s(approx (/ ky (sqrt 1/2)) (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx)))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (fma.f64 (.f64 (neg.f64 ky) ky) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/6 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))))) (.f64 ky ky)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/6 binary64)))) (*.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (fma.f64 (-.f64 (.f64 (.f64 ky ky) (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (.f64 (/.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (.f64 (.f64 ky ky) (fma.f64 (.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))) (sin.f64 kx)) #s(literal -1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/240 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/5040 binary64))))))))) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/6 binary64)))) (.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))
(neg.f64 (neg.f64 #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (*.f64 ky (/.f64 ky (sin.f64 kx))) #s(literal 1/2 binary64) (sin.f64 kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 ky ky)) #s(literal 1/2 binary64)) (sin.f64 kx)) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 ky ky)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (sin.f64 kx)) (.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (*.f64 ky ky) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (sin.f64 th) ky)))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))))) (.f64 ky ky) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 th))) ky))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th))) (fabs.f64 (sin.f64 kx)) (fma.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) (.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (.f64 ky ky) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)))))) (.f64 ky ky) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 th))) ky))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) (fma.f64 (fma.f64 (fabs.f64 (sin.f64 kx)) (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))) (sin.f64 th)) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th)))) (fma.f64 (.f64 #s(literal -1/240 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) (.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (.f64 ky ky) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (sin.f64 th))) (fabs.f64 (sin.f64 kx)))))) (.f64 ky ky) (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64)))))) (.f64 ky ky) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (sin.f64 th))) ky))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (.f64 (fma.f64 (-.f64 (.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) #s(literal -1/2 binary64)) (/.f64 #s(literal 1/6 binary64) (sin.f64 kx))) (*.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (fabs.f64 (sin.f64 kx)) (fma.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) #s(literal 1/12 binary64) (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)))) (.f64 ky ky) (-.f64 (.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) #s(literal -1/2 binary64)) (/.f64 #s(literal 1/6 binary64) (sin.f64 kx)))) (.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (.f64 (fma.f64 (fma.f64 (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 (fma.f64 (fabs.f64 (sin.f64 kx)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 (/.f64 #s(literal 2/3 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 kx) #s(literal -8 binary64)))) (.f64 #s(literal -1/12 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))))) (-.f64 (.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) #s(literal -1/240 binary64)) (/.f64 #s(literal 1/5040 binary64) (sin.f64 kx)))) (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -4 binary64)) (fma.f64 (/.f64 #s(literal 3/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)))) (fabs.f64 (sin.f64 kx)) (.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) #s(literal 1/12 binary64))))) (.f64 ky ky) (-.f64 (.f64 (sqrt.f64 (pow.f64 (sin.f64 kx) #s(literal -6 binary64))) #s(literal -1/2 binary64)) (/.f64 #s(literal 1/6 binary64) (sin.f64 kx)))) (.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fabs.f64 (sin.f64 kx)))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 ky ky)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fabs.f64 (sin.f64 kx))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (.f64 ky ky)) #s(literal 1/2 binary64))) (.f64 ky ky) (fabs.f64 (sin.f64 kx))))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fma.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 #s(literal 2/45 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (.f64 ky ky)) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64) #s(literal 1/3 binary64))))) (.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (.f64 ky ky) (fabs.f64 (sin.f64 kx))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (fma.f64 ky ky (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)) (.f64 ky ky) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (fma.f64 (fma.f64 (-.f64 (.f64 (.f64 ky ky) #s(literal 2/45 binary64)) #s(literal 1/3 binary64)) (.f64 ky ky) #s(literal 1 binary64)) (.f64 ky ky) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(literal 1/2 binary64))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (fma.f64 ky ky #s(literal 1/2 binary64)))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)) (.f64 ky ky) #s(literal 1/2 binary64)))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (fma.f64 (fma.f64 (-.f64 (.f64 (.f64 ky ky) #s(literal 2/45 binary64)) #s(literal 1/3 binary64)) (.f64 ky ky) #s(literal 1 binary64)) (.f64 ky ky) #s(literal 1/2 binary64)))
#s(approx (- 1 (cos (+ ky ky))) (*.f64 ky (+.f64 ky ky)))
#s(approx (- 1 (cos (+ ky ky))) (.f64 (fma.f64 (.f64 ky ky) #s(literal -2/3 binary64) #s(literal 2 binary64)) (*.f64 ky ky)))
#s(approx (- 1 (cos (+ ky ky))) (.f64 (fma.f64 (-.f64 (.f64 (.f64 ky ky) #s(literal 4/45 binary64)) #s(literal 2/3 binary64)) (.f64 ky ky) #s(literal 2 binary64)) (*.f64 ky ky)))
#s(approx (- 1 (cos (+ ky ky))) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 ky ky) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) (.f64 ky ky)) #s(literal 2/3 binary64)) (.f64 ky ky) #s(literal 2 binary64)) (.f64 ky ky)))
#s(approx (cos (+ ky ky)) #s(literal 1 binary64))
#s(approx (cos (+ ky ky)) (fma.f64 (*.f64 ky ky) #s(literal -2 binary64) #s(literal 1 binary64)))
#s(approx (cos (+ ky ky)) (fma.f64 (-.f64 (.f64 (.f64 ky ky) #s(literal 2/3 binary64)) #s(literal 2 binary64)) (*.f64 ky ky) #s(literal 1 binary64)))
#s(approx (cos (+ ky ky)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 ky ky) #s(literal -4/45 binary64) #s(literal 2/3 binary64)) (.f64 ky ky)) #s(literal 2 binary64)) (.f64 ky ky) #s(literal 1 binary64)))
#s(approx (+ ky ky) (+.f64 ky ky))
#s(approx (sin ky) (sin.f64 ky))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (- 1 (cos (+ ky ky))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
#s(approx (cos (+ ky ky)) (cos.f64 (+.f64 ky ky)))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (*.f64 (sin.f64 ky) (sin.f64 th))))
#s(approx (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 ky)))
#s(approx (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
#s(approx (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))
#s(approx (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (- 1 (cos (+ ky ky))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
#s(approx (cos (+ ky ky)) (cos.f64 (+.f64 ky ky)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal -1/6 binary64) (sin.f64 ky)))) (.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 th th))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 ky))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(literal -1/6 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) th))
#s(approx (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(literal -1/6 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))) th))
#s(approx (sin th) th)
#s(approx (sin th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th))
#s(approx (sin th) (.f64 (fma.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 th th) #s(literal 1 binary64)) th))
#s(approx (sin th) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 th th)) #s(literal 1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th))
#s(approx th th)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal -1/6 binary64) (sin.f64 ky)))) (.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (sin.f64 ky)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 th th))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 ky))) th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) th)
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (fma.f64 (.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 th th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))))) th))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 th th) (*.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))))) th))
#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (fma.f64 #s(literal 1/120 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))))))) (.f64 th th))) (.f64 th th) (.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))))) th))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (*.f64 th th) (sin.f64 ky)) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (fma.f64 #s(literal -1/6 binary64) (sin.f64 ky) (.f64 #s(literal 1/120 binary64) (.f64 (.f64 th th) (sin.f64 ky))))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 ky))) th))
#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (fma.f64 #s(literal 1/120 binary64) (sin.f64 ky) (.f64 #s(literal -1/5040 binary64) (.f64 (.f64 th th) (sin.f64 ky))))) (.f64 th th))) (.f64 th th) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 ky))) th))
#s(approx (sin th) (sin.f64 th))
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (.f64 (*.f64 th th) th) #s(literal -1/6 binary64)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (.f64 (.f64 th th) th)))
#s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (neg.f64 (.f64 (.f64 th th) th)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))

eval95.0ms (0.5%)

Memory: 33.2MiB live, 184.2MiB allocated; 21ms collecting garbage
Compiler: Compiled 11 547 to 4 371 computations (62.1% saved)

prune310.0ms (1.6%)

Memory

-2.3MiB live, 145.6MiB allocated; 14ms collecting garbage

Pruning

89 alts after pruning (81 fresh and 8 done)

	Pruned	Kept	Total
New	659	31	690
Fresh	12	50	62
Picked	2	3	5
Done	0	5	5
Total	673	89	762

Accuracy

100.0%

Counts

762 → 89

Alt Table

Click to see full alt table

Status	Accuracy	Program
	95.8%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	53.5%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)) (sin.f64 ky)))
	29.8%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx)))
	46.8%	(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	6.7%	(*.f64 (/.f64 (sin.f64 (+.f64 (+.f64 ky (PI.f64)) (PI.f64))) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	6.2%	(*.f64 (/.f64 (sin.f64 (+.f64 (neg.f64 ky) (PI.f64))) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	5.6%	(*.f64 (/.f64 (sin.f64 (neg.f64 (+.f64 ky (PI.f64)))) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	50.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 th th) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))
	50.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 kx kx) #s(literal 1/120 binary64)) (.f64 kx kx) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
✓	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	57.3%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 #s(approx (+ (* 1/120 (* kx kx)) -1/6) #s(literal -1/6 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	57.7%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) #s(approx ( (+ (* (+ (* 1/120 (* kx kx)) -1/6) (* kx kx)) 1) kx) kx)))) (sin.f64 th))
	50.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(approx (sin th) th))
	76.6%	(*.f64 (/.f64 (sin.f64 ky) (/.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
	76.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) #s(literal 2 binary64)))) (sin.f64 th))
✓	38.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) #s(approx (sin th) th))
	15.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( 1/2 (cos (+ kx kx))) #s(literal 1/2 binary64))))) #s(approx (sin th) th))
	16.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ ky ky))) 1/2) 1/2) (fma.f64 ky ky #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) #s(approx (sin th) th))
	16.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(approx (+ ( (- 1 (cos (+ ky ky))) 1/2) 1/2) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) #s(approx (sin th) th))
	76.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))) (sin.f64 th))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) (sin.f64 th))
	31.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))) (sin.f64 th))
	15.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (- (+ ( (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))) #s(approx (sin th) th))
	30.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (- (+ ( kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (fma.f64 kx kx (*.f64 ky ky)))))) (sin.f64 th))
	19.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (- (+ ( kx kx) 1/2) (* 1/2 (cos (+ ky ky)))) (*.f64 kx kx))))) (sin.f64 th))
	43.7%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2)) (fabs.f64 (sin.f64 kx)))) (sin.f64 th))
	23.2%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (- (+ ( (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx))))) (fabs.f64 (sin.f64 kx)))) #s(approx (sin th) th))
	24.9%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 (+.f64 (neg.f64 kx) (PI.f64))))) (sin.f64 th))
✓	32.6%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	6.6%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (cos.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64)))))
	18.1%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (cos.f64 (+.f64 (neg.f64 kx) (/.f64 (PI.f64) #s(literal 2 binary64)))))) (sin.f64 th))
	6.2%	(*.f64 (/.f64 (cos.f64 (+.f64 (neg.f64 ky) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	38.3%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (hypot.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	64.6%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))
	45.5%	(.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) #s(approx (sin kx) (.f64 (fma.f64 (fma.f64 #s(literal 1/120 binary64) (.f64 kx kx) #s(literal -1/6 binary64)) (.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
	29.5%	(*.f64 (/.f64 #s(approx (sin ky) ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	27.0%	(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
	9.8%	(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 ky (sqrt.f64 (.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)) #s(literal 1/2 binary64))))))
✓	99.6%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	50.5%	(.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (.f64 th th) #s(literal 1 binary64)) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
✓	50.6%	(*.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) (sin.f64 ky))))
	32.8%	(*.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (hypot.f64 #s(approx (sin kx) kx) (sin.f64 ky))))
	38.7%	(.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 ky ky)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))
	19.3%	(.f64 (sin.f64 ky) (/.f64 #s(approx (sin th) th) #s(approx (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))))
	50.4%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(approx (sin th) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 th th)) #s(literal 1/6 binary64)) (.f64 th th) #s(literal 1 binary64)) th)))))
	50.4%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(approx (sin th) (.f64 (fma.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))))
	30.3%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 ky))) (sin.f64 th))))
	76.7%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (+.f64 kx kx)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64))) (sin.f64 th))))
	97.8%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 (exp.f64 (.f64 (log.f64 (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(literal -1 binary64))) (sin.f64 th))))
	32.5%	(.f64 (sin.f64 ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (.f64 #s(approx (/ 1 (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (sin.f64 th))))
	26.9%	(*.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 (/.f64 ky (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))) (sin.f64 th))
	9.8%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 (/.f64 ky (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)) kx) kx)))) (sqrt.f64 #s(literal 1/2 binary64)))) (sin.f64 th))
	31.3%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (/.f64 (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (sin.f64 th))
	44.4%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))))) (sin.f64 th))
	13.9%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 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))))))) #s(approx (sin th) (.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) (*.f64 th th) #s(literal 1 binary64)) th)))
	5.6%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (fma.f64 #s(literal -2/3 binary64) (.f64 kx kx) #s(literal 2 binary64)) (.f64 kx kx))))))) #s(approx (sin th) (.f64 (fma.f64 (*.f64 th th) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	18.9%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (- 1 (cos (+ kx kx))) (*.f64 kx (+.f64 kx kx))))))) (sin.f64 th))
	21.2%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1 (cos (+ kx kx)))) (.f64 (fma.f64 (.f64 kx (/.f64 kx (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) kx))))) (sin.f64 th))
	21.5%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1 (cos (+ kx kx)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) kx))))) (sin.f64 th))
	26.8%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal -1/4 binary64))))) (sin.f64 th))
	76.4%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (.f64 (sin.f64 ky) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64))))) (sin.f64 th))
	16.3%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(approx ( (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (.f64 kx kx) ky) ky) kx))) (sin.f64 th))
	21.6%	(.f64 #s(approx (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) #s(approx ( (/ ky (sqrt 1/2)) (/ 1 (sqrt (- 1 (cos (+ kx kx)))))) (/.f64 ky kx))) (sin.f64 th))
	17.4%	(.f64 #s(approx (/ (sin ky) (sqrt (- (+ ( (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) #s(approx (sin th) th))
	15.6%	(.f64 #s(approx (/ (sin ky) (sqrt (- (+ ( (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (sin th) th))
	27.9%	(.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)))))
	62.6%	(*.f64 #s(approx (sin ky) ky) (/.f64 (sin.f64 th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))))
	30.5%	(*.f64 #s(approx (sin ky) ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))))
	62.6%	(.f64 #s(approx (sin ky) ky) #s(approx (/ (sin th) (sqrt (+ ( (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (*.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))) (sin.f64 th))))
	51.0%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fabs.f64 (sin.f64 ky))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
	31.1%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #s(literal 1/2 binary64)))))
	38.3%	#s(approx (* (/ (sin ky) (sqrt (/ (- (- 1 (cos (+ ky ky))) (- (cos (+ kx kx)) 1)) 2))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 ky ky))) (cos.f64 (+.f64 kx kx))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	26.7%	#s(approx (* (/ (sin ky) (sqrt (- (+ (* (- 1 (cos (+ ky ky))) 1/2) 1/2) (* 1/2 (cos (+ kx kx)))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (sin.f64 th) ky)))
	95.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	46.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))))
	11.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 (+.f64 (neg.f64 th) (PI.f64))))
	11.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 (neg.f64 (+.f64 th (PI.f64)))))
✓	30.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	7.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (cos.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64)))))
	0.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (exp.f64 (.f64 (log.f64 (neg.f64 th)) #s(literal 2 binary64))) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	15.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	15.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (fma.f64 th (.f64 th #s(literal -1/6 binary64)) #s(literal 1 binary64)) th)))
	9.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 #s(approx (+ ( (* th th) -1/6) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (*.f64 th th))) th)))
	11.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 #s(approx (+ ( (* th th) -1/6) 1) (.f64 (.f64 th th) #s(literal -1/6 binary64))) th)))
	11.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (.f64 (*.f64 th th) th) #s(literal -1/6 binary64)))))
✓	15.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th)))

Compiler

Compiled 3 795 to 2 686 computations (29.2% saved)

regimes901.0ms (4.5%)

Memory

-16.3MiB live, 307.6MiB allocated; 52ms collecting garbage

Counts

138 → 1

Calls

Call 1

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

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

Calls

9 calls:

167.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))
123.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
122.0ms	(sin.f64 kx)
118.0ms	(sin.f64 th)
113.0ms	(sin.f64 ky)

Results

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

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes849.0ms (4.3%)

Memory

27.1MiB live, 353.2MiB allocated; 29ms collecting garbage

Counts

116 → 1

Calls

Call 1

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

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

Calls

9 calls:

127.0ms	(sin.f64 th)
125.0ms	th
119.0ms	(sin.f64 ky)
109.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
105.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Results

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

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes866.0ms (4.3%)

Memory

5.8MiB live, 299.6MiB allocated; 27ms collecting garbage

Counts

115 → 5

Calls

Call 1

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

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

Calls

9 calls:

143.0ms	(sin.f64 ky)
142.0ms	th
141.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)))))
128.0ms	(sin.f64 kx)
121.0ms	ky

Results

Accuracy	Segments	Branch
85.1%	4	`(sin.f64 th)`
80.8%	4	`(sin.f64 kx)`
81.4%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
80.7%	3	`(sin.f64 ky)`
88.4%	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)))))`
77.2%	5	`(*.f64 (/.f64 (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))`
79.0%	2	`kx`
78.9%	2	`ky`
83.0%	2	`th`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes118.0ms (0.6%)

Memory

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

Counts

114 → 5

Calls

Call 1

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

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

Calls

1 calls:

24.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes119.0ms (0.6%)

Memory

-12.9MiB live, 32.1MiB allocated; 4ms collecting garbage

Counts

102 → 5

Calls

Call 1

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

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

Calls

1 calls:

113.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes131.0ms (0.7%)

Memory

-18.1MiB live, 33.6MiB allocated; 5ms collecting garbage

Counts

101 → 5

Calls

Call 1

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

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

Calls

1 calls:

21.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes26.0ms (0.1%)

Memory

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

Counts

99 → 5

Calls

Call 1

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

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

Calls

1 calls:

21.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes111.0ms (0.6%)

Memory

-26.2MiB live, 20.4MiB allocated; 2ms collecting garbage

Counts

79 → 5

Calls

Call 1

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

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

Calls

1 calls:

17.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes538.0ms (2.7%)

Memory

42.2MiB live, 180.0MiB allocated; 16ms collecting garbage

Counts

78 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

290.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
143.0ms	ky
29.0ms	(sin.f64 ky)
18.0ms	kx
18.0ms	(sin.f64 th)

Results

Accuracy	Segments	Branch
78.9%	2	`ky`
72.0%	3	`kx`
78.7%	2	`(sin.f64 ky)`
72.2%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
64.6%	1	`(sin.f64 th)`
64.6%	1	`th`
78.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)))))`

Compiler

Compiled 23 to 34 computations (-47.8% saved)

regimes140.0ms (0.7%)

Memory

14.8MiB live, 59.0MiB allocated; 9ms collecting garbage

Counts

63 → 2

Calls

Call 1

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

Outputs

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

(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))

Calls

2 calls:

122.0ms	ky
15.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
78.7%	2	`(sin.f64 ky)`
78.7%	2	`ky`

Compiler

Compiled 3 to 7 computations (-133.3% saved)

regimes268.0ms (1.3%)

Memory

0.4MiB live, 192.2MiB allocated; 28ms collecting garbage

Counts

60 → 2

Calls

Call 1

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

Outputs

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

(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))

Calls

5 calls:

93.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))
90.0ms	ky
38.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
14.0ms	(sin.f64 ky)
14.0ms	(sin.f64 kx)

Results

Accuracy	Segments	Branch
64.6%	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))`
64.6%	1	`(sin.f64 kx)`
72.1%	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)))))`
64.6%	1	`ky`
72.1%	2	`(sin.f64 ky)`

Compiler

Compiled 32 to 35 computations (-9.4% saved)

regimes381.0ms (1.9%)

Memory

-23.3MiB live, 217.9MiB allocated; 67ms collecting garbage

Counts

43 → 2

Calls

Call 1

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

Outputs

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

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

Calls

9 calls:

116.0ms	th
58.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
36.0ms	(sin.f64 ky)
26.0ms	ky
11.0ms	(sin.f64 th)

Results

Accuracy	Segments	Branch
52.8%	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))`
51.2%	2	`th`
62.2%	3	`(sin.f64 kx)`
51.2%	3	`(sin.f64 th)`
49.8%	3	`ky`
62.2%	2	`kx`
62.0%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
57.3%	4	`(sin.f64 ky)`
65.7%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes52.0ms (0.3%)

Memory

17.9MiB live, 63.1MiB allocated; 6ms collecting garbage

Counts

38 → 4

Calls

Call 1

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

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

Calls

4 calls:

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

Results

Accuracy	Segments	Branch
57.1%	3	`(sin.f64 kx)`
62.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)))))`
53.3%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
53.4%	2	`kx`

Compiler

Compiled 19 to 24 computations (-26.3% saved)

regimes120.0ms (0.6%)

Memory

-36.6MiB live, 15.5MiB allocated; 7ms collecting garbage

Counts

29 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

118.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes49.0ms (0.2%)

Memory

13.9MiB live, 59.6MiB allocated; 5ms collecting garbage

Counts

26 → 3

Calls

Call 1

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

Outputs

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

(*.f64 #s(approx (sin ky) ky) (/.f64 #s(approx (sin th) th) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))))

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 21 to 28 computations (-33.3% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

20 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

2 calls:

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

Results

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

Compiler

Compiled 13 to 14 computations (-7.7% saved)

regimes24.0ms (0.1%)

Memory

-13.3MiB live, 33.6MiB allocated; 3ms collecting garbage

Counts

12 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

5 calls:

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

Results

Accuracy	Segments	Branch
34.4%	2	`ky`
33.9%	3	`(sin.f64 th)`
37.4%	3	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
41.9%	3	`(sin.f64 ky)`
44.5%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 32 to 35 computations (-9.4% saved)

regimes18.0ms (0.1%)

Memory

-8.7MiB live, 37.6MiB allocated; 3ms collecting garbage

Counts

10 → 2

Calls

Call 1

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

Outputs

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

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 21 to 28 computations (-33.3% saved)

regimes30.0ms (0.1%)

Memory

16.5MiB live, 68.8MiB allocated; 6ms collecting garbage

Counts

9 → 2

Calls

Call 1

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

Outputs

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

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

Calls

9 calls:

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

Results

Accuracy	Segments	Branch
20.1%	3	`(sin.f64 kx)`
19.3%	2	`(sin.f64 th)`
20.1%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
20.1%	2	`kx`
20.5%	2	`ky`
20.8%	2	`(sin.f64 ky)`
23.5%	2	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
19.1%	2	`th`
22.8%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes12.0ms (0.1%)

Memory

-15.1MiB live, 31.3MiB allocated; 4ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th)))

Outputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) th)))

Calls

9 calls:

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

Results

Accuracy	Segments	Branch
15.6%	1	`(sin.f64 kx)`
15.6%	1	`th`
15.6%	1	`(sin.f64 th)`
15.6%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
15.6%	1	`kx`
15.6%	1	`ky`
15.6%	1	`(sin.f64 ky)`
15.6%	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.6%	1	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9580977406797927	0.9926378075416096
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.10597406097804338	-0.05343872102481249
0.0ms	-0.9871721821366358	-0.9834525531353701

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9580977406797927	0.9926378075416096
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.10597406097804338	-0.05343872102481249
0.0ms	-0.9871721821366358	-0.9834525531353701

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9580977406797927	0.9926378075416096
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.10597406097804338	-0.05343872102481249
0.0ms	-0.9871721821366358	-0.9834525531353701

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9580977406797927	0.9926378075416096
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.10597406097804338	-0.05343872102481249
0.0ms	-0.9871721821366358	-0.9834525531353701

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9580977406797927	0.9926378075416096
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.10597406097804338	-0.05343872102481249
0.0ms	-0.9871721821366358	-0.9834525531353701

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9580977406797927	0.9926378075416096
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.10597406097804338	-0.05343872102481249
0.0ms	-0.9871721821366358	-0.9834525531353701

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch20.0ms (0.1%)

Memory

-5.2MiB live, 40.8MiB allocated; 5ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
18.0ms	62.765286102531036	216.1009488398486

Samples

15.0ms

80×

valid

Compiler

Compiled 224 to 203 computations (9.4% saved)

Precisions

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

ival-sin: 7.0ms (69% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.030092876312361985	1.6538577375073033e-305

Compiler

Compiled 18 to 18 computations (0% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.030092876312361985	1.6538577375073033e-305

Compiler

Compiled 18 to 18 computations (0% saved)

bsearch20.0ms (0.1%)

Memory

13.0MiB live, 59.7MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
19.0ms	479409583506.3338	2318397736677.4077

Samples

14.0ms

96×

valid

Compiler

Compiled 307 to 300 computations (2.3% saved)

Precisions

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

ival-sin: 7.0ms (60.7% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	0.9973733552028557	1.0
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.05343872102481249	9.062205691378653e-293

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.006114025009908844	0.011151371436436176
0.0ms	-0.05343872102481249	9.062205691378653e-293

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	6.972109004503453e-5	0.006114025009908844
0.0ms	-0.05343872102481249	9.062205691378653e-293

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.1474620580339486e-16	1.0788122680783581e-14
0.0ms	-0.05343872102481249	9.062205691378653e-293

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch44.0ms (0.2%)

Memory

-28.6MiB live, 114.0MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
15.0ms	2.121128477826196e-48	4.9221590033446017e-45
27.0ms	-0.05343872102481249	9.062205691378653e-293

Samples

25.0ms

368×

valid

Compiler

Compiled 1 075 to 1 053 computations (2% saved)

Precisions

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

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

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

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.121128477826196e-48	4.9221590033446017e-45

Compiler

Compiled 370 to 363 computations (1.9% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.1350044778231843e-299	3.5466665405333145e-299

Compiler

Compiled 18 to 19 computations (-5.6% saved)

derivations4.8s (23.9%)

Memory

-70.9MiB live, 1 456.3MiB allocated; 1.6s collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 386 to 216 computations (44% saved)

preprocess1.1s (5.4%)

Memory

68.2MiB live, 1 232.4MiB allocated; 418ms collecting garbage

Remove

(negabs th)

(abs kx)

Compiler

Compiled 8 867 to 7 215 computations (18.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.2s (6.1%)

sample3.6s (18.1%)

preprocess49.0ms (0.2%)

series68.0ms (0.3%)

rewrite933.0ms (4.7%)

eval314.0ms (1.6%)

prune36.0ms (0.2%)

series92.0ms (0.5%)

rewrite651.0ms (3.3%)

eval209.0ms (1%)

prune61.0ms (0.3%)

series65.0ms (0.3%)

rewrite585.0ms (2.9%)

eval87.0ms (0.4%)

prune130.0ms (0.6%)

series90.0ms (0.5%)

rewrite661.0ms (3.3%)

eval95.0ms (0.5%)

prune310.0ms (1.6%)

regimes901.0ms (4.5%)

regimes849.0ms (4.3%)

regimes866.0ms (4.3%)

regimes118.0ms (0.6%)

regimes119.0ms (0.6%)

regimes131.0ms (0.7%)

regimes26.0ms (0.1%)

regimes111.0ms (0.6%)

regimes538.0ms (2.7%)

regimes140.0ms (0.7%)

regimes268.0ms (1.3%)

regimes381.0ms (1.9%)

regimes52.0ms (0.3%)

regimes120.0ms (0.6%)

regimes49.0ms (0.2%)

regimes12.0ms (0.1%)

regimes24.0ms (0.1%)

regimes18.0ms (0.1%)

regimes30.0ms (0.1%)

regimes12.0ms (0.1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch20.0ms (0.1%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch20.0ms (0.1%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch44.0ms (0.2%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

derivations4.8s (23.9%)

preprocess1.1s (5.4%)

end0.0ms (0%)

Profiling