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

start0.0ms (0%)

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

analyze234.0ms (3.4%)

Memory

-54.1MiB live, 353.3MiB allocated; 130ms 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)

sample2.1s (30.4%)

Memory

-39.7MiB live, 1 900.6MiB allocated; 1.3s collecting garbage

Samples

1.8s

8 256×

valid

Precisions

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

ival-sin: 1.2s (77.9% of total)

ival-pow2: 189.0ms (12.2% of total)

ival-sqrt: 54.0ms (3.5% of total)

ival-mult!: 38.0ms (2.4% of total)

ival-div!: 36.0ms (2.3% of total)

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

adjust: 2.0ms (0.1% of total)

Bogosity

preprocess57.0ms (0.8%)

Memory

9.0MiB live, 53.7MiB allocated; 27ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	46	166
1	113	163
2	400	163
3	2491	163

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs kx)

(negabs ky)

(negabs th)

Compiler

Compiled 30 to 26 computations (13.3% saved)

series56.0ms (0.8%)

Memory

-51.3MiB live, 66.0MiB allocated; 23ms 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
19.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)
13.0ms	kx	@	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)
4.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)
4.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)
4.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)

rewrite260.0ms (3.8%)

Memory

23.0MiB live, 293.8MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	432	2436
0	448	2305
1	2695	2273
0	11454	1933

Stop Event

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

Counts

81 → 164

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

eval34.0ms (0.5%)

Memory: -12.3MiB live, 32.1MiB allocated; 7ms collecting garbage
Compiler: Compiled 2 302 to 899 computations (60.9% saved)

prune18.0ms (0.3%)

Memory

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

Pruning

23 alts after pruning (23 fresh and 0 done)

	Pruned	Kept	Total
New	132	23	155
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	133	23	156

Accuracy

99.9%

Counts

156 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
	96.3%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
▶	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	82.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 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	74.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.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 #s(literal 2 binary64) kx)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))) (sin.f64 th))
	80.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 2 binary64))))))) (sin.f64 th))
	51.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))))) #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)))
	51.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))))) #s(approx (sin th) th))
▶	74.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
▶	41.7%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	50.7%	(.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))
	28.1%	(.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 #s(literal 2 binary64) 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 #s(literal 2 binary64) kx))))))) (sin.f64 th))
	74.1%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) kx)))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	32.1%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
▶	51.7%	(*.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))
	10.9%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 th))
	29.2%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	99.5%	(.f64 #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))) (sin.f64 th))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
	96.1%	#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))))
	49.8%	#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)))))
▶	26.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Compiler

Compiled 906 to 838 computations (7.5% saved)

series122.0ms (1.8%)

Memory

-30.2MiB live, 111.9MiB allocated; 31ms collecting garbage

Counts

42 → 180

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

Calls

9 calls:

Time	Variable		Point	Expression
38.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)))) (sin ky) (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 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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) 1 (pow (sin ky) 2) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) (- 1/2 (* 1/2 (cos (* 2 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
20.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)))) (sin ky) (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 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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) 1 (pow (sin ky) 2) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) (- 1/2 (* 1/2 (cos (* 2 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
11.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)))) (sin ky) (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 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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) 1 (pow (sin ky) 2) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) (- 1/2 (* 1/2 (cos (* 2 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
7.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)))) (sin ky) (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 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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) 1 (pow (sin ky) 2) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) (- 1/2 (* 1/2 (cos (* 2 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 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)))) (sin ky) (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 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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) 1 (pow (sin ky) 2) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) (- 1/2 (* 1/2 (cos (* 2 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))

rewrite231.0ms (3.4%)

Memory

46.7MiB live, 283.9MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	906	8491
0	970	6533
1	5657	6367
0	8412	6032

Stop Event

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

Counts

222 → 575

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

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

eval155.0ms (2.3%)

Memory: -66.5MiB live, 103.4MiB allocated; 80ms collecting garbage
Compiler: Compiled 6 532 to 2 302 computations (64.8% saved)

prune37.0ms (0.5%)

Memory

42.1MiB live, 86.6MiB allocated; 7ms collecting garbage

Pruning

39 alts after pruning (37 fresh and 2 done)

	Pruned	Kept	Total
New	404	29	433
Fresh	10	8	18
Picked	3	2	5
Done	0	0	0
Total	417	39	456

Accuracy

99.9%

Counts

456 → 39

Alt Table

Click to see full alt table

Status	Accuracy	Program
	96.3%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	59.5%	(/.f64 (*.f64 #s(approx (sin ky) ky) (sin.f64 th)) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx)))
✓	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.2%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) th))
	56.3%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (sin.f64 ky) (sin.f64 ky) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	73.4%	(.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 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (sin.f64 th))
	39.0%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx))))))) #s(approx (sin th) th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
▶	25.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
	73.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	32.1%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	28.1%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	55.6%	(.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))
	23.2%	(.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 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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))))) (sin.f64 th))
	62.8%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))) (sin.f64 th))
	33.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 #s(approx (sin ky) ky) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 (.f64 (.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky)) (.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (*.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky)))))))) (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) (.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)))
	27.4%	(*.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))
	33.5%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (.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))) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
	33.8%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (*.f64 kx kx)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
