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

start0.0ms (0%)

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

analyze199.0ms (2.6%)

Memory

27.2MiB live, 270.8MiB allocated; 33ms 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)

sample1.9s (25%)

Memory

-35.5MiB live, 1 597.9MiB allocated; 926ms collecting garbage

Samples

1.6s

8 256×

valid

Precisions

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

ival-sin: 839.0ms (68.9% of total)

ival-pow2: 203.0ms (16.7% of total)

ival-sqrt: 77.0ms (6.3% of total)

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

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

ival-add!: 19.0ms (1.6% of total)

adjust: 2.0ms (0.2% of total)

Bogosity

preprocess36.0ms (0.5%)

Memory

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

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	46	166
1	92	163
2	224	163
3	435	163
4	959	163
5	3019	163

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs kx)

(negabs ky)

(negabs th)

Compiler

Compiled 30 to 26 computations (13.3% saved)

series38.0ms (0.5%)

Memory

5.7MiB live, 51.3MiB allocated; 6ms 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
9.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)
5.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)
5.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)

rewrite256.0ms (3.4%)

Memory

-18.7MiB live, 248.0MiB allocated; 53ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	432	2436
0	448	2305
1	2695	2273
0	11452	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))

eval20.0ms (0.3%)

Memory: 34.7MiB live, 34.7MiB allocated; 0ms collecting garbage
Compiler: Compiled 2 318 to 915 computations (60.5% saved)

prune40.0ms (0.5%)

Memory

-36.5MiB live, 35.6MiB allocated; 25ms collecting garbage

Pruning

29 alts after pruning (29 fresh and 0 done)

	Pruned	Kept	Total
New	134	29	163
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	135	29	164

Accuracy

99.9%

Counts

164 → 29

Alt Table

Click to see full alt table

Status	Accuracy	Program
	96.0%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
▶	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	84.8%	(.f64 (/.f64 (sin.f64 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))))))) (sin.f64 th))
	85.7%	(.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))
	78.4%	(.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))
	85.0%	(.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))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.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))))))))) (sin.f64 th))
	50.9%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(approx (sin th) th))
	86.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))) (sin.f64 th))
	49.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
	77.3%	(.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))
	69.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	56.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))
▶	48.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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)))))))) (sin.f64 th))
	37.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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)))))))) (sin.f64 th))
	40.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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)))))))) (sin.f64 th))
▶	48.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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)))))))) (sin.f64 th))
	33.0%	(.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))
	34.2%	(.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))
▶	77.2%	(.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))
	37.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	16.6%	(.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))
	34.8%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	99.6%	(.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))
	16.6%	#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)))
	32.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
	95.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky))) (.f64 (sin.f64 th) (sin.f64 ky))))
	50.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
▶	30.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Compiler

Compiled 1 226 to 1 136 computations (7.3% saved)

series206.0ms (2.7%)

Memory

-4.4MiB live, 222.6MiB allocated; 35ms collecting garbage

Counts

43 → 210

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(sin.f64 ky)
ky
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sin.f64 kx)
kx
(sin.f64 th)
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky)))))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 #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))))))))
(sqrt.f64 #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 kx kx (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))
(fma.f64 kx kx (-.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) 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)
#s(literal 2 binary64)
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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)))))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 #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))))))))
(sqrt.f64 #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) (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))))))
(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)))))
(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 (.f64 #s(literal 2/45 binary64) (.f64 kx kx)) #s(literal 1/3 binary64))
(.f64 #s(literal 2/45 binary64) (.f64 kx kx))
#s(literal 2/45 binary64)
(*.f64 kx kx)
#s(literal 1/3 binary64)
#s(literal 1 binary64)
(.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 (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))))
(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 (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))
(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))))))
(+.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) 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 (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- (+ 1/2 (pow kx 2)) (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- (+ 1/2 (pow kx 2)) (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- (+ 1/2 (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))) (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #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 (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) #s(hole binary64 (+ 1 (* -1/3 (pow kx 2)))))
#s(approx (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) #s(hole binary64 (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))
#s(approx (- (* 2/45 (* kx kx)) 1/3) #s(hole binary64 -1/3))
#s(approx (- (* 2/45 (* kx kx)) 1/3) #s(hole binary64 (- (* 2/45 (pow kx 2)) 1/3)))
#s(approx (* 2/45 (* kx kx)) #s(hole binary64 (* 2/45 (pow kx 2))))
#s(approx (* kx kx) #s(hole binary64 (pow kx 2)))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 1/2 (/ (pow kx 2) (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/48 (* (pow kx 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2)))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/48 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))) (* 1/1440 (* (pow kx 2) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (/ (pow kx 2) (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/24 (* (pow kx 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2)))))) (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/24 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))) (* 1/720 (* (pow kx 2) (+ (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))))))) (/ 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 (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (pow kx 2)))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* (pow kx 2) (- (+ 1 (* 1/2 (/ 1 (pow kx 2)))) (* 1/2 (/ (cos (* 2 ky)) (pow kx 2)))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* 2/45 (pow kx 6))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* (pow kx 6) (- 2/45 (* 1/3 (/ 1 (pow kx 2)))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* (pow kx 6) (- (+ 2/45 (/ 1 (pow kx 4))) (* 1/3 (/ 1 (pow kx 2)))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* (pow kx 6) (- (+ 2/45 (+ (/ 1 (pow kx 4)) (* 1/2 (/ 1 (pow kx 6))))) (+ (* 1/2 (/ (cos (* 2 ky)) (pow kx 6))) (* 1/3 (/ 1 (pow kx 2))))))))
#s(approx (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) #s(hole binary64 (* 2/45 (pow kx 4))))
#s(approx (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) #s(hole binary64 (* (pow kx 4) (- 2/45 (* 1/3 (/ 1 (pow kx 2)))))))
#s(approx (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) #s(hole binary64 (* (pow kx 4) (- (+ 2/45 (/ 1 (pow kx 4))) (* 1/3 (/ 1 (pow kx 2)))))))
#s(approx (- (* 2/45 (* kx kx)) 1/3) #s(hole binary64 (* 2/45 (pow kx 2))))
#s(approx (- (* 2/45 (* kx kx)) 1/3) #s(hole binary64 (* (pow kx 2) (- 2/45 (* 1/3 (/ 1 (pow kx 2)))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 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 (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (pow kx 2) (pow ky 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (pow kx 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (pow kx 2))))
#s(approx (- 1/2 (* 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 (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (pow ky 2))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))))
#s(approx (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) #s(hole binary64 (* (* ky (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* ky (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 1/2 (/ (pow ky 2) (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/48 (* (pow ky 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2)))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/48 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))) (* 1/1440 (* (pow ky 2) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (/ (pow ky 2) (- 1/2 (* 1/2 (cos (* 2 kx))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/24 (* (pow ky 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2)))))) (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/24 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))) (* 1/720 (* (pow ky 2) (+ (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))))))) (/ 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) #s(hole binary64 (sin ky)))
#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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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
63.0ms	kx	@	inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 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)) (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (- (* 2/45 (* kx kx)) 1/3) (* 2/45 (* kx kx)) 2/45 (* kx kx) 1/3 1 (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
55.0ms	ky	@	inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 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)) (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (- (* 2/45 (* kx kx)) 1/3) (* 2/45 (* kx kx)) 2/45 (* kx kx) 1/3 1 (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
26.0ms	kx	@	-inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 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)) (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (- (* 2/45 (* kx kx)) 1/3) (* 2/45 (* kx kx)) 2/45 (* kx kx) 1/3 1 (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
23.0ms	ky	@	-inf	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 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)) (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (- (* 2/45 (* kx kx)) 1/3) (* 2/45 (* kx kx)) 2/45 (* kx kx) 1/3 1 (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
10.0ms	kx	@	0	((* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) ky (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) kx (sin th) th (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 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)) (+ (* (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (- (* 2/45 (* kx kx)) 1/3) (* 2/45 (* kx kx)) 2/45 (* kx kx) 1/3 1 (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))

rewrite254.0ms (3.3%)

Memory

18.4MiB live, 236.8MiB allocated; 52ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1066	10570
0	1135	7835
1	6731	7775
0	8220	7406

Stop Event

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

Counts

253 → 457

Calls

Call 1

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

eval76.0ms (1%)

Memory: -5.0MiB live, 145.4MiB allocated; 29ms collecting garbage
Compiler: Compiled 9 094 to 3 069 computations (66.3% saved)

prune61.0ms (0.8%)

Memory

1.3MiB live, 92.3MiB allocated; 13ms collecting garbage

Pruning

41 alts after pruning (39 fresh and 2 done)

	Pruned	Kept	Total
New	486	27	513
Fresh	12	12	24
Picked	3	2	5
Done	0	0	0
Total	501	41	542

Accuracy

99.9%

Counts

542 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	96.0%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	39.7%	(/.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 #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))))))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.9%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) th))
	61.9%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #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)))) (sin.f64 th))
	61.9%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
▶	62.0%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	54.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))
	84.8%	(.f64 (/.f64 (sin.f64 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))))))) (sin.f64 th))
	76.6%	(*.f64 (/.f64 (sin.f64 ky) (+.f64 (cosh.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))) (sinh.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))) (sin.f64 th))
	85.7%	(.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))
	85.0%	(.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))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.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))))))))) (sin.f64 th))
	86.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))) (sin.f64 th))
	69.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