▶	3.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	26.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	39.6%	(.f64 (/.f64 #s(approx (sin ky) ky) (exp.f64 (.f64 (log.f64 (fma.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	29.2%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
▶	99.5%	(.f64 #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))) (sin.f64 th))
	10.9%	(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 th))
	26.7%	(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sin.f64 ky))) (sin.f64 th))
	29.2%	(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (sin.f64 th))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
	96.1%	#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))))
	49.8%	#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)))))
✓	26.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	15.0%	#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)))
▶	15.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) th))
	33.5%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 (sin.f64 th) (sin.f64 ky))))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (sin.f64 th) ky)))
▶	38.7%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))))

Compiler

Compiled 1 630 to 1 436 computations (11.9% saved)

series78.0ms (1.1%)

Memory

-4.9MiB live, 180.6MiB allocated; 26ms collecting garbage

Counts

45 → 254

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
10.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)))) (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ ky ky)) 1/2)) 1/2 (* (cos (+ ky ky)) 1/2) (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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))) (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (+ (cos (+ kx kx)) (cos (+ ky ky))) (cos (+ kx kx)) (+ kx kx))
8.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)))) (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ ky ky)) 1/2)) 1/2 (* (cos (+ ky ky)) 1/2) (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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))) (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (+ (cos (+ kx kx)) (cos (+ ky ky))) (cos (+ kx kx)) (+ kx kx))
8.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)))) (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ ky ky)) 1/2)) 1/2 (* (cos (+ ky ky)) 1/2) (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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))) (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (+ (cos (+ kx kx)) (cos (+ ky ky))) (cos (+ kx kx)) (+ kx kx))
7.0ms	kx	@	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)))) (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ ky ky)) 1/2)) 1/2 (* (cos (+ ky ky)) 1/2) (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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))) (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (+ (cos (+ kx kx)) (cos (+ ky ky))) (cos (+ kx kx)) (+ kx kx))
7.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)))) (* (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin th) (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ ky ky)) 1/2)) 1/2 (* (cos (+ ky ky)) 1/2) (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) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))) (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (+ (cos (+ kx kx)) (cos (+ ky ky))) (cos (+ kx kx)) (+ kx kx))

rewrite230.0ms (3.3%)

Memory

-7.8MiB live, 427.1MiB allocated; 54ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1314	12868
0	1378	10633
0	8421	10187

Stop Event

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

Counts

299 → 448

Calls

Call 1

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

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

eval80.0ms (1.2%)

Memory: -9.5MiB live, 124.6MiB allocated; 15ms collecting garbage
Compiler: Compiled 8 496 to 2 689 computations (68.3% saved)

prune54.0ms (0.8%)

Memory

31.3MiB live, 130.4MiB allocated; 7ms collecting garbage

Pruning

57 alts after pruning (51 fresh and 6 done)

	Pruned	Kept	Total
New	370	22	392
Fresh	3	29	32
Picked	1	4	5
Done	0	2	2
Total	374	57	431

Accuracy

99.9%

Counts

431 → 57

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	96.3%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	59.5%	(/.f64 (*.f64 #s(approx (sin ky) ky) (sin.f64 th)) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx)))
✓	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.2%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) th))
	56.3%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (sin.f64 ky) (sin.f64 ky) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	73.4%	(.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 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (sin.f64 th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
✓	25.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
	34.6%	(.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))
	17.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (fma.f64 ky ky (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
	29.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (fma.f64 kx kx (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
	73.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	32.1%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	28.1%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	55.6%	(.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))
▶	23.2%	(.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 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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))))) (sin.f64 th))
	14.8%	(.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 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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))
	62.8%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))) (sin.f64 th))
	33.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 #s(approx (sin ky) ky) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 (.f64 (.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky)) (.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (*.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky)))))))) (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) (.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)))
	27.4%	(*.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))
	33.5%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (.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))) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
	33.8%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (*.f64 kx kx)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
✓	3.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
▶	26.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	2.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* (cos (+ ky ky)) 1/2) #s(literal 1/2 binary64)))))) (sin.f64 th))
	12.6%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (.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)))))) (sin.f64 th))
	17.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (*.f64 ky ky))))) (sin.f64 th))
	39.6%	(.f64 (/.f64 #s(approx (sin ky) ky) (exp.f64 (.f64 (log.f64 (fma.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	29.2%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	26.7%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 ky))) (sin.f64 ky))) (sin.f64 th))
	32.1%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 kx))) (sin.f64 ky))) (sin.f64 th))
	74.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (sin.f64 ky))) (sin.f64 th))
	10.9%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sin.f64 th))
▶	28.1%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 ky))) (sin.f64 th))
	29.2%	(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (sin.f64 th))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
	96.1%	#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))))
	49.8%	#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)))))
✓	26.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
▶	15.0%	#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)))
✓	15.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) th))
	38.8%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/.f64 (.f64 (.f64 (sin.f64 ky) th) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))
	25.0%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal -3 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (.f64 ky ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))) ky))
	26.2%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (*.f64 (sin.f64 th) ky)))
	33.5%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 (sin.f64 th) (sin.f64 ky))))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (sin.f64 th) ky)))
	38.7%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (-.f64 (.f64 (cos.f64 ky) (cos.f64 ky)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))))