▶	32.5%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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 (sin th) th))
	27.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #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))))))) (sin.f64 th))
	30.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #s(approx (- 1/2 ( 1/2 (cos (* 2 ky)))) (*.f64 ky ky)))))) (sin.f64 th))
	39.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 kx kx #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	33.0%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) (sin.f64 th))
	21.7%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (.f64 (.f64 (fma.f64 (-.f64 (.f64 (.f64 kx kx) #s(literal 2/45 binary64)) #s(literal 1/3 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx) kx))))) (sin.f64 th))
	21.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (*.f64 kx kx))))) (sin.f64 th))
	34.2%	(.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/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	77.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) (-.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)))))))) #s(literal 1/2 binary64)))) (sin.f64 th))
▶	40.4%	(.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)))) #s(approx (sin th) th))
	32.4%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 #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(literal 1/2 binary64)))) (sin.f64 th))
	37.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	77.0%	(.f64 (/.f64 (sin.f64 ky) #s(approx (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (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 th))
	20.6%	(.f64 (/.f64 #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)) (sqrt.f64 #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)))))))) (sin.f64 th))
	21.5%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #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)))))))) (sin.f64 th))
	34.8%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
▶	99.6%	(.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))
	16.6%	(.f64 #s(approx (/ (sin ky) (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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))
	30.6%	(.f64 #s(approx (/ (sin ky) (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (.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)) (sin.f64 th))
	32.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
	50.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (/.f64 #s(literal 1 binary64) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))
✓	30.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	16.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)))
▶	16.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) th))
	32.8%	#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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))))
	30.5%	#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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)))

Compiler

Compiled 1 868 to 1 752 computations (6.2% saved)

series117.0ms (1.5%)

Memory

-10.9MiB live, 145.2MiB allocated; 30ms collecting garbage

Counts