✓	38.7%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))))
	17.2%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
	14.0%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (*.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
	12.6%	#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) (sqrt.f64 #s(approx (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (-.f64 (fma.f64 ky ky #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
	38.7%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))))
	38.8%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (sin.f64 ky) (.f64 th (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))))
	11.1%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(approx (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (*.f64 th ky))))

Compiler

Compiled 2 780 to 2 485 computations (10.6% saved)

series55.0ms (0.8%)

Memory

-14.5MiB live, 130.3MiB allocated; 11ms collecting garbage

Counts

50 → 221

Calls

Call 1

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

Outputs
#s(approx (/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (sin th)))
#s(approx (/ (* (sin th) (sin ky)) (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 th) (sin ky)) (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 th) (sin ky)) (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 (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3)))) (- 1/2 (* 1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))))))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) #s(hole binary64 (+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) #s(hole binary64 (+ (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3)))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) #s(hole binary64 (+ (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3)))) (- 1/2 (* 1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 4))))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))))) (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))))))))))))
#s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))))))
#s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (sqrt (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))) (- 1/2 (* 1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- (+ 1/2 (pow kx 2)) (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- (+ 1/2 (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))) (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- (+ 1/2 (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))) (* 1/2 (cos (* 2 ky))))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (pow kx 2)))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/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 (* (cos (+ kx kx)) 1/2) #s(hole binary64 1/2))
#s(approx (* (cos (+ kx kx)) 1/2) #s(hole binary64 (+ 1/2 (* -1 (pow kx 2)))))
#s(approx (* (cos (+ kx kx)) 1/2) #s(hole binary64 (+ 1/2 (* (pow kx 2) (- (* 1/3 (pow kx 2)) 1)))))
#s(approx (* (cos (+ kx kx)) 1/2) #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) (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 (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) #s(hole binary64 (pow kx 2)))
#s(approx (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) #s(hole binary64 (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
#s(approx (+ (* -1/3 (* kx kx)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/3 (* kx kx)) 1) #s(hole binary64 (+ 1 (* -1/3 (pow kx 2)))))
#s(approx (* kx kx) #s(hole binary64 (pow kx 2)))
#s(approx (/ (* (sin th) (sin ky)) (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 (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))
#s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (sqrt (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 kx))))))
#s(approx (* (cos (+ kx kx)) 1/2) #s(hole binary64 (* 1/2 (cos (* 2 kx)))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (* 2 kx))))
#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 (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) #s(hole binary64 (* -1/3 (pow kx 4))))
#s(approx (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) #s(hole binary64 (* (pow kx 4) (- (/ 1 (pow kx 2)) 1/3))))
#s(approx (+ (* -1/3 (* kx kx)) 1) #s(hole binary64 (* -1/3 (pow kx 2))))
#s(approx (+ (* -1/3 (* kx kx)) 1) #s(hole binary64 (* (pow kx 2) (- (/ 1 (pow kx 2)) 1/3))))
#s(approx (- 1/2 (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (- 1/2 (* 1/2 (cos (neg (* -2 kx)))))))
#s(approx (* (cos (+ kx kx)) 1/2) #s(hole binary64 (* 1/2 (cos (neg (* -2 kx))))))
#s(approx (cos (+ kx kx)) #s(hole binary64 (cos (neg (* -2 kx)))))
#s(approx (/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (/ (* (sin th) (sin ky)) (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 th) (sin ky)) (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 th) (sin ky)) (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 th) (sin ky)) #s(hole binary64 (* ky (sin th))))
#s(approx (* (sin th) (sin ky)) #s(hole binary64 (* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th)))))))
#s(approx (* (sin th) (sin ky)) #s(hole binary64 (* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th)))))))))
#s(approx (* (sin th) (sin ky)) #s(hole binary64 (* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th))))))))))
#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 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* (* ky (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) #s(hole binary64 (* ky (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- (+ 1/2 (pow ky 2)) (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(hole binary64 (- (+ 1/2 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 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 (/ (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 (* (+ (* (* ky ky) -1/6) 1) ky) #s(hole binary64 ky))
#s(approx (* (+ (* (* ky ky) -1/6) 1) ky) #s(hole binary64 (* ky (+ 1 (* -1/6 (pow ky 2))))))
#s(approx (+ (* (* ky ky) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* ky ky) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow ky 2)))))
#s(approx (* ky ky) #s(hole binary64 (pow ky 2)))
#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 (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) #s(hole binary64 1))
#s(approx (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) #s(hole binary64 (/ 1 ky)))
#s(approx (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) #s(hole binary64 (/ (+ 1 (* 1/6 (pow ky 2))) ky)))
#s(approx (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) #s(hole binary64 (/ (+ 1 (* (pow ky 2) (+ 1/6 (* 7/360 (pow ky 2))))) ky)))
#s(approx (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) #s(hole binary64 (/ (+ 1 (* (pow ky 2) (+ 1/6 (* (pow ky 2) (+ 7/360 (* 31/15120 (pow ky 2))))))) ky)))
#s(approx (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) #s(hole binary64 ky))
#s(approx (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) #s(hole binary64 (* ky (+ 1 (* -1/6 (pow ky 2))))))
#s(approx (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))))
#s(approx (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) #s(hole binary64 (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))))
#s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) #s(hole binary64 (pow ky 2)))
#s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) #s(hole binary64 (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))))
#s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) #s(hole binary64 (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))))
#s(approx (- 1/2 (* (cos (+ ky ky)) 1/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 (* (cos (+ ky ky)) 1/2) #s(hole binary64 1/2))
#s(approx (* (cos (+ ky ky)) 1/2) #s(hole binary64 (+ 1/2 (* -1 (pow ky 2)))))
#s(approx (* (cos (+ ky ky)) 1/2) #s(hole binary64 (+ 1/2 (* (pow ky 2) (- (* 1/3 (pow ky 2)) 1)))))
#s(approx (* (cos (+ ky ky)) 1/2) #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 (* (sin th) (sin ky)) #s(hole binary64 (* (sin ky) (sin th))))
#s(approx (sin ky) #s(hole binary64 (sin ky)))
#s(approx (* (+ (* (* ky ky) -1/6) 1) ky) #s(hole binary64 (* -1/6 (pow ky 3))))
#s(approx (* (+ (* (* ky ky) -1/6) 1) ky) #s(hole binary64 (* (pow ky 3) (- (/ 1 (pow ky 2)) 1/6))))
#s(approx (+ (* (* ky ky) -1/6) 1) #s(hole binary64 (* -1/6 (pow ky 2))))
#s(approx (+ (* (* ky ky) -1/6) 1) #s(hole binary64 (* (pow ky 2) (- (/ 1 (pow ky 2)) 1/6))))
#s(approx (pow (sin ky) 2) #s(hole binary64 (pow (sin ky) 2)))
#s(approx (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) #s(hole binary64 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 ky))))))
#s(approx (* (cos (+ ky ky)) 1/2) #s(hole binary64 (* 1/2 (cos (* 2 ky)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (* 2 ky))))
#s(approx (* (+ (* (* ky ky) -1/6) 1) ky) #s(hole binary64 (* -1 (* (pow ky 3) (- 1/6 (/ 1 (pow ky 2)))))))
#s(approx (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (neg (* -2 ky))))))))))
#s(approx (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) #s(hole binary64 (sqrt (/ 1 (- 1/2 (* 1/2 (cos (neg (* -2 ky)))))))))
#s(approx (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (neg (* -2 ky))))))))
#s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) #s(hole binary64 (- 1/2 (* 1/2 (cos (neg (* -2 ky)))))))
#s(approx (* (cos (+ ky ky)) 1/2) #s(hole binary64 (* 1/2 (cos (neg (* -2 ky))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (neg (* -2 ky)))))
#s(approx (/ (* (sin th) (sin ky)) (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 th) (sin ky)) (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 th) (sin ky)) (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 th) (sin ky)) (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) (sin ky)) #s(hole binary64 (* th (sin ky))))
#s(approx (* (sin th) (sin ky)) #s(hole binary64 (* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky)))))))
#s(approx (* (sin th) (sin ky)) #s(hole binary64 (* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky)))))))))
#s(approx (* (sin th) (sin ky)) #s(hole binary64 (* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky))))))))))
#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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* (* th (sin ky)) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))) (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))))))))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) #s(hole binary64 (* th (+ (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))))))))))))
#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
7.0ms	ky	@	0	((/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (* (sin th) (sin ky)) (sin th) th (sin ky) ky (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ kx kx)) 1/2)) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (* (/ (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 ky) -1/6) 1) ky) (+ (* (* ky ky) -1/6) 1) (* ky ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) (- 1/2 (* (cos (+ ky ky)) 1/2)) (* (cos (+ ky ky)) 1/2) (cos (+ ky ky)) (+ ky ky))
6.0ms	ky	@	-inf	((/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (* (sin th) (sin ky)) (sin th) th (sin ky) ky (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ kx kx)) 1/2)) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (* (/ (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 ky) -1/6) 1) ky) (+ (* (* ky ky) -1/6) 1) (* ky ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) (- 1/2 (* (cos (+ ky ky)) 1/2)) (* (cos (+ ky ky)) 1/2) (cos (+ ky ky)) (+ ky ky))
6.0ms	ky	@	inf	((/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (* (sin th) (sin ky)) (sin th) th (sin ky) ky (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ kx kx)) 1/2)) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (* (/ (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 ky) -1/6) 1) ky) (+ (* (* ky ky) -1/6) 1) (* ky ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) (- 1/2 (* (cos (+ ky ky)) 1/2)) (* (cos (+ ky ky)) 1/2) (cos (+ ky ky)) (+ ky ky))
6.0ms	th	@	inf	((/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (* (sin th) (sin ky)) (sin th) th (sin ky) ky (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ kx kx)) 1/2)) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (* (/ (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 ky) -1/6) 1) ky) (+ (* (* ky ky) -1/6) 1) (* ky ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) (- 1/2 (* (cos (+ ky ky)) 1/2)) (* (cos (+ ky ky)) 1/2) (cos (+ ky ky)) (+ ky ky))
5.0ms	kx	@	-inf	((/ (* (sin th) (sin ky)) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (* (sin th) (sin ky)) (sin th) th (sin ky) ky (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/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (- 1/2 (* (cos (+ kx kx)) 1/2)) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (* (/ (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 ky) -1/6) 1) ky) (+ (* (* ky ky) -1/6) 1) (* ky ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (pow (sin kx) 2) (* (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (+ (* -1/3 (* kx kx)) 1) -1/3 (* kx kx) (pow (sin ky) 2) 2 (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (* (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sin ky)) (/ 1 (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2)))) (sqrt (- 1/2 (* (cos (+ ky ky)) 1/2))) (- 1/2 (* (cos (+ ky ky)) 1/2)) (* (cos (+ ky ky)) 1/2) (cos (+ ky ky)) (+ ky ky))

rewrite282.0ms (4.1%)

Memory

-0.7MiB live, 363.7MiB allocated; 123ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1058	9084
0	1120	6991
1	6494	6799
0	8200	6489

Stop Event

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

Counts

271 → 469

Calls

Call 1

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

eval55.0ms (0.8%)

Memory: 20.3MiB live, 113.1MiB allocated; 15ms collecting garbage
Compiler: Compiled 6 807 to 2 531 computations (62.8% saved)

prune78.0ms (1.1%)

Memory

5.8MiB live, 148.0MiB allocated; 18ms collecting garbage

Pruning

72 alts after pruning (63 fresh and 9 done)

	Pruned	Kept	Total
New	374	28	402
Fresh	11	35	46
Picked	2	3	5
Done	0	6	6
Total	387	72	459

Accuracy

99.9%

Counts

459 → 72

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	96.3%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	52.9%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) kx) (sin.f64 ky)))
	74.0%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
	30.0%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 kx)))
	59.5%	(/.f64 (*.f64 #s(approx (sin ky) ky) (sin.f64 th)) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx)))
	26.3%	(/.f64 (.f64 #s(approx (sin ky) ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
	49.9%	(/.f64 #s(approx (* (sin th) (sin ky)) (*.f64 (sin.f64 ky) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
✓	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.2%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (sin.f64 ky) (sin.f64 ky) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	73.4%	(.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 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (sin.f64 th))
	82.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) kx)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
✓	25.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
	34.6%	(.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))
	17.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (fma.f64 ky ky (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
	29.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (fma.f64 kx kx (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
	73.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	28.1%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	31.4%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	55.6%	(.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))
	14.8%	(.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 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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))
	21.2%	(.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 #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 ky) 2) (.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)))))) (sin.f64 th))
	20.7%	(.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 #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 ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	31.1%	(.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 #s(approx (pow (sin kx) 2) #s(approx ( (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (.f64 kx kx))) (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))))) (sin.f64 th))
	62.8%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))) (sin.f64 th))
	27.4%	(*.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))
	33.8%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (*.f64 kx kx)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
	26.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 (sin.f64 (+.f64 kx kx)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (+.f64 kx kx)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) (sin.f64 th))
✓	3.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
✓	26.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	11.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #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)))
	11.2%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #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)))
	11.2%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #s(approx (sin th) th))
	21.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (pow (sin kx) 2) (*.f64 kx kx))))) (sin.f64 th))
	12.6%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (.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)))))) (sin.f64 th))
	17.3%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (*.f64 ky ky))))) (sin.f64 th))
	39.6%	(.f64 (/.f64 #s(approx (sin ky) ky) (exp.f64 (.f64 (log.f64 (fma.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	26.4%	(.f64 (/.f64 #s(approx (sin ky) ky) (exp.f64 (.f64 (log.f64 #s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	26.7%	(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sin.f64 ky))))
	29.2%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	32.1%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 kx))) (sin.f64 ky))) (sin.f64 th))
	74.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (sin.f64 ky))) (sin.f64 th))
	10.9%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sin.f64 th))
	11.5%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal 2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))) (sin.f64 ky))) (sin.f64 th))
	11.8%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (fma.f64 #s(literal -2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 1/2 binary64))))) (sin.f64 ky))) (sin.f64 th))
✓	28.1%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 ky))) (sin.f64 th))
	17.5%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 ky))) #s(approx (sin th) th))
	29.2%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (sin.f64 th))
	17.2%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1/2 ( (cos (+ ky ky)) 1/2))) ky)) (sin.f64 ky))) (sin.f64 th))
	16.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 #s(approx (/ 1 (sqrt (- 1/2 ( (cos (+ ky ky)) 1/2)))) (/.f64 (fma.f64 (*.f64 ky ky) #s(literal 1/6 binary64) #s(literal 1 binary64)) ky)) (sin.f64 ky))) (sin.f64 th))
	27.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
	96.1%	#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))))
	49.8%	#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)))))