39 → 213

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 (sin.f64 ky) (sqrt.f64 #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 (sin th) th))
(/.f64 (sin.f64 ky) (sqrt.f64 #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))))))))
(sqrt.f64 #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 kx kx (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) ky))))))
(fma.f64 kx kx (-.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) 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)
#s(literal 2 binary64)
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx)))
(hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))
#s(approx (sin kx) kx)
(.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)))) #s(approx (sin th) th))
(/.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))))
(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 (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))
(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))))))
(+.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) 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 (+ (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 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin ky)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (pow (sin ky) 2)))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (pow kx 2) (pow (sin ky) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))) (pow (sin ky) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (pow (sin ky) 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 ky))))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (- (+ 1/2 (pow kx 2)) (* 1/2 (cos (* 2 ky))))))
#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 ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 1/2 (/ (pow kx 2) (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/48 (* (pow kx 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2)))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/48 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))) (* 1/1440 (* (pow kx 2) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (/ (pow kx 2) (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/24 (* (pow kx 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2)))))) (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/24 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))) (* 1/720 (* (pow kx 2) (+ (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))))))) (/ 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 (+ (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 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (pow (sin kx) 2) (pow (sin ky) 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (pow kx 2)))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (* (pow kx 2) (- (+ 1 (* 1/2 (/ 1 (pow kx 2)))) (* 1/2 (/ (cos (* 2 ky)) (pow kx 2)))))))
#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 ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 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 (+ (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 (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (pow (sin kx) 2)))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (pow ky 2) (pow (sin kx) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (pow (sin kx) 2))))
#s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (pow (sin kx) 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (pow kx 2) (pow ky 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (pow kx 2))))
#s(approx (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) #s(hole binary64 (+ (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (pow kx 2))))
#s(approx (- 1/2 (* 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) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) #s(hole binary64 (* (* ky (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* ky (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 1/2 (/ (pow ky 2) (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/48 (* (pow ky 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2)))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/48 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))) (* 1/1440 (* (pow ky 2) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (/ (pow ky 2) (- 1/2 (* 1/2 (cos (* 2 kx))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/24 (* (pow ky 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2)))))) (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/24 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))) (* 1/720 (* (pow ky 2) (+ (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))))))) (/ 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) #s(hole binary64 (sin ky)))
#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 (+ (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 (+ (* (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 ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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
56.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
13.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
12.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
11.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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))
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)))) (* (/ 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 (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (+ (pow (sin kx) 2) (pow (sin ky) 2)) (+ (* kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (- 1/2 (* 1/2 (cos (* 2 ky)))) 1/2 (* 1/2 (cos (* 2 ky))) (cos (* 2 ky)) (* 2 ky) 2 (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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 kx)))) (* 1/2 (cos (* 2 kx))) (cos (* 2 kx)) (* 2 kx))

rewrite255.0ms (3.4%)

Memory

35.1MiB live, 216.9MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1073	11162
0	1135	8163
1	6785	8103
0	8292	7670

Stop Event

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

Counts

252 → 453

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

eval69.0ms (0.9%)

Memory: -5.7MiB live, 131.6MiB allocated; 30ms collecting garbage
Compiler: Compiled 7 881 to 2 676 computations (66% saved)

prune62.0ms (0.8%)

Memory

-8.8MiB live, 139.7MiB allocated; 16ms collecting garbage

Pruning

60 alts after pruning (56 fresh and 4 done)

	Pruned	Kept	Total
New	403	32	435
Fresh	10	24	34
Picked	3	2	5
Done	0	2	2
Total	416	60	476

Accuracy

99.9%

Counts

476 → 60

Alt Table

Click to see full alt table

Status	Accuracy	Program
	96.0%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	58.4%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) kx) (sin.f64 ky)))
	50.3%	(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	26.1%	(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) th)) (sqrt.f64 #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))))))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.9%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) th))
	61.9%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #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)))) (sin.f64 th))
	61.9%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
✓	62.0%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	54.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))
	35.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) ky) #s(approx (sin kx) kx))) (sin.f64 th))
	84.8%	(.f64 (/.f64 (sin.f64 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))))))) (sin.f64 th))
	76.6%	(*.f64 (/.f64 (sin.f64 ky) (+.f64 (cosh.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))) (sinh.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))) (sin.f64 th))
	76.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.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))))))))) (sin.f64 th))
	86.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))) (sin.f64 th))
	69.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	36.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) #s(approx (sin th) th))
	21.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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) (sin.f64 (fma.f64 #s(literal 2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) #s(approx (sin th) th))
	21.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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) (sin.f64 (+.f64 (neg.f64 (+.f64 ky ky)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) #s(approx (sin th) th))
	23.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #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 (sin th) th))
	21.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #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 (sin th) th))
	30.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #s(approx (- 1/2 ( 1/2 (cos (* 2 ky)))) (*.f64 ky ky)))))) (sin.f64 th))
	23.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #s(approx (- 1/2 ( 1/2 (cos (* 2 ky)))) (*.f64 ky ky)))))) #s(approx (sin th) th))
	39.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 kx kx #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	33.0%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) (sin.f64 th))
	21.7%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (.f64 (.f64 (fma.f64 (-.f64 (.f64 (.f64 kx kx) #s(literal 2/45 binary64)) #s(literal 1/3 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx) kx))))) (sin.f64 th))
	18.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
	21.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (*.f64 kx kx))))) (sin.f64 th))
	18.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (*.f64 kx kx))))) #s(approx (sin th) th))
	21.8%	(.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))
	34.2%	(.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/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	18.0%	(.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/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #s(approx (sin th) th))
	44.6%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.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))))) #s(literal 1/2 binary64)))) #s(approx (sin th) th))
	77.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) (-.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)))))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	21.6%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 (+.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 ky)))) (.f64 ky 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)))) #s(approx (sin th) th))
	32.4%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 #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(literal 1/2 binary64)))) (sin.f64 th))
▶	17.6%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 #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(literal 1/2 binary64)))) #s(approx (sin th) th))
	37.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	77.0%	(.f64 (/.f64 (sin.f64 ky) #s(approx (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (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 th))
	34.1%	(.f64 (/.f64 #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)) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	34.2%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	17.9%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (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 (sin th) th))
▶	34.8%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	18.4%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #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 (sin th) th))
	34.8%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	54.6%	(.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) #s(approx (sin ky) ky))) (sin.f64 ky))) (sin.f64 th))
	30.2%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 ky))) (sin.f64 ky))) (sin.f64 th))
	37.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))) (sin.f64 ky))) (sin.f64 th))
▶	98.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (exp.f64 (*.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(literal -1 binary64))) (sin.f64 ky))) (sin.f64 th))
	16.6%	(.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))
▶	40.3%	(.f64 #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 (sin th) th))
	18.2%	(.f64 #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/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 ky))) #s(approx (sin th) th))
	16.1%	(.f64 #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/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) ky)) #s(approx (sin th) th))
	30.6%	(.f64 #s(approx (/ (sin ky) (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (.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)) (sin.f64 th))
	32.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
✓	30.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
▶	16.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)))
✓	16.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) th))
	32.8%	#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))))
	30.5%	#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)))

Compiler

Compiled 2 724 to 2 547 computations (6.5% saved)

series389.0ms (5.1%)

Memory

-32.8MiB live, 377.7MiB allocated; 145ms collecting garbage

Counts

49 → 282

Calls

Call 1

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

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 (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) #s(hole binary64 1))
#s(approx (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) #s(hole binary64 (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (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 (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (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 (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #s(hole binary64 (/ 1 (sin ky))))
#s(approx (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #s(hole binary64 (+ (* -1/2 (/ (pow kx 2) (pow (sin ky) 3))) (/ 1 (sin ky)))))
#s(approx (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #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 (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #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 (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (* -1 (log (sin ky)))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (+ (* -1 (log (sin ky))) (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (+ (* -1 (log (sin ky))) (* (pow kx 2) (- (* -1/24 (* (pow kx 2) (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))) (* 3 (/ 1 (pow (sin ky) 4)))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (+ (* -1 (log (sin ky))) (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/24 (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))) (* 3 (/ 1 (pow (sin ky) 4))))) (* -1/720 (* (pow kx 2) (+ (* 30 (/ 1 (pow (sin ky) 6))) (+ (* 180 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 4))) (* 360 (/ (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2)))) (pow (sin ky) 2))))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (log (sin ky))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (log (sin ky)) (* 1/2 (/ (pow kx 2) (pow (sin ky) 2))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (log (sin ky)) (* (pow kx 2) (+ (* 1/24 (* (pow kx 2) (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))) (* 3 (/ 1 (pow (sin ky) 4)))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (log (sin ky)) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/720 (* (pow kx 2) (+ (* 180 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 4))) (+ (* 360 (/ (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2)))) (pow (sin ky) 2))) (* 30 (/ 1 (pow (sin ky) 6))))))) (* 1/24 (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))) (* 3 (/ 1 (pow (sin ky) 4))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))))
#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 (+ (* (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 ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) #s(hole binary64 (* (* (sin ky) (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 1/2 (/ (pow kx 2) (- 1/2 (* 1/2 (cos (* 2 ky)))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/48 (* (pow kx 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2)))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/48 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))) (* 1/1440 (* (pow kx 2) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 1/2 (* 1/2 (cos (* 2 ky)))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (/ (pow kx 2) (- 1/2 (* 1/2 (cos (* 2 ky))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/24 (* (pow kx 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2)))))) (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/24 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))) (* 1/720 (* (pow kx 2) (+ (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 ky)))))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 3))) (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 ky)))) 2))))))))) (/ 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 (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (pow ky 2)))
#s(approx (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (+ (pow kx 2) (pow ky 2))))
#s(approx (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))) (pow ky 2))))
#s(approx (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (+ (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (pow ky 2))))
#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 (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 ky))))))))))
#s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (- 1 (* 1/2 (+ 1 (cos (* 2 ky))))) 3))))) (* (sin ky) (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 ky)))))))))))
#s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (+ (* (sin ky) (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 ky)))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (- 1 (* 1/2 (+ 1 (cos (* 2 ky))))) 3))))) (* 1/2 (* (* (pow kx 2) (* (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))))))) (sin ky)) #s(hole binary64 (+ (* (sin ky) (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 ky)))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (- 1 (* 1/2 (+ 1 (cos (* 2 ky))))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (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 (* (* (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 (* (/ (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 (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #s(hole binary64 (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (* -1 (log (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (log (sqrt (+ (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 (+ (* (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 ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* (sin ky) (sqrt (/ 1 (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1 (+ (* 1/2 (cos (* 2 kx))) (* 1/2 (cos (* 2 ky)))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 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 (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (- (+ 1/2 (pow ky 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 (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* (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 (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (- (+ 1/2 (pow ky 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 (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* (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 (* (/ (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 (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) #s(hole binary64 (/ ky (sin kx))))
#s(approx (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (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 (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (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 (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (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 (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #s(hole binary64 (/ 1 (sin kx))))
#s(approx (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #s(hole binary64 (+ (* -1/2 (/ (pow ky 2) (pow (sin kx) 3))) (/ 1 (sin kx)))))
#s(approx (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #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 (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) #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 (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (* -1 (log (sin kx)))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (+ (* -1 (log (sin kx))) (* -1/2 (/ (pow ky 2) (pow (sin kx) 2))))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (+ (* -1 (log (sin kx))) (* (pow ky 2) (- (* -1/24 (* (pow ky 2) (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))) (* 3 (/ 1 (pow (sin kx) 4)))))) (* 1/2 (/ 1 (pow (sin kx) 2))))))))
#s(approx (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) #s(hole binary64 (+ (* -1 (log (sin kx))) (* (pow ky 2) (- (* (pow ky 2) (+ (* -1/24 (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))) (* 3 (/ 1 (pow (sin kx) 4))))) (* -1/720 (* (pow ky 2) (+ (* 30 (/ 1 (pow (sin kx) 6))) (+ (* 180 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 4))) (* 360 (/ (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2)))) (pow (sin kx) 2))))))))) (* 1/2 (/ 1 (pow (sin kx) 2))))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (log (sin kx))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (log (sin kx)) (* 1/2 (/ (pow ky 2) (pow (sin kx) 2))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (log (sin kx)) (* (pow ky 2) (+ (* 1/24 (* (pow ky 2) (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))) (* 3 (/ 1 (pow (sin kx) 4)))))) (* 1/2 (/ 1 (pow (sin kx) 2))))))))
#s(approx (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) #s(hole binary64 (+ (log (sin kx)) (* (pow ky 2) (+ (* (pow ky 2) (+ (* 1/720 (* (pow ky 2) (+ (* 180 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 4))) (+ (* 360 (/ (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2)))) (pow (sin kx) 2))) (* 30 (/ 1 (pow (sin kx) 6))))))) (* 1/24 (- (* -12 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))) (* 3 (/ 1 (pow (sin kx) 4))))))) (* 1/2 (/ 1 (pow (sin kx) 2))))))))
#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 (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (/ (* ky (sin th)) (sin kx))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) #s(hole binary64 (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (/ ky (sin kx))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(hole binary64 (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (sin kx)))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) #s(hole binary64 (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) #s(hole binary64 (* (* ky (sin th)) (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #s(hole binary64 (* ky (sqrt (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #s(hole binary64 (sqrt (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) #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 (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 1/2 (/ (pow ky 2) (- 1/2 (* 1/2 (cos (* 2 kx)))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/48 (* (pow ky 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2)))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) #s(hole binary64 (+ (* 1/2 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/48 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))) (* 1/1440 (* (pow ky 2) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))) (* 1/2 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (log (- 1/2 (* 1/2 (cos (* 2 kx)))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (/ (pow ky 2) (- 1/2 (* 1/2 (cos (* 2 kx))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/24 (* (pow ky 2) (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2)))))) (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx))))))))))
#s(approx (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) #s(hole binary64 (+ (log (- 1/2 (* 1/2 (cos (* 2 kx))))) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/24 (+ (* 8 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (* 12 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))) (* 1/720 (* (pow ky 2) (+ (* 32 (/ 1 (- 1/2 (* 1/2 (cos (* 2 kx)))))) (+ (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 3))) (* 240 (/ 1 (pow (- 1/2 (* 1/2 (cos (* 2 kx)))) 2))))))))) (/ 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 (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (- 1/2 (* 1/2 (cos (* 2 kx))))))
#s(approx (+ (* ky ky) 1/2) #s(hole binary64 1/2))
#s(approx (+ (* ky ky) 1/2) #s(hole binary64 (+ 1/2 (pow ky 2))))
#s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* ky (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 kx))))))))))
#s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* ky (+ (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/6 (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 kx))))))))))))))
#s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* ky (+ (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/6 (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 kx)))))))) (* (pow ky 2) (+ (* 1/120 (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 kx)))))))) (+ (* 1/12 (sqrt (/ 1 (pow (- 1 (* 1/2 (+ 1 (cos (* 2 kx))))) 3)))) (* 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 (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* ky (+ (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/6 (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 kx)))))))) (* (pow ky 2) (+ (* 1/120 (sqrt (/ 1 (- 1 (* 1/2 (+ 1 (cos (* 2 kx)))))))) (+ (* 1/12 (sqrt (/ 1 (pow (- 1 (* 1/2 (+ 1 (cos (* 2 kx))))) 3)))) (+ (* 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)))))))) (* (pow ky 2) (+ (* -1/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/12 (* (+ (* 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 (sqrt (/ 1 (pow (- 1 (* 1/2 (+ 1 (cos (* 2 kx))))) 3)))) (* -1/5040 (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)))))))))
#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 (cos (+ ky ky)) #s(hole binary64 1))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* -2 (pow ky 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* 2/3 (pow ky 2)) 2)))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/3 (* -4/45 (pow ky 2)))) 2)))))
#s(approx (+ ky ky) #s(hole binary64 (* 2 ky)))
#s(approx (sin ky) #s(hole binary64 (sin ky)))
#s(approx (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) #s(hole binary64 (* (pow ky 2) (- (+ 1 (* 1/2 (/ 1 (pow ky 2)))) (* 1/2 (/ (cos (* 2 kx)) (pow ky 2)))))))
#s(approx (+ (* ky ky) 1/2) #s(hole binary64 (pow ky 2)))
#s(approx (+ (* ky ky) 1/2) #s(hole binary64 (* (pow ky 2) (+ 1 (* 1/2 (/ 1 (pow ky 2)))))))
#s(approx (cos (+ ky ky)) #s(hole binary64 (cos (* 2 ky))))
#s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) #s(hole binary64 (* (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 (cos (+ ky ky)) #s(hole binary64 (cos (neg (* -2 ky)))))
#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 (* (+ (* (* 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 (+ (* (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 ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (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
114.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)))) (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky -1 (sin th) th (* (/ (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 (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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))))) (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) (+ (* ky ky) 1/2) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) (/ 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 (+ ky ky)) (+ ky ky))
108.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)))) (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky -1 (sin th) th (* (/ (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 (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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))))) (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) (+ (* ky ky) 1/2) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) (/ 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 (+ ky ky)) (+ ky ky))
68.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)))) (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky -1 (sin th) th (* (/ (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 (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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))))) (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) (+ (* ky ky) 1/2) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) (/ 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 (+ ky ky)) (+ ky ky))
38.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)))) (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky -1 (sin th) th (* (/ (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 (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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))))) (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) (+ (* ky ky) 1/2) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) (/ 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 (+ ky ky)) (+ ky ky))
10.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)))) (* (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (sin ky)) (exp (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1)) (* (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) -1) (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky))))) (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin kx) kx (sin ky) ky -1 (sin th) th (* (/ (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 (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin kx) (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log (+ (- 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))))) (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) (+ (* ky ky) 1/2) 1/2 (* (cos (+ kx kx)) 1/2) (cos (+ kx kx)) (+ kx kx) (sin th) (* (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (sin th)) (/ (sin ky) (sqrt (+ (* (sin ky) (sin ky)) (* (sin kx) (sin kx))))) (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) (/ 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 (+ ky ky)) (+ ky ky))

rewrite208.0ms (2.7%)

Memory

35.2MiB live, 348.3MiB allocated; 83ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1502	15356
0	1567	12655
0	8271	11945

Stop Event

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

Counts

331 → 422

Calls

Call 1

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

eval70.0ms (0.9%)

Memory: 9.7MiB live, 154.6MiB allocated; 31ms collecting garbage
Compiler: Compiled 10 583 to 3 179 computations (70% saved)

prune104.0ms (1.4%)

Memory

-13.4MiB live, 183.7MiB allocated; 47ms collecting garbage

Pruning

74 alts after pruning (67 fresh and 7 done)

	Pruned	Kept	Total
New	399	19	418
Fresh	3	48	51
Picked	2	3	5
Done	0	4	4
Total	404	74	478

Accuracy

99.9%

Counts

478 → 74

Alt Table

Click to see full alt table

Status	Accuracy	Program
	96.0%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	58.4%	(/.f64 (*.f64 (sin.f64 th) (sin.f64 ky)) (hypot.f64 #s(approx (sin kx) kx) (sin.f64 ky)))
	50.3%	(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
	26.1%	(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) th)) (sqrt.f64 #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))))))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	53.9%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) th))
	61.9%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #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)))) (sin.f64 th))
	61.9%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 kx kx) #s(literal 1 binary64)) kx)))) (sin.f64 th))
✓	62.0%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	54.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) ky) (sin.f64 kx))) (sin.f64 th))
	35.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) ky) #s(approx (sin kx) kx))) (sin.f64 th))
	84.8%	(.f64 (/.f64 (sin.f64 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))))))) (sin.f64 th))
	76.6%	(*.f64 (/.f64 (sin.f64 ky) (+.f64 (cosh.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))) (sinh.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky)))))) (sin.f64 th))
	86.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) ky))))))) (sin.f64 th))
	69.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.f64 (sin.f64 kx)) #s(literal 2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	36.7%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) #s(approx (sin th) th))
	21.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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) (sin.f64 (fma.f64 #s(literal 2 binary64) ky (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) #s(approx (sin th) th))
	21.6%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #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) (sin.f64 (+.f64 (neg.f64 (+.f64 ky ky)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))))) #s(approx (sin th) th))
	23.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #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 (sin th) th))
	21.1%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #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 (sin th) th))
	30.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #s(approx (- 1/2 ( 1/2 (cos (* 2 ky)))) (*.f64 ky ky)))))) (sin.f64 th))
	23.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (fma.f64 kx kx #s(approx (- 1/2 ( 1/2 (cos (* 2 ky)))) (*.f64 ky ky)))))) #s(approx (sin th) th))
	39.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) (-.f64 (fma.f64 kx kx #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	33.0%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) (sin.f64 th))
	21.7%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( (+ (* (- (* 2/45 (* kx kx)) 1/3) (* kx kx)) 1) (* kx kx)) (- 1/2 (* 1/2 (cos (* 2 ky))))) (.f64 (.f64 (fma.f64 (-.f64 (.f64 (.f64 kx kx) #s(literal 2/45 binary64)) #s(literal 1/3 binary64)) (*.f64 kx kx) #s(literal 1 binary64)) kx) kx))))) (sin.f64 th))
	18.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))) #s(approx (sin th) th))
	21.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (*.f64 kx kx))))) (sin.f64 th))
	18.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (pow (sin kx) 2) (pow (sin ky) 2)) #s(approx (+ ( kx kx) (- 1/2 (* 1/2 (cos (* 2 ky))))) (*.f64 kx kx))))) #s(approx (sin th) th))
	21.8%	(.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))
	34.2%	(.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/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) (sin.f64 th))
	18.0%	(.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/2 binary64) (*.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #s(approx (sin th) th))
	44.6%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.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))))) #s(literal 1/2 binary64)))) #s(approx (sin th) th))
	77.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) (-.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)))))))) #s(literal 1/2 binary64)))) (sin.f64 th))
	21.6%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 (+.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 ky)))) (.f64 ky 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)))) #s(approx (sin th) th))
	32.4%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 #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(literal 1/2 binary64)))) (sin.f64 th))
	7.9%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 (.f64 (log.f64 #s(approx (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx))))) #s(approx (- (+ (* ky ky) 1/2) (* (cos (+ kx kx)) 1/2)) (*.f64 ky ky)))) #s(literal 1/2 binary64)))) #s(approx (sin th) th))
	18.0%	(.f64 (/.f64 (sin.f64 ky) (exp.f64 #s(approx ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2) (log.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))))) #s(approx (sin th) th))
	37.0%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	77.0%	(.f64 (/.f64 (sin.f64 ky) #s(approx (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2)) (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 th))
	34.1%	(.f64 (/.f64 #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)) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	34.2%	(.f64 (/.f64 #s(approx (sin ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) ky)) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	16.0%	(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 ky ky))))) (exp.f64 (.f64 (log.f64 #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(literal 1/2 binary64)))) #s(approx (sin th) th))
✓	34.8%	(*.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
	25.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) #s(approx (sin th) (.f64 th (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 th th))))))
	24.7%	(.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) #s(approx (sin th) (.f64 th (+.f64 #s(literal 1 binary64) (.f64 (.f64 th th) (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 th th)) #s(literal 1/6 binary64)))))))
	35.0%	(.f64 (/.f64 #s(approx (sin ky) ky) (hypot.f64 #s(approx (sin ky) (.f64 ky (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 ky ky))))) #s(approx (sin kx) kx))) (sin.f64 th))
	18.4%	(.f64 (/.f64 #s(approx (sin ky) ky) (sqrt.f64 #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 (sin th) th))
	35.7%	(.f64 (/.f64 #s(approx (sin ky) ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (-.f64 (sin.f64 kx) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 ky ky) (sin.f64 kx)))))) (sin.f64 th))
	15.6%	(.f64 (/.f64 #s(approx (sin ky) ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin.f64 ky))) (sin.f64 th))
	34.8%	(.f64 (/.f64 #s(approx (sin ky) ky) #s(approx (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx)))) (sin.f64 kx))) (sin.f64 th))
	54.6%	(.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) #s(approx (sin ky) ky))) (sin.f64 ky))) (sin.f64 th))
	30.2%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 ky))) (sin.f64 ky))) (sin.f64 th))
	37.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (/.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))) (sin.f64 kx))) (sin.f64 ky))) (sin.f64 th))
	97.9%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (+.f64 (cosh.f64 (.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(literal -1 binary64))) (sinh.f64 (.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(literal -1 binary64)))) (sin.f64 ky))) (sin.f64 th))
	52.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (exp.f64 (.f64 (log.f64 (hypot.f64 (sin.f64 kx) (sin.f64 ky))) #s(literal -1 binary64))) (sin.f64 ky))) #s(approx (sin th) (.f64 th (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/6 binary64) (.f64 th th))))))
	16.6%	(.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))
✓	40.3%	(.f64 #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 (sin th) th))
	18.0%	(.f64 #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)) #s(approx (cos (+ ky ky)) #s(literal 1 binary64))))))) (sin.f64 ky))) #s(approx (sin th) th))
	18.2%	(.f64 #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/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))) (sin.f64 ky))) #s(approx (sin th) th))
	16.1%	(.f64 #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/2 binary64) (.f64 (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) ky)) #s(approx (sin th) th))
	16.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ ( (sin ky) (sin ky)) (* (sin kx) (sin kx))))) #s(approx (* (/ 1 (sqrt (- 1 (* 1/2 (+ (cos (+ kx kx)) (cos (+ ky ky))))))) (sin ky)) (.f64 ky (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))))))) #s(approx (sin th) th))
	30.6%	(.f64 #s(approx (/ (sin ky) (exp ( (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (.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)) (sin.f64 th))
	32.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 (sin.f64 th) ky) (sin.f64 kx)))
✓	30.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
✓	16.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)))
	16.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)))
	8.6%	#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) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 th th)) #s(literal 1/6 binary64)))) th)))
	14.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 #s(literal -1/6 binary64) (.f64 th th))) th)))
	8.5%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (* (+ (* (* th th) -1/6) 1) th) (.f64 (.f64 (.f64 th th) th) (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/6 binary64))))))
	14.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 #s(literal -1/6 binary64) (.f64 (*.f64 th th) th)))))