✓	26.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	15.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th #s(literal 1 binary64) (.f64 th (.f64 (*.f64 th th) #s(literal -1/6 binary64))))))
	15.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 th) #s(literal 2 binary64))) #s(literal -1/6 binary64) #s(literal 1 binary64)) th)))
	15.0%	#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)))
	11.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 th th) #s(literal -1/6 binary64))) th)))
	6.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 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (.f64 (.f64 th th) th)))))
	11.4%	#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.4%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) th))
	33.5%	#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 (sin.f64 th) (sin.f64 ky))))
	25.0%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (sqrt.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal -3 binary64))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) (.f64 ky ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))) ky))
	26.2%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (*.f64 (sin.f64 th) ky)))
	38.7%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (-.f64 (.f64 (cos.f64 ky) (cos.f64 ky)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))))))))
✓	38.7%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))))
	17.2%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
	14.0%	#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (*.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
	12.6%	#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) (sqrt.f64 #s(approx (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (-.f64 (fma.f64 ky ky #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
	38.7%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))))
	38.8%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (sin.f64 ky) (.f64 th (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))))))))
	11.1%	#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(approx (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (*.f64 th ky))))

Compiler

Compiled 3 282 to 2 315 computations (29.5% saved)

regimes279.0ms (4.1%)

Memory