✓	16.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) th))
	32.8%	#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))))
	30.5%	#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)))
	29.4%	#s(approx (* (/ (sin ky) (exp (* (log (+ (- 1/2 (* 1/2 (cos (* 2 ky)))) (- 1/2 (* 1/2 (cos (* 2 kx)))))) 1/2))) (sin th)) (.f64 ky (fma.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sqrt.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -3 binary64)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))))))))

Compiler

Compiled 3 303 to 2 279 computations (31% saved)

regimes360.0ms (4.7%)

Memory

-0.8MiB live, 417.4MiB allocated; 40ms collecting garbage

Counts

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

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

Calls

9 calls:

82.0ms	kx
48.0ms	th
44.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)))))
29.0ms	ky
28.0ms	(sin.f64 ky)

Results

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

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes235.0ms (3.1%)

Memory

4.6MiB live, 441.7MiB allocated; 68ms collecting garbage

Counts

87 → 5

Calls

Call 1

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

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

Calls

9 calls:

40.0ms	kx
34.0ms	(sin.f64 th)
24.0ms	(sin.f64 kx)
24.0ms	(sin.f64 ky)
23.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
83.5%	3	`(sin.f64 ky)`
90.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)))))`
73.7%	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))`
81.0%	3	`th`
81.0%	3	`(sin.f64 th)`
83.5%	3	`(sin.f64 kx)`
83.5%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
83.8%	2	`kx`
83.4%	2	`ky`

Compiler

Compiled 40 to 51 computations (-27.5% saved)

regimes25.0ms (0.3%)

Memory

9.0MiB live, 54.2MiB allocated; 3ms collecting garbage

Counts

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

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

Calls

1 calls:

20.0ms

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

Results

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

regimes23.0ms (0.3%)

Memory

1.5MiB live, 47.4MiB allocated; 2ms collecting garbage

Counts

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

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

regimes23.0ms (0.3%)

Memory

-0.4MiB live, 45.1MiB allocated; 3ms collecting garbage

Counts

79 → 5

Calls

Call 1

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

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (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) #s(approx (sin ky) ky))) (sin.f64 ky))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) #s(approx (sin th) th)) (hypot.f64 (sin.f64 kx) (sin.f64 ky)))
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) kx))) (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
90.2%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes22.0ms (0.3%)

Memory

-3.7MiB live, 49.8MiB allocated; 3ms collecting garbage

Counts

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

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

Calls

1 calls:

18.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes18.0ms (0.2%)

Memory

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

Counts

65 → 6

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

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

Calls

1 calls:

14.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes129.0ms (1.7%)

Memory

4.3MiB live, 141.5MiB allocated; 8ms collecting garbage

Counts

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

Calls

6 calls:

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

Results

Accuracy	Segments	Branch
79.7%	3	`(sin.f64 kx)`
68.5%	3	`(sin.f64 ky)`
68.9%	3	`ky`
79.7%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
79.8%	2	`kx`
82.3%	6	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 22 to 31 computations (-40.9% saved)

regimes105.0ms (1.4%)

Memory

-45.1MiB live, 251.2MiB allocated; 23ms collecting garbage

Counts

63 → 6

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

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

Calls

6 calls:

20.0ms	(sin.f64 kx)
18.0ms	kx
16.0ms	(sin.f64 th)
16.0ms	th
15.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
82.2%	6	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
68.5%	6	`(sin.f64 kx)`
69.7%	3	`th`
69.0%	3	`(sin.f64 th)`
65.2%	4	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
67.7%	5	`kx`

Compiler

Compiled 22 to 31 computations (-40.9% saved)

regimes17.0ms (0.2%)

Memory

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

Counts

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

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

Calls

1 calls:

14.0ms

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

Results

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

regimes77.0ms (1%)

Memory

3.3MiB live, 148.0MiB allocated; 8ms collecting garbage

Counts

58 → 6

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

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

Calls

5 calls:

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

Results

Accuracy	Segments	Branch
53.9%	2	`ky`
54.6%	3	`(sin.f64 th)`
55.9%	3	`th`
57.6%	5	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
73.2%	6	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 31 to 34 computations (-9.7% saved)

regimes33.0ms (0.4%)

Memory

-32.6MiB live, 59.8MiB allocated; 5ms collecting garbage

Counts

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

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

Calls

2 calls:

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

Results

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

Compiler

Compiled 14 to 15 computations (-7.1% saved)

regimes15.0ms (0.2%)

Memory

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

Counts

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

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

Calls

1 calls:

12.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes26.0ms (0.3%)

Memory

-24.8MiB live, 22.0MiB allocated; 2ms collecting garbage

Counts

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

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

Calls

1 calls:

23.0ms

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

Results

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

regimes10.0ms (0.1%)

Memory

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

Counts

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

Calls

1 calls:

8.0ms

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

Results

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

regimes9.0ms (0.1%)

Memory

16.3MiB live, 16.2MiB allocated; 0ms collecting garbage

Counts

31 → 4

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

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

Calls

1 calls:

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes55.0ms (0.7%)

Memory

-26.9MiB live, 69.6MiB allocated; 7ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 21 to 28 computations (-33.3% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

20 → 3

Calls

Call 1

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

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes42.0ms (0.5%)

Memory

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
45.3%	4	`(sin.f64 kx)`
46.1%	4	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
40.3%	3	`(sin.f64 th)`
50.6%	2	`(sin.f64 ky)`
50.3%	2	`ky`
41.1%	2	`th`
50.4%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 35 to 42 computations (-20% saved)

regimes23.0ms (0.3%)

Memory

-8.1MiB live, 47.9MiB allocated; 2ms collecting garbage

Counts

15 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

5 calls:

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

Results

Accuracy	Segments	Branch
46.6%	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)))))`
40.3%	2	`ky`
41.1%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
41.1%	2	`kx`
40.9%	2	`(sin.f64 ky)`

Compiler

Compiled 20 to 27 computations (-35% saved)

regimes4.0ms (0%)

Memory

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

Counts

10 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

3.0ms

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

Results

Accuracy	Segments	Branch
45.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)

regimes3.0ms (0%)

Memory

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

Counts

9 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

3.0ms

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

Results

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

Compiler

Compiled 12 to 11 computations (8.3% saved)

regimes25.0ms (0.3%)

Memory

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

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 #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)) (sin.f64 th))

Calls

8 calls:

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

Results

Accuracy	Segments	Branch
36.1%	2	`ky`
36.6%	2	`(sin.f64 ky)`
33.4%	2	`th`
36.1%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
36.1%	2	`kx`
36.3%	3	`(sin.f64 kx)`
39.9%	3	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
39.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 38 to 47 computations (-23.7% saved)

regimes26.0ms (0.3%)

Memory

-36.4MiB live, 57.5MiB allocated; 6ms collecting garbage

Counts

7 → 2

Calls

Call 1

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

Calls

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

Results

Accuracy	Segments	Branch
19.4%	2	`th`
24.7%	3	`(sin.f64 kx)`
24.7%	2	`kx`
24.7%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
23.8%	2	`ky`
24.1%	2	`(sin.f64 ky)`
26.7%	2	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
19.5%	2	`(sin.f64 th)`
26.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)

regimes10.0ms (0.1%)

Memory

27.8MiB live, 27.8MiB 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	(sin.f64 ky)
1.0ms	(sin.f64 th)
1.0ms	(sin.f64 kx)

Results

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

Compiler

Compiled 40 to 51 computations (-27.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	0.16872933022403783	0.36827833186162073
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	0.16872933022403783	0.36827833186162073
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	0.16872933022403783	0.36827833186162073
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	0.16872933022403783	0.36827833186162073
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	0.16872933022403783	0.36827833186162073
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	0.16872933022403783	0.36827833186162073
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch41.0ms (0.5%)

Memory

-26.7MiB live, 38.5MiB allocated; 46ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
20.0ms	0.014707469756352896	202.42713703870277

Samples

15.0ms

128×

valid

Compiler

Compiled 307 to 314 computations (-2.3% saved)

Precisions

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

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

bsearch1.0ms (0%)

Memory

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

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	0.9743202334030662	0.98389760161748
0.0ms	1.114465650409958e-14	7.441544907167918e-14
0.0ms	-0.2188020511370727	8.438251271539458e-307
0.0ms	-0.9995766392462023	-0.9981379899296522

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	0.7054386666520588	0.7406048914780884
0.0ms	1.4981750100320793e-94	1.1448664466794512e-89
0.0ms	-0.3675609759058395	-0.32236057541139795

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

5×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	0.7054386666520588	0.7406048914780884
0.0ms	1.4981750100320793e-94	1.1448664466794512e-89
0.0ms	6.942063895015915e-162	2.3330013758690617e-161
0.0ms	-1.0	-0.9995766392462023

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	4.969414331032679e-7	0.09154482708022235
0.0ms	1.4981750100320793e-94	1.1448664466794512e-89
0.0ms	-0.3675609759058395	-0.32236057541139795

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch3.0ms (0%)

Memory

-43.6MiB live, 3.1MiB allocated; 4ms collecting garbage

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	4.969414331032679e-7	0.09154482708022235
0.0ms	1.4981750100320793e-94	1.1448664466794512e-89
0.0ms	-0.3675609759058395	-0.32236057541139795

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	4.969414331032679e-7	0.09154482708022235
0.0ms	1.4981750100320793e-94	1.1448664466794512e-89
0.0ms	-0.2188020511370727	8.438251271539458e-307

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	4.969414331032679e-7	0.09154482708022235
0.0ms	1.4981750100320793e-94	1.1448664466794512e-89
0.0ms	-0.2188020511370727	8.438251271539458e-307

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	1.4515753232000161e-7	4.969414331032679e-7
0.0ms	-0.2188020511370727	8.438251271539458e-307

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	1.4515753232000161e-7	4.969414331032679e-7

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.0	1.0015260456985873
0.0ms	1.4515753232000161e-7	4.969414331032679e-7

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	1.1433591164393664e-27	3.336234256547698e-24

Compiler

Compiled 18 to 18 computations (0% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	4.969414331032679e-7	0.09154482708022235
0.0ms	4.2836165515370117e-38	1.0122663946653461e-35

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.135864635256297e-23	2.9556035462488666e-18

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	2.135864635256297e-23	2.9556035462488666e-18

Compiler

Compiled 18 to 19 computations (-5.6% saved)

bsearch12.0ms (0.2%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
12.0ms	1.4352258180020576e-27	3.526308014510663e-24

Samples

7.0ms

128×

valid

Compiler

Compiled 370 to 363 computations (1.9% saved)

Precisions

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

ival-sin: 3.0ms (82.6% of total)

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

adjust: 0.0ms (0% of total)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.323193775952227e-308	2.595327445915423e-304

Compiler

Compiled 18 to 19 computations (-5.6% saved)

derivations780.0ms (10.3%)

Memory

37.9MiB live, 639.2MiB allocated; 72ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 574 to 275 computations (52.1% saved)

preprocess1.1s (14.1%)

Memory

-21.0MiB live, 1 793.1MiB allocated; 234ms collecting garbage

Remove

(negabs th)

(abs kx)

Compiler

Compiled 17 167 to 13 048 computations (24% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze199.0ms (2.6%)

sample1.9s (25%)

preprocess36.0ms (0.5%)

series38.0ms (0.5%)

rewrite256.0ms (3.4%)

eval20.0ms (0.3%)

prune40.0ms (0.5%)

series206.0ms (2.7%)

rewrite254.0ms (3.3%)

eval76.0ms (1%)

prune61.0ms (0.8%)

series117.0ms (1.5%)

rewrite255.0ms (3.4%)

eval69.0ms (0.9%)

prune62.0ms (0.8%)

series389.0ms (5.1%)

rewrite208.0ms (2.7%)

eval70.0ms (0.9%)

prune104.0ms (1.4%)

regimes360.0ms (4.7%)

regimes235.0ms (3.1%)

regimes25.0ms (0.3%)

regimes23.0ms (0.3%)

regimes23.0ms (0.3%)

regimes22.0ms (0.3%)

regimes18.0ms (0.2%)

regimes129.0ms (1.7%)

regimes105.0ms (1.4%)

regimes17.0ms (0.2%)

regimes77.0ms (1%)

regimes33.0ms (0.4%)

regimes15.0ms (0.2%)

regimes26.0ms (0.3%)

regimes10.0ms (0.1%)

regimes9.0ms (0.1%)

regimes55.0ms (0.7%)

regimes6.0ms (0.1%)

regimes42.0ms (0.5%)

regimes23.0ms (0.3%)

regimes4.0ms (0%)

regimes3.0ms (0%)

regimes25.0ms (0.3%)

regimes26.0ms (0.3%)

regimes10.0ms (0.1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch41.0ms (0.5%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch3.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch12.0ms (0.2%)

bsearch0.0ms (0%)

derivations780.0ms (10.3%)

preprocess1.1s (14.1%)

end0.0ms (0%)

Profiling