-28.1MiB live, 503.9MiB allocated; 51ms collecting garbage

Counts

103 → 1

Calls

Call 1

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

30.0ms	th
28.0ms	(sin.f64 ky)
28.0ms	ky
27.0ms	kx
27.0ms	(sin.f64 kx)

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)

regimes259.0ms (3.8%)

Memory

19.4MiB live, 304.1MiB allocated; 18ms collecting garbage

Counts

82 → 2

Calls

Call 1

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

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

Calls

9 calls:

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

Results

Accuracy	Segments	Branch
84.0%	3	`(sin.f64 th)`
77.4%	2	`kx`
77.5%	3	`(sin.f64 kx)`
77.4%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
81.8%	4	`(sin.f64 ky)`
87.6%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
73.5%	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))`
79.5%	2	`ky`
84.0%	2	`th`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes45.0ms (0.7%)

Memory

-12.7MiB live, 82.9MiB allocated; 13ms collecting garbage

Counts

69 → 5

Calls

Call 1

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

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

Calls

2 calls:

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

Results

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

Compiler

Compiled 13 to 14 computations (-7.7% saved)

regimes22.0ms (0.3%)

Memory

8.6MiB live, 54.2MiB allocated; 4ms collecting garbage

Counts

68 → 5

Calls

Call 1

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

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

Calls

1 calls:

19.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes21.0ms (0.3%)

Memory

15.7MiB live, 61.9MiB allocated; 3ms collecting garbage

Counts

67 → 5

Calls

Call 1

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

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

regimes164.0ms (2.4%)

Memory

-4.6MiB live, 282.0MiB allocated; 99ms collecting garbage

Counts

66 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

51.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
19.0ms	kx
19.0ms	(sin.f64 th)
18.0ms	th
18.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
65.4%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
65.4%	2	`kx`
77.3%	2	`(sin.f64 ky)`
77.2%	2	`ky`
65.5%	2	`th`
62.8%	1	`(sin.f64 th)`
77.3%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 23 to 34 computations (-47.8% saved)

regimes78.0ms (1.1%)

Memory

16.2MiB live, 155.1MiB allocated; 19ms 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) 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) (fma.f64 th #s(literal 1 binary64) (.f64 th (.f64 (*.f64 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) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (.f64 (.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 (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)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* (cos (+ ky ky)) 1/2) #s(literal 1/2 binary64)))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (pow (sin kx) 2) (*.f64 kx kx))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #s(approx (sin th) th))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(approx (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (*.f64 th ky))))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (*.f64 kx kx)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (.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)))))) (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 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #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 ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sqrt.f64 (+.f64 #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 ky) 2) (*.f64 ky ky))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (sin.f64 th) ky)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1/2 ( (cos (+ ky ky)) 1/2))) ky)) (sin.f64 ky))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (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))))) #s(approx (sin th) th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #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) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
(/.f64 (.f64 #s(approx (sin ky) ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 #s(approx (/ 1 (sqrt (- 1/2 ( (cos (+ ky ky)) 1/2)))) (/.f64 (fma.f64 (*.f64 ky ky) #s(literal 1/6 binary64) #s(literal 1 binary64)) ky)) (sin.f64 ky))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (.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))) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 kx) #s(approx (sin ky) ky))) (sin.f64 th))
(/.f64 (*.f64 #s(approx (sin ky) ky) (sin.f64 th)) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx)))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (*.f64 (sin.f64 th) ky)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 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 (+.f64 #s(approx (pow (sin kx) 2) #s(approx ( (+ (* -1/3 (* kx kx)) 1) (* kx kx)) (.f64 kx kx))) (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))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (fma.f64 kx kx (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (fma.f64 ky ky (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))) #s(approx (sin 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) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (*.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
#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) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))) (*.f64 (+.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( (/ 1 (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sin ky)) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (/.f64 (.f64 kx kx) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))) #s(literal -1/2 binary64) #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)) (sqrt.f64 (+.f64 #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 ky) 2) (.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)))))) (sin.f64 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) (sqrt.f64 #s(approx (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))) (-.f64 (fma.f64 ky ky #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #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))))) #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 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (exp.f64 (.f64 (log.f64 #s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) #s(approx (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 kx)))
(.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) (.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) (exp.f64 (.f64 (log.f64 (fma.f64 #s(approx (sin ky) ky) #s(approx (sin ky) ky) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 (sin.f64 th) (sin.f64 ky))))
#s(approx (* (/ (sin ky) (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (.f64 (sin.f64 th) (sin.f64 ky))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (sin.f64 ky))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 kx))) (sin.f64 ky))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) (sin.f64 ky))) (sin.f64 ky))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) (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 #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 ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))

Outputs

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

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

Calls

4 calls:

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

Results

Accuracy	Segments	Branch
62.8%	1	`(sin.f64 kx)`
67.6%	2	`ky`
71.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)))))`
71.7%	2	`(sin.f64 ky)`

Compiler

Compiled 17 to 22 computations (-29.4% saved)

regimes79.0ms (1.1%)

Memory

-17.0MiB live, 172.1MiB allocated; 18ms collecting garbage

Counts

35 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 36 to 43 computations (-19.4% saved)

regimes85.0ms (1.2%)

Memory

27.3MiB live, 169.3MiB allocated; 12ms collecting garbage

Counts

32 → 3

Calls

Call 1

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

Outputs

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

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

Calls

9 calls:

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

Results

Accuracy	Segments	Branch
43.7%	4	`(sin.f64 th)`
47.4%	4	`ky`
43.7%	3	`th`
56.5%	4	`(sin.f64 kx)`
56.5%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
47.3%	4	`(sin.f64 ky)`
50.9%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
56.5%	3	`kx`
45.9%	4	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes25.0ms (0.4%)

Memory

8.0MiB live, 48.9MiB allocated; 9ms 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) 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) (fma.f64 th #s(literal 1 binary64) (.f64 th (.f64 (*.f64 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) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64)) (.f64 (.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 (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)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* (cos (+ ky ky)) 1/2) #s(literal 1/2 binary64)))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (pow (sin kx) 2) (*.f64 kx kx))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #s(approx (sin th) th))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(approx (* (* (sin ky) th) (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky)))))))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (+.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (*.f64 th ky))))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 (+.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 kx)))) (*.f64 kx kx)) (pow.f64 #s(approx (sin ky) ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- 1/2 (* (cos (+ ky ky)) 1/2)) (.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)))))) (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 #s(approx (pow (sin kx) 2) (.f64 (fma.f64 #s(literal -1/3 binary64) (.f64 kx kx) #s(literal 1 binary64)) (.f64 kx kx))) (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 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #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 ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sqrt.f64 (+.f64 #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 ky) 2) (*.f64 ky ky))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (sin.f64 th) ky)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (- 1/2 ( (cos (+ ky ky)) 1/2))) ky)) (sin.f64 ky))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky)) (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))))) #s(approx (sin th) th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #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) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #s(approx (+ (- 1/2 ( 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))

Outputs

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

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

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

Calls

2 calls:

15.0ms	kx
8.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

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

Compiler

Compiled 5 to 9 computations (-80% saved)

regimes58.0ms (0.8%)

Memory

-25.9MiB live, 112.2MiB allocated; 32ms collecting garbage

Counts

27 → 2

Calls

Call 1

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

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

Calls

4 calls:

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

Results

Accuracy	Segments	Branch
49.2%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
47.7%	4	`(sin.f64 kx)`
45.8%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
46.3%	3	`kx`

Compiler

Compiled 19 to 24 computations (-26.3% saved)

regimes7.0ms (0.1%)

Memory

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

Counts

19 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

5.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes62.0ms (0.9%)

Memory

0.4MiB live, 104.3MiB allocated; 39ms collecting garbage

Counts

18 → 2

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

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

Results

Accuracy	Segments	Branch
40.6%	2	`(sin.f64 ky)`
40.3%	2	`ky`
40.1%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
41.0%	3	`(sin.f64 kx)`
40.1%	2	`kx`
43.6%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 22 to 31 computations (-40.9% saved)

regimes5.0ms (0.1%)

Memory

9.8MiB live, 9.7MiB allocated; 0ms collecting garbage

Counts

14 → 2

Calls

Call 1

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

Outputs

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

4.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes36.0ms (0.5%)

Memory

-32.6MiB live, 63.1MiB allocated; 7ms collecting garbage

Counts

11 → 2

Calls

Call 1

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

9 calls:

6.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
5.0ms	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 ky)
3.0ms	(sin.f64 kx)

Results

Accuracy	Segments	Branch
28.7%	2	`(sin.f64 kx)`
29.7%	2	`kx`
29.6%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
30.2%	2	`ky`
26.8%	1	`(sin.f64 th)`
30.7%	2	`(sin.f64 ky)`
28.8%	2	`th`
34.2%	3	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
34.0%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes26.0ms (0.4%)

Memory

4.7MiB live, 51.4MiB allocated; 2ms collecting garbage

Counts

8 → 2

Calls

Call 1

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

Calls

9 calls:

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

Results

Accuracy	Segments	Branch
17.5%	2	`(sin.f64 th)`
19.8%	3	`(sin.f64 kx)`
17.4%	2	`th`
19.8%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
19.8%	2	`kx`
20.4%	2	`ky`
20.7%	2	`(sin.f64 ky)`
23.6%	2	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
22.9%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes10.0ms (0.1%)

Memory

26.1MiB live, 26.1MiB allocated; 0ms 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) th))

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

Calls

9 calls:

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	(/.f64 (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
1.0ms	(sin.f64 kx)
1.0ms	(sin.f64 ky)

Results

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

bsearch26.0ms (0.4%)

Memory

-11.2MiB live, 40.3MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
24.0ms	1.3770946641696646e-9	0.003516922591960687

Samples

19.0ms

144×

valid

Compiler

Compiled 226 to 216 computations (4.4% saved)

Precisions

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

ival-sin: 10.0ms (66.1% of total)

ival-pow2: 3.0ms (19.8% of total)

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

ival-div!: 1.0ms (6.6% of total)

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

adjust: 0.0ms (0% of total)

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

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9666522760627337	0.9695029847794255
0.0ms	0.11451358712421231	0.1479267073329882
0.0ms	-0.13318086034832105	4.072478569005668e-302
0.0ms	-1.0	-0.9999999920761296

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9666522760627337	0.9695029847794255
0.0ms	0.11451358712421231	0.1479267073329882
0.0ms	-0.13318086034832105	4.072478569005668e-302
0.0ms	-1.0	-0.9999999920761296

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9666522760627337	0.9695029847794255
0.0ms	0.11451358712421231	0.1479267073329882
0.0ms	-0.13318086034832105	4.072478569005668e-302
0.0ms	-1.0	-0.9999999920761296

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.025196190326144553	1.046253161733907e-302

Compiler

Compiled 18 to 18 computations (0% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-0.13318086034832105	4.072478569005668e-302

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch47.0ms (0.7%)

Memory

-18.8MiB live, 73.7MiB allocated; 7ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
21.0ms	0.00011998563115999842	3.233742720938791
23.0ms	1.5548897186056268e-162	1.3942265785177543e-153

Samples

32.0ms

272×

valid

Compiler

Compiled 745 to 735 computations (1.3% saved)

Precisions

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

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

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

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

ival-add!: 1.0ms (4% of total)

ival-div!: 1.0ms (4% of total)

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

adjust: 0.0ms (0% of total)

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.00011998563115999842	3.233742720938791
1.0ms	1.5548897186056268e-162	1.3942265785177543e-153

Compiler

Compiled 745 to 735 computations (1.3% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	8.590576310994523e-6	0.09657713348092876

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	8.590576310994523e-6	0.09657713348092876

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	8.590576310994523e-6	0.09657713348092876

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	8.590576310994523e-6	0.09657713348092876

Compiler

Compiled 18 to 19 computations (-5.6% 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.343062627538606e-39	5.882596722315744e-37

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	1.4322562359216713e-304

Compiler

Compiled 18 to 19 computations (-5.6% saved)

derivations674.0ms (9.8%)

Memory

33.3MiB live, 713.7MiB allocated; 184ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 286 to 158 computations (44.8% saved)

preprocess647.0ms (9.4%)

Memory

40.7MiB live, 796.1MiB allocated; 168ms collecting garbage

Remove

(negabs th)

(abs kx)

Compiler

Compiled 6 267 to 5 041 computations (19.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze234.0ms (3.4%)

sample2.1s (30.4%)

preprocess57.0ms (0.8%)

series56.0ms (0.8%)

rewrite260.0ms (3.8%)

eval34.0ms (0.5%)

prune18.0ms (0.3%)

series122.0ms (1.8%)

rewrite231.0ms (3.4%)

eval155.0ms (2.3%)

prune37.0ms (0.5%)

series78.0ms (1.1%)

rewrite230.0ms (3.3%)

eval80.0ms (1.2%)

prune54.0ms (0.8%)

series55.0ms (0.8%)

rewrite282.0ms (4.1%)

eval55.0ms (0.8%)

prune78.0ms (1.1%)

regimes279.0ms (4.1%)

regimes259.0ms (3.8%)

regimes45.0ms (0.7%)

regimes22.0ms (0.3%)

regimes21.0ms (0.3%)

regimes164.0ms (2.4%)

regimes78.0ms (1.1%)

regimes79.0ms (1.1%)

regimes85.0ms (1.2%)

regimes25.0ms (0.4%)

regimes58.0ms (0.8%)

regimes7.0ms (0.1%)

regimes62.0ms (0.9%)

regimes5.0ms (0.1%)

regimes36.0ms (0.5%)

regimes26.0ms (0.4%)

regimes10.0ms (0.1%)

bsearch26.0ms (0.4%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch1.0ms (0%)

bsearch47.0ms (0.7%)

bsearch2.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

derivations674.0ms (9.8%)

preprocess647.0ms (9.4%)

end0.0ms (0%)

Profiling