Metrics for Migdal et al, Equation (64)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

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

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
100%	99.9%	0%	0.1%	0%	0%	0%	1

Compiler

Compiled 21 to 14 computations (33.3% saved)

sample1.4s (27.6%)

Memory

3.6MiB live, 2 786.5MiB allocated; 571ms collecting garbage

Samples

1.1s

8 256×

valid

Precisions

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

ival-cos: 351.0ms (60.3% of total)

ival-mult!: 166.0ms (28.5% of total)

ival-div!: 46.0ms (7.9% of total)

ival-add!: 18.0ms (3.1% of total)

adjust: 2.0ms (0.3% of total)

Bogosity

preprocess62.0ms (1.2%)

Memory

-23.5MiB live, 71.0MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	133
1	163	133
2	595	133
3	1542	133
4	3030	133
5	4451	133
6	7243	133

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.6%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 32 to 24 computations (25% saved)

series26.0ms (0.5%)

Memory

4.3MiB live, 54.7MiB allocated; 4ms collecting garbage

Counts

12 → 34

Calls

Call 1

Inputs
(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(*.f64 a2 a2)
a2

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))

Calls

9 calls:

Time	Variable		Point	Expression
10.0ms	th	@	-inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
3.0ms	a1	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	th	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	a2	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	th	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)

rewrite182.0ms (3.5%)

Memory

17.8MiB live, 290.5MiB allocated; 25ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	158	1016
0	172	890
1	999	852
0	8444	800

Stop Event

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

Counts

46 → 152

Calls

Call 1

Inputs
(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))

Outputs
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th) (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))) (neg.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a1) a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a2) a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))) (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)) a1))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)) a2))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 a2) a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (neg.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
a1
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (neg.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (.f64 (fma.f64 (.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (.f64 (fma.f64 (.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))

eval18.0ms (0.4%)

Memory: 9.1MiB live, 51.6MiB allocated; 4ms collecting garbage
Compiler: Compiled 1 858 to 596 computations (67.9% saved)

prune25.0ms (0.5%)

Memory

-10.3MiB live, 37.3MiB allocated; 17ms collecting garbage

Pruning

13 alts after pruning (13 fresh and 0 done)

	Pruned	Kept	Total
New	156	13	169
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	157	13	170

Accuracy

100.0%

Counts

170 → 13

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.6%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
▶	99.3%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
▶	99.6%	(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
	99.6%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	24.1%	(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))) (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))))
	99.6%	(+.f64 (.f64 (/.f64 (cos.f64 th) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	28.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
▶	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	75.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
▶	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))

Compiler

Compiled 550 to 456 computations (17.1% saved)

series1.1s (20.4%)

Memory

-165.8MiB live, 361.9MiB allocated; 1.5s collecting garbage

Counts

36 → 148

Calls

Call 1

Inputs
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))))
(.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2))
(cos.f64 th)
th
(*.f64 (neg.f64 a2) a2)
(neg.f64 a2)
a2
(neg.f64 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))
(.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))
(*.f64 (neg.f64 a1) a1)
(neg.f64 a1)
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a2) a2)
(*.f64 (cos.f64 th) a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2)
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2)
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
#s(literal 1 binary64)
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))

Outputs
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (* -1 (* (pow a1 2) (cos th)))))
#s(approx (* (neg a1) a1) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (neg a1) #s(hole binary64 (* -1 a1)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* -1 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (* -1 (* (pow a2 2) (cos th)))))
#s(approx (* (neg a2) a2) #s(hole binary64 (* -1 (pow a2 2))))
#s(approx (neg a2) #s(hole binary64 (* -1 a2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (+ (* -1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (+ (* -1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (+ (* 1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (* -1 (pow a2 2))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (+ (* -1 (pow a2 2)) (* 1/2 (* (pow a2 2) (pow th 2))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (+ (* -1 (pow a2 2)) (* (pow th 2) (+ (* -1/24 (* (pow a2 2) (pow th 2))) (* 1/2 (pow a2 2)))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (+ (* -1 (pow a2 2)) (* (pow th 2) (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/24 (pow a2 2)) (* 1/720 (* (pow a2 2) (pow th 2))))))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/24 (* (pow a1 2) (sqrt 2))))))))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (* 1/2 (* (pow a1 2) (pow th 2))))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (* (pow th 2) (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/24 (pow a1 2)) (* 1/720 (* (pow a1 2) (pow th 2))))))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (* (pow th 2) (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2)))))) (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* 1/720 (/ (pow a1 2) (sqrt 2))) (* 1/720 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (* -1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (+ (* -1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/720 (* (pow a1 2) (sqrt 2))) (* 1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* -1 (* (pow a1 2) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/2 (* (pow a1 2) (sqrt 2))))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (* 1/720 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))) (pow (sqrt 2) 2)))))

Calls

9 calls:

Time	Variable		Point	Expression
979.0ms	a2	@	inf	((/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (* (cos th) (* (neg a2) a2)) (cos th) th (* (neg a2) a2) (neg a2) a2 (neg (sqrt 2)) (sqrt 2) 2 (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (* (cos th) (* (neg a1) a1)) (* (neg a1) a1) (neg a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) 1 (/ (cos th) (sqrt 2)) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (* (sqrt 2) (neg (sqrt 2))))
27.0ms	a1	@	inf	((/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (* (cos th) (* (neg a2) a2)) (cos th) th (* (neg a2) a2) (neg a2) a2 (neg (sqrt 2)) (sqrt 2) 2 (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (* (cos th) (* (neg a1) a1)) (* (neg a1) a1) (neg a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) 1 (/ (cos th) (sqrt 2)) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (* (sqrt 2) (neg (sqrt 2))))
16.0ms	th	@	inf	((/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (* (cos th) (* (neg a2) a2)) (cos th) th (* (neg a2) a2) (neg a2) a2 (neg (sqrt 2)) (sqrt 2) 2 (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (* (cos th) (* (neg a1) a1)) (* (neg a1) a1) (neg a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) 1 (/ (cos th) (sqrt 2)) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (* (sqrt 2) (neg (sqrt 2))))
7.0ms	th	@	-inf	((/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (* (cos th) (* (neg a2) a2)) (cos th) th (* (neg a2) a2) (neg a2) a2 (neg (sqrt 2)) (sqrt 2) 2 (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (* (cos th) (* (neg a1) a1)) (* (neg a1) a1) (neg a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) 1 (/ (cos th) (sqrt 2)) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (* (sqrt 2) (neg (sqrt 2))))
7.0ms	a1	@	0	((/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (* (cos th) (* (neg a2) a2)) (cos th) th (* (neg a2) a2) (neg a2) a2 (neg (sqrt 2)) (sqrt 2) 2 (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (* (cos th) (* (neg a1) a1)) (* (neg a1) a1) (neg a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) 1 (/ (cos th) (sqrt 2)) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (* (sqrt 2) (neg (sqrt 2))))

rewrite200.0ms (3.8%)

Memory

-29.0MiB live, 258.9MiB allocated; 30ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	633	5872
0	701	5061
1	4046	4854
0	8288	4739

Stop Event

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

Counts

184 → 400

Calls

Call 1

Inputs
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))))
(.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2))
(cos.f64 th)
th
(*.f64 (neg.f64 a2) a2)
(neg.f64 a2)
a2
(neg.f64 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))
(.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))
(*.f64 (neg.f64 a1) a1)
(neg.f64 a1)
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a2) a2)
(*.f64 (cos.f64 th) a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2)
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2)
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
#s(literal 1 binary64)
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (* -1 (* (pow a1 2) (cos th)))))
#s(approx (* (neg a1) a1) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (neg a1) #s(hole binary64 (* -1 a1)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* -1 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (* -1 (* (pow a2 2) (cos th)))))
#s(approx (* (neg a2) a2) #s(hole binary64 (* -1 (pow a2 2))))
#s(approx (neg a2) #s(hole binary64 (* -1 a2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (+ (* -1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (+ (* -1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (+ (* 1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (* -1 (pow a2 2))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (+ (* -1 (pow a2 2)) (* 1/2 (* (pow a2 2) (pow th 2))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (+ (* -1 (pow a2 2)) (* (pow th 2) (+ (* -1/24 (* (pow a2 2) (pow th 2))) (* 1/2 (pow a2 2)))))))
#s(approx (* (cos th) (* (neg a2) a2)) #s(hole binary64 (+ (* -1 (pow a2 2)) (* (pow th 2) (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/24 (pow a2 2)) (* 1/720 (* (pow a2 2) (pow th 2))))))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/24 (* (pow a1 2) (sqrt 2))))))))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (* 1/2 (* (pow a1 2) (pow th 2))))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))))
#s(approx (* (cos th) (* (neg a1) a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (* (pow th 2) (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/24 (pow a1 2)) (* 1/720 (* (pow a1 2) (pow th 2))))))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (* (pow th 2) (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2)))))) (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* 1/720 (/ (pow a1 2) (sqrt 2))) (* 1/720 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (* -1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (+ (* -1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/720 (* (pow a1 2) (sqrt 2))) (* 1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (* -1 (* (pow a1 2) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/2 (* (pow a1 2) (sqrt 2))))))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (* 1/720 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))))
#s(approx (/ (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))) (pow (sqrt 2) 2)))))

Outputs
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal -2 binary64))
(/.f64 (/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (fma.f64 (.f64 a1 a1) (cos.f64 th) (.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (.f64 (neg.f64 a1) a1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (neg.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1))))))
(fma.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (.f64 (neg.f64 a1) a1) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1)))
(fma.f64 (cos.f64 th) (.f64 (.f64 (neg.f64 a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1)))
(fma.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1)))
(-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))))
(-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (.f64 (neg.f64 a1) a1)) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (.f64 (neg.f64 a1) a1)))
(.f64 (.f64 (cos.f64 th) (neg.f64 a2)) a2)
(.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th))
(.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (*.f64 (cos.f64 th) a2) a2))
(.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2))
(neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(.f64 #s(literal -1 binary64) (.f64 a2 a2))
(.f64 (.f64 a2 a2) #s(literal -1 binary64))
(*.f64 (neg.f64 a2) a2)
(*.f64 a2 (neg.f64 a2))
(neg.f64 (*.f64 a2 a2))
(*.f64 #s(literal -1 binary64) a2)
(*.f64 a2 #s(literal -1 binary64))
(neg.f64 a2)
a2
(neg.f64 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
(exp.f64 (/.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1))
(.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))
(neg.f64 (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 th) (neg.f64 a1)) a1)
(.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th))
(.f64 (.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (*.f64 a1 a1) (cos.f64 th)))
(.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))
(neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th)))
(.f64 #s(literal -1 binary64) (.f64 a1 a1))
(.f64 (.f64 a1 a1) #s(literal -1 binary64))
(*.f64 (neg.f64 a1) a1)
(*.f64 a1 (neg.f64 a1))
(neg.f64 (*.f64 a1 a1))
(*.f64 #s(literal -1 binary64) a1)
(*.f64 a1 #s(literal -1 binary64))
(neg.f64 a1)
a1
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 a2) a2))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 a1) a1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 a1) a1))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (pow.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 th) a2) a2)
(.f64 (.f64 a2 a2) (cos.f64 th))
(.f64 (cos.f64 th) (.f64 a2 a2))
(.f64 a2 (.f64 (cos.f64 th) a2))
(*.f64 (cos.f64 th) a2)
(*.f64 a2 (cos.f64 th))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2)
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))
(.f64 a2 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2))
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2)
(.f64 a2 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 a1 (/.f64 a1 a2)) (.f64 a2 a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 a2 a2) a2))
(/.f64 (fma.f64 (.f64 (/.f64 a1 a2) a1) (.f64 a2 a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 a2 a2) a2))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (.f64 a2 a2) (.f64 (.f64 (neg.f64 a2) a2) (.f64 a2 a2))) (.f64 (.f64 (neg.f64 a2) a2) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 a1 a1) (.f64 a2 a2) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (.f64 (.f64 a2 a2) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 a1 (/.f64 a1 a2)) #s(literal 2 binary64) (.f64 a2 #s(literal 2 binary64))) (*.f64 a2 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (/.f64 a1 a2) a1) #s(literal 2 binary64) (.f64 a2 #s(literal 2 binary64))) (*.f64 a2 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) #s(literal 2 binary64) (.f64 (.f64 (neg.f64 a2) a2) #s(literal 2 binary64))) (.f64 (*.f64 (neg.f64 a2) a2) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 a1 a1) #s(literal 2 binary64) (.f64 (.f64 a2 a2) #s(literal 2 binary64))) (.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) a2 (.f64 #s(literal 2 binary64) (.f64 a1 (/.f64 a1 a2)))) (*.f64 #s(literal 2 binary64) a2))
(/.f64 (fma.f64 #s(literal 2 binary64) a2 (.f64 #s(literal 2 binary64) (.f64 (/.f64 a1 a2) a1))) (*.f64 #s(literal 2 binary64) a2))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (neg.f64 a2) a2) (.f64 #s(literal 2 binary64) (.f64 (neg.f64 a1) a1))) (.f64 #s(literal 2 binary64) (*.f64 (neg.f64 a2) a2)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 a2 a2) (.f64 #s(literal 2 binary64) (.f64 a1 a1))) (.f64 #s(literal 2 binary64) (*.f64 a2 a2)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (neg.f64 a2) a2))
(/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 (/.f64 a1 a2))) (neg.f64 (neg.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a1 a2))) (neg.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a1 a2))) (fabs.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a1 a2) #s(literal 1 binary64))
(fma.f64 (neg.f64 (/.f64 a1 a2)) (neg.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a1 a2)) (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(+.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (neg.f64 a1) (neg.f64 a2))
(/.f64 a1 a2)
#s(literal 1 binary64)
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64) (.f64 #s(literal -2 binary64) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) a1)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal -2 binary64))
(/.f64 (/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (fma.f64 (.f64 a1 a1) (cos.f64 th) (.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 th) a2) (.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 (neg.f64 a1) a1) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a2) a2) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (.f64 (neg.f64 a1) a1)))
(+.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (neg.f64 a1) a1))
(.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))
#s(literal -2 binary64)
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (.f64 (.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (cos th) (* (neg a1) a1)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))
#s(approx (* (neg a1) a1) (*.f64 (neg.f64 a1) a1))
#s(approx (neg a1) (neg.f64 a1))
#s(approx a1 a1)
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx (/ a1 a2) (/.f64 a1 a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2)))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (.f64 (.f64 (neg.f64 a1) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (.f64 (.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))) (.f64 a1 a1)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (fma.f64 a2 (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (.f64 (+.f64 (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (.f64 (neg.f64 a1) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (*.f64 a1 a1)))
#s(approx (* (cos th) (* (neg a2) a2)) (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)))
#s(approx (* (neg a2) a2) (*.f64 (neg.f64 a2) a2))
#s(approx (neg a2) (neg.f64 a2))
#s(approx a2 a2)
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a2) a2) (.f64 (.f64 (cos.f64 th) a2) a2))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (.f64 a2 a2))) (.f64 a2 a2)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (+.f64 (/.f64 (.f64 (.f64 (neg.f64 a1) a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (.f64 a2 a2)) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (*.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (neg.f64 a2) (+.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))))) (.f64 th th) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))))) (.f64 th th) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) #s(literal 1/2 binary64))) (*.f64 th th))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (.f64 #s(literal 1/24 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th))) (.f64 th th))))
#s(approx (+ (* (* (cos th) (* (neg a2) a2)) (neg (sqrt 2))) (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1)))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (.f64 #s(literal -1/720 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th))) (.f64 th th))) (.f64 th th))))
#s(approx (* (cos th) (* (neg a2) a2)) (*.f64 (neg.f64 a2) a2))
#s(approx (* (cos th) (* (neg a2) a2)) (fma.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (.f64 th th) (.f64 (neg.f64 a2) a2)))
#s(approx (* (cos th) (* (neg a2) a2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 (.f64 a2 a2) #s(literal 1/2 binary64))) (.f64 th th) (*.f64 (neg.f64 a2) a2)))
#s(approx (* (cos th) (* (neg a2) a2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal -1/24 binary64) (.f64 a2 a2))) (.f64 th th) (.f64 (.f64 a2 a2) #s(literal 1/2 binary64))) (.f64 th th) (.f64 (neg.f64 a2) a2)))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (fma.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal -1/2 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (fma.f64 (.f64 th th) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal 1/24 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (neg (sqrt 2)) (* (cos th) (* (neg a1) a1))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal -1/720 binary64))) (.f64 th th))) (.f64 th th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (* (neg a1) a1)) (*.f64 (neg.f64 a1) a1))
#s(approx (* (cos th) (* (neg a1) a1)) (fma.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 th th) (.f64 (neg.f64 a1) a1)))
#s(approx (* (cos th) (* (neg a1) a1)) (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 (.f64 a1 a1) #s(literal 1/2 binary64))) (.f64 th th) (*.f64 (neg.f64 a1) a1)))
#s(approx (* (cos th) (* (neg a1) a1)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal -1/24 binary64) (.f64 a1 a1))) (.f64 th th) (.f64 (.f64 a1 a1) #s(literal 1/2 binary64))) (.f64 th th) (.f64 (neg.f64 a1) a1)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a2) a2) (*.f64 a2 a2))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2)))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 th th) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a2 a2))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (.f64 th th) (.f64 a2 a2)))
#s(approx (* (cos th) a2) a2)
#s(approx (* (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (.f64 (.f64 th th) a2) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) a2)) (.f64 th th) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a2)) (.f64 #s(literal -1/2 binary64) a2)) (.f64 th th) a2))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (fma.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+.f64 (neg.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (.f64 (.f64 #s(literal -1/24 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)))) (.f64 th th) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (fma.f64 (+.f64 (neg.f64 (.f64 #s(literal -1/24 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (.f64 (.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)))) (.f64 th th) (neg.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 th th) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (.f64 th th) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/24 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th))) (*.f64 th th))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 (.f64 #s(literal 1/720 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th))) (.f64 th th))) (*.f64 th th))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (fma.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal -1/24 binary64))) (.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt 2) (* (cos th) (* (neg a1) a1))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/24 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal 1/720 binary64))) (.f64 th th) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (/.f64 (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2)))) #s(literal 2 binary64))))

eval58.0ms (1.1%)

Memory: 24.1MiB live, 116.2MiB allocated; 7ms collecting garbage
Compiler: Compiled 6 594 to 2 146 computations (67.5% saved)

prune34.0ms (0.7%)

Memory

14.5MiB live, 67.7MiB allocated; 5ms collecting garbage

Pruning

34 alts after pruning (32 fresh and 2 done)

	Pruned	Kept	Total
New	507	29	536
Fresh	5	3	8
Picked	3	2	5
Done	0	0	0
Total	515	34	549

Accuracy

100.0%

Counts

549 → 34

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.7%	(/.f64 (fma.f64 #s(approx (* (cos th) (* (neg a2) a2)) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
	66.6%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	66.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
	14.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	66.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	28.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
	66.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
▶	12.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
✓	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	60.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
▶	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	27.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
▶	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
▶	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
✓	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	62.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	60.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	66.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
▶	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) a2))
	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	66.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
	44.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))

Compiler

Compiled 1 819 to 1 502 computations (17.4% saved)

series43.0ms (0.8%)

Memory

-18.2MiB live, 75.2MiB allocated; 6ms collecting garbage

Counts

36 → 142

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
(.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2)
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2)
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(/.f64 (cos.f64 th) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(cos.f64 th)
th
(*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))
(.f64 (.f64 a2 a2) (*.f64 a2 a2))
(*.f64 a2 a2)
(.f64 (.f64 a1 a1) (*.f64 a1 a1))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (+ (/ a2 (sqrt 2)) (/ (pow a1 2) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (+ a2 (/ (pow a1 2) a2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a2 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (pow a2 4)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (+ (* -1 (pow a1 4)) (pow a2 4))))
#s(approx (* (* a1 a1) (* a1 a1)) #s(hole binary64 (pow a1 4)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (pow a2 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (* a2 (sqrt 2)))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (* a2 (sqrt 2))) (/ a2 (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (pow a1 2) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* (pow a1 2) (+ (/ 1 a2) (/ a2 (pow a1 2))))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a1 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* -1 (pow a1 4))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a1 4) (- (/ (pow a2 4) (pow a1 4)) 1))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (- (/ (pow a2 2) (pow a1 2)) 1))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) a2)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (* (* a2 a2) (* a2 a2)) #s(hole binary64 (pow a2 4)))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (- (pow a2 2) (pow a1 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* a2 (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* a2 (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a2 4) (+ 1 (* -1 (/ (pow a1 4) (pow a2 4)))))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (* -1 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (/ 1 (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (pow a2 2))) 1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))

Calls

9 calls:

Time	Variable		Point	Expression
6.0ms	a1	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (cos th) th (* (sqrt (sqrt 2)) (sqrt (sqrt 2))) (sqrt (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (* (* a2 a2) (* a2 a2)) (* a2 a2) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)))
6.0ms	a2	@	-inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (cos th) th (* (sqrt (sqrt 2)) (sqrt (sqrt 2))) (sqrt (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (* (* a2 a2) (* a2 a2)) (* a2 a2) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)))
5.0ms	a1	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (cos th) th (* (sqrt (sqrt 2)) (sqrt (sqrt 2))) (sqrt (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (* (* a2 a2) (* a2 a2)) (* a2 a2) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)))
5.0ms	a2	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (cos th) th (* (sqrt (sqrt 2)) (sqrt (sqrt 2))) (sqrt (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (* (* a2 a2) (* a2 a2)) (* a2 a2) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)))
5.0ms	a2	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (cos th) th (* (sqrt (sqrt 2)) (sqrt (sqrt 2))) (sqrt (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (* (* a2 a2) (* a2 a2)) (* a2 a2) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)))

rewrite239.0ms (4.6%)

Memory

1.6MiB live, 188.2MiB allocated; 45ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	439	5340
0	491	4366
1	2334	4239
0	8116	4103

Stop Event

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

Counts

178 → 522

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
(.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2)
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2)
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(/.f64 (cos.f64 th) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(cos.f64 th)
th
(*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))
(.f64 (.f64 a2 a2) (*.f64 a2 a2))
(*.f64 a2 a2)
(.f64 (.f64 a1 a1) (*.f64 a1 a1))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (+ (/ a2 (sqrt 2)) (/ (pow a1 2) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (+ a2 (/ (pow a1 2) a2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a2 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (pow a2 4)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (+ (* -1 (pow a1 4)) (pow a2 4))))
#s(approx (* (* a1 a1) (* a1 a1)) #s(hole binary64 (pow a1 4)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (pow a2 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (* a2 (sqrt 2)))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (* a2 (sqrt 2))) (/ a2 (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (pow a1 2) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* (pow a1 2) (+ (/ 1 a2) (/ a2 (pow a1 2))))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a1 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* -1 (pow a1 4))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a1 4) (- (/ (pow a2 4) (pow a1 4)) 1))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (- (/ (pow a2 2) (pow a1 2)) 1))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) a2)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (* (* a2 a2) (* a2 a2)) #s(hole binary64 (pow a2 4)))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (- (pow a2 2) (pow a1 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* a2 (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* a2 (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a2 4) (+ 1 (* -1 (/ (pow a1 4) (pow a2 4)))))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (* -1 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (/ 1 (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (pow a2 2))) 1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a1 2) (pow a2 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2)
(.f64 a2 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 (/.f64 (.f64 a2 (cos.f64 th)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 a2 (cos.f64 th)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 a2 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 a2 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2)
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2))
(.f64 a2 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 a2 (cos.f64 th)) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 a2 (cos.f64 th)) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 a2 (cos.f64 th)) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (cos.f64 th) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (cos.f64 th)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (cos.f64 th)) (.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (neg.f64 (cos.f64 th))) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (cos.f64 th)) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (neg.f64 (cos.f64 th))) (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (cos.f64 th)) (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)))) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)))) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2)))))))
(/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2)))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64))))))
(/.f64 (.f64 (cos.f64 th) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(/.f64 (.f64 (cos.f64 th) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2)))))))
(/.f64 (.f64 (cos.f64 th) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (.f64 a1 a1)))) (neg.f64 (neg.f64 (.f64 a2 a2))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64))))))
(/.f64 (fma.f64 (.f64 a1 (/.f64 a1 a2)) (.f64 a2 a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 a2 a2) a2))
(/.f64 (fma.f64 (.f64 (/.f64 a1 a2) a1) (.f64 a2 a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 a2 a2) a2))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2) (.f64 (neg.f64 (.f64 a2 a2)) (.f64 a2 a2))) (.f64 (neg.f64 (.f64 a2 a2)) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 a1 a1) (.f64 a2 a2) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (.f64 (.f64 (.f64 a2 a2) a2) a2))
(/.f64 (fma.f64 (.f64 a1 (/.f64 a1 a2)) #s(literal 2 binary64) (.f64 a2 #s(literal 2 binary64))) (*.f64 a2 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (/.f64 a1 a2) a1) #s(literal 2 binary64) (.f64 a2 #s(literal 2 binary64))) (*.f64 a2 #s(literal 2 binary64)))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) #s(literal 2 binary64) (.f64 (neg.f64 (.f64 a2 a2)) #s(literal 2 binary64))) (.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 a1 a1) #s(literal 2 binary64) (.f64 (.f64 a2 a2) #s(literal 2 binary64))) (.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) a2 (.f64 #s(literal 2 binary64) (.f64 a1 (/.f64 a1 a2)))) (*.f64 #s(literal 2 binary64) a2))
(/.f64 (fma.f64 #s(literal 2 binary64) a2 (.f64 #s(literal 2 binary64) (.f64 (/.f64 a1 a2) a1))) (*.f64 #s(literal 2 binary64) a2))
(/.f64 (fma.f64 #s(literal 2 binary64) (neg.f64 (.f64 a2 a2)) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a1 a1)))) (.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a2 a2))))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 a2 a2) (.f64 #s(literal 2 binary64) (.f64 a1 a1))) (.f64 #s(literal 2 binary64) (*.f64 a2 a2)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (.f64 a1 a1))) (neg.f64 (.f64 a2 a2)))
(/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 a2 a2))
(fma.f64 (/.f64 (neg.f64 a1) (fabs.f64 a2)) (/.f64 (neg.f64 a1) (fabs.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a1) (neg.f64 a2)) (/.f64 (fabs.f64 a1) (neg.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a1) a2) (/.f64 (neg.f64 a1) a2) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a1) a2) (/.f64 (fabs.f64 a1) a2) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 (neg.f64 a2)) (/.f64 a1 (neg.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 (fabs.f64 a2)) (/.f64 a1 (fabs.f64 a2)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (neg.f64 (/.f64 a1 a2))) (neg.f64 (neg.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a1 a2))) (neg.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a1 a2))) (fabs.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a1 a2) #s(literal 1 binary64))
(fma.f64 (neg.f64 (/.f64 a1 a2)) (neg.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a1 a2)) (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 a2 a2)) (/.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 a2 a2)))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))) (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(-.f64 (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 a1) a1) (.f64 a2 a2)))
(+.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a2)))
(/.f64 (neg.f64 a1) (neg.f64 a2))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(/.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (neg.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (sqrt.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (pow.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))
(fabs.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fabs.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
(.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2)
(.f64 a2 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 a2 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 a2 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (neg.f64 a2)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) a2) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (neg.f64 a2)) (.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) a2) (.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (neg.f64 a2)) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) a2) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (neg.f64 a2)) (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) a2) (.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (.f64 a1 a1) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(fma.f64 a2 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 (/.f64 (.f64 a1 a1) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 (.f64 a1 a1) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(+.f64 (.f64 a2 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 (/.f64 (.f64 a1 a1) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2)
(*.f64 a2 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) a2 (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) a2))
(fma.f64 a2 #s(literal 1 binary64) (.f64 a2 (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))
(+.f64 (.f64 #s(literal 1 binary64) a2) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) a2))
(+.f64 (.f64 a2 #s(literal 1 binary64)) (.f64 a2 (/.f64 (.f64 a1 a1) (.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 (+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a1) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (neg.f64 a1) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a1) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (fabs.f64 a1) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a1) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (fabs.f64 a1) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a1 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 a1 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a1 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a1 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a2) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (neg.f64 a2) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a2) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (fabs.f64 a2) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a2) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (fabs.f64 a2) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 a2 (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (+.f64 a2 a1)) (/.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (-.f64 a2 a1)))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (neg.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (-.f64 (.f64 a1 a1) (.f64 a2 a2))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (pow.f64 a1 #s(literal 8 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (*.f64 a1 a1) a1) a1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 12 binary64)) (pow.f64 a1 #s(literal 12 binary64)))) (neg.f64 (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 4 binary64))))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (pow.f64 a1 #s(literal 8 binary64))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (*.f64 a1 a1) a1) a1)))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 12 binary64)) (pow.f64 a1 #s(literal 12 binary64))) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 4 binary64)))))
(fma.f64 (neg.f64 (neg.f64 (.f64 a2 a2))) (neg.f64 (neg.f64 (.f64 a2 a2))) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a2 a2)) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 (.f64 a2 a2) (.f64 a2 a2) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 a2 (.f64 (.f64 a2 a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 a2 #s(literal 8 binary64)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (/.f64 (pow.f64 a1 #s(literal 8 binary64)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (.f64 a1 a1) a1) a1))))
(-.f64 (/.f64 (pow.f64 a2 #s(literal 12 binary64)) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (.f64 a2 a1) #s(literal 4 binary64))))) (/.f64 (pow.f64 a1 #s(literal 12 binary64)) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (.f64 a2 a1) #s(literal 4 binary64))))))
(-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1))
(+.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)))
(.f64 (neg.f64 (neg.f64 (.f64 a2 a2))) (neg.f64 (neg.f64 (*.f64 a2 a2))))
(.f64 (.f64 (*.f64 a2 a2) a2) a2)
(.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (*.f64 a2 a2)))
(.f64 (.f64 a2 a2) (*.f64 a2 a2))
(.f64 a2 (.f64 (*.f64 a2 a2) a2))
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 4 binary64))
(pow.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 4 binary64))
(fabs.f64 (.f64 (.f64 (*.f64 a2 a2) a2) a2))
(exp.f64 (fma.f64 (log.f64 a2) #s(literal 2 binary64) (*.f64 (log.f64 a2) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 a2 a2)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 4 binary64))))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 (*.f64 a2 a2) a2) a2))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
(.f64 (neg.f64 (neg.f64 (.f64 a1 a1))) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(.f64 (.f64 (*.f64 a1 a1) a1) a1)
(.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (*.f64 a1 a1)))
(.f64 (.f64 a1 a1) (*.f64 a1 a1))
(.f64 a1 (.f64 (*.f64 a1 a1) a1))
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 4 binary64))
(pow.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 4 binary64))
(fabs.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))
(exp.f64 (fma.f64 (log.f64 a1) #s(literal 2 binary64) (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 a1 a1)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 4 binary64))))
(*.f64 (+.f64 a2 a1) (-.f64 a2 a1))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 a2 a2 (.f64 a1 a1)))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 (neg.f64 a1) a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 (neg.f64 a1) a1))
(fma.f64 a2 a2 (*.f64 (neg.f64 a1) a1))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (fma.f64 a2 a2 (.f64 a1 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (fma.f64 a2 a2 (.f64 a1 a1))))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
(+.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(.f64 (/.f64 (cos.f64 th) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (cos.f64 th) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
(.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 a2 a2) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (fma.f64 a2 (cos.f64 th) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (*.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx (/ a1 a2) (/.f64 a1 a2))
#s(approx a1 a1)
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (fma.f64 a2 (cos.f64 th) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (+.f64 (/.f64 (*.f64 a1 a1) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2)
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+.f64 (/.f64 (*.f64 a1 a1) a2) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (*.f64 a2 a2) a2) a2))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))))
#s(approx (* (* a1 a1) (* a1 a1)) (.f64 (.f64 (*.f64 a1 a1) a1) a1))
#s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (- (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (neg.f64 (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 (cos.f64 th) a1) (/.f64 (cos.f64 th) a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (.f64 (/.f64 (+.f64 (/.f64 (cos.f64 th) (.f64 a2 a2)) (/.f64 (cos.f64 th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 (cos.f64 th) a1) (/.f64 (cos.f64 th) a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 1 binary64)) (.f64 (.f64 (.f64 a1 a1) a1) a1)))
#s(approx (- (* a2 a2) (* a1 a1)) (neg.f64 (*.f64 a1 a1)))
#s(approx (- (* a2 a2) (* a1 a1)) (.f64 (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) (*.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx a2 a2)
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) a2))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) a2))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
#s(approx (* (* a2 a2) (* a2 a2)) (.f64 (.f64 (*.f64 a2 a2) a2) a2))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (- (* a2 a2) (* a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (+.f64 (neg.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) #s(literal 1 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) a2)))
#s(approx (- (* a2 a2) (* a1 a1)) (.f64 (+.f64 (neg.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2))) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (neg.f64 (.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (*.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (neg.f64 (.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 (*.f64 a1 a1) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (neg.f64 (.f64 (-.f64 (/.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2))) #s(literal 1 binary64)) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (.f64 #s(literal 1/24 binary64) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (fma.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (fma.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 #s(literal -1/720 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (.f64 #s(literal 1/24 binary64) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 #s(literal 1/24 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (fma.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (fma.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 a2 a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 a2 a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))

eval77.0ms (1.5%)

Memory: 7.4MiB live, 104.8MiB allocated; 11ms collecting garbage
Compiler: Compiled 7 912 to 3 232 computations (59.2% saved)

prune73.0ms (1.4%)

Memory

-12.2MiB live, 82.2MiB allocated; 3ms collecting garbage

Pruning

44 alts after pruning (40 fresh and 4 done)

	Pruned	Kept	Total
New	614	22	636
Fresh	9	18	27
Picked	3	2	5
Done	0	2	2
Total	626	44	670

Accuracy

100.0%

Counts

670 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.7%	(/.f64 (fma.f64 #s(approx (* (cos th) (* (neg a2) a2)) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
▶	66.6%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
▶	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	66.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
	14.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	66.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	66.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
	28.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
	12.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	12.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
✓	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	60.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	16.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
✓	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	60.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
▶	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	62.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	60.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
	60.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	66.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
	3.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	56.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1)))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
▶	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
	39.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) a2))
	40.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
	44.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))

Compiler

Compiled 2 545 to 2 026 computations (20.4% saved)

series62.0ms (1.2%)

Memory

22.6MiB live, 69.6MiB allocated; 2ms collecting garbage

Counts

32 → 126

Calls

Call 1

Inputs
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))
#s(literal 1 binary64)
(/.f64 #s(literal 1 binary64) (*.f64 a1 a1))
(*.f64 a1 a1)
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
(.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(literal -1 binary64)
(.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)

Outputs
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (+ (/ a2 (sqrt 2)) (/ (pow a1 2) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (+ a2 (/ (pow a1 2) a2))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (/ 1 (/ 1 (* a1 a1))) #s(hole binary64 (pow a1 2)))
#s(approx (/ 1 (* a1 a1)) #s(hole binary64 (/ 1 (pow a1 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* -1 (* (pow a2 2) (sqrt 2)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2))))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (sqrt 2))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (* a2 (sqrt 2)))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (* a2 (sqrt 2))) (/ a2 (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (pow a1 2) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* (pow a1 2) (+ (/ 1 a2) (/ a2 (pow a1 2))))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* -1 (* (pow a1 2) (sqrt 2)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) a2)))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* a2 (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* a2 (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a1 2) (sqrt 2)) (pow a2 2)))))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (/ 1 (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (pow a2 2))) 1)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (* (pow th 2) (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2)))))) (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* 1/720 (/ (pow a1 2) (sqrt 2))) (* 1/720 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (* -1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (+ (* -1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/720 (* (pow a1 2) (sqrt 2))) (* 1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))) (pow (sqrt 2) 2)))))

Calls

9 calls:

Time	Variable		Point	Expression
24.0ms	a2	@	inf	((* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (/ 1 (/ 1 (* a1 a1))) 1 (/ 1 (* a1 a1)) (* a1 a1) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (neg (sqrt 2))) (neg (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (/ (cos th) (sqrt 2)) a2))
5.0ms	th	@	inf	((* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (/ 1 (/ 1 (* a1 a1))) 1 (/ 1 (* a1 a1)) (* a1 a1) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (neg (sqrt 2))) (neg (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (/ (cos th) (sqrt 2)) a2))
5.0ms	th	@	-inf	((* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (/ 1 (/ 1 (* a1 a1))) 1 (/ 1 (* a1 a1)) (* a1 a1) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (neg (sqrt 2))) (neg (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (/ (cos th) (sqrt 2)) a2))
5.0ms	a2	@	-inf	((* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (/ 1 (/ 1 (* a1 a1))) 1 (/ 1 (* a1 a1)) (* a1 a1) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (neg (sqrt 2))) (neg (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (/ (cos th) (sqrt 2)) a2))
4.0ms	a2	@	0	((* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (/ 1 (/ 1 (* a1 a1))) 1 (/ 1 (* a1 a1)) (* a1 a1) (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (* (sqrt 2) (neg (sqrt 2))) (neg (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (/ (cos th) (sqrt 2)) a2))

rewrite189.0ms (3.6%)

Memory

-7.9MiB live, 177.1MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	505	4816
0	544	4116
1	3076	4098
0	8355	4002

Stop Event

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

Counts

158 → 388

Calls

Call 1

Inputs
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))
#s(literal 1 binary64)
(/.f64 #s(literal 1 binary64) (*.f64 a1 a1))
(*.f64 a1 a1)
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
(.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(literal -1 binary64)
(.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (/ (* a2 (cos th)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (+ (/ a2 (sqrt 2)) (/ (pow a1 2) (* a2 (sqrt 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (+ a2 (/ (pow a1 2) a2))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (/ 1 (/ 1 (* a1 a1))) #s(hole binary64 (pow a1 2)))
#s(approx (/ 1 (* a1 a1)) #s(hole binary64 (/ 1 (pow a1 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* -1 (* (pow a2 2) (sqrt 2)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2))))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (sqrt 2))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (* a2 (sqrt 2))) (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (* a2 (sqrt 2)))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (* a2 (sqrt 2))) (/ a2 (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (pow a1 2) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* (pow a1 2) (+ (/ 1 a2) (/ a2 (pow a1 2))))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* -1 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* -1 (* (pow a1 2) (sqrt 2)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) a2)))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* a2 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* a2 (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* a2 (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (* (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a1 2) (sqrt 2)) (pow a2 2)))))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (/ 1 (sqrt 2)))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) #s(hole binary64 (* -1 (* a2 (- (* -1 (/ (pow a1 2) (pow a2 2))) 1)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* 1/24 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (* (pow th 2) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))) (* 1/24 (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2))))))) (/ (* a2 (+ 1 (/ (pow a1 2) (pow a2 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (* (pow th 2) (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2)))))) (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2)))) (pow (sqrt 2) 2))) (* (pow th 2) (+ (* -1 (+ (* 1/2 (/ (pow a1 2) (sqrt 2))) (* 1/2 (/ (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* -1 (* (pow th 2) (+ (* 1/720 (/ (pow a1 2) (sqrt 2))) (* 1/720 (/ (pow a2 2) (sqrt 2)))))) (* -1 (+ (* -1/24 (/ (pow a1 2) (sqrt 2))) (* -1/24 (/ (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (* -1 (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (* -1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(hole binary64 (+ (* -1 (* (pow a1 2) (sqrt 2))) (+ (* -1 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (+ (* 1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/24 (* (pow a1 2) (sqrt 2))) (+ (* -1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/720 (* (pow a1 2) (sqrt 2))) (* 1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) #s(hole binary64 (/ (* (pow a2 2) (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(hole binary64 (/ (* a2 (* (cos th) (+ 1 (/ (pow a1 2) (pow a2 2))))) (sqrt 2))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) #s(hole binary64 (* -1 (/ (+ (* -1 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* -1 (* (pow a2 2) (* (cos th) (sqrt 2))))) (pow (sqrt 2) 2)))))

Outputs
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (cos.f64 th)) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (cos.f64 th)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (neg.f64 (cos.f64 th))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (cos.f64 th)) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (neg.f64 (cos.f64 th))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (cos.f64 th)) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 (cos.f64 th) a2) a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 (cos.f64 th) a2) a2)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 a1 a1) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) (.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 a1 a1) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (*.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 a2 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
(exp.f64 (/.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(literal 2 binary64)
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 #s(literal 1 binary64) (.f64 a1 a1) (.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (.f64 a1 a1) (.f64 (neg.f64 a2) a2))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
a1
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (pow.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
(.f64 a2 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a2 a2)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 a1) a1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 a1) a1))) #s(literal -2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 #s(literal 1 binary64) (.f64 a1 a1) (.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (.f64 a1 a1) (.f64 (neg.f64 a2) a2))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(.f64 #s(literal 1 binary64) (.f64 a1 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (pow.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) #s(literal -1 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1)))))
(/.f64 #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 a1 a1))))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (+.f64 #s(literal 0 binary64) (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(literal 1 binary64)
(*.f64 (pow.f64 (fabs.f64 a1) #s(literal -1 binary64)) (pow.f64 (fabs.f64 a1) #s(literal -1 binary64)))
(*.f64 (pow.f64 (neg.f64 a1) #s(literal -1 binary64)) (pow.f64 (neg.f64 a1) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) a1) (/.f64 #s(literal 1 binary64) a1))
(.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 a1 a1)))
(pow.f64 (pow.f64 a1 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) #s(literal 1 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal -1 binary64))
(pow.f64 a1 #s(literal -2 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) a1) a1)
(/.f64 #s(literal -1 binary64) (*.f64 (neg.f64 a1) a1))
(/.f64 #s(literal 1 binary64) (*.f64 a1 a1))
(exp.f64 (-.f64 #s(literal 0 binary64) (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(exp.f64 (neg.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 a1) #s(literal 2 binary64)) #s(literal -1 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 a1 a1)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 a1) #s(literal -2 binary64)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(.f64 #s(literal 1 binary64) (.f64 a1 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (pow.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) #s(literal -1 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(/.f64 #s(literal -2 binary64) (.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1)))))
(/.f64 #s(literal -1 binary64) (.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))
(/.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 a1 a1))))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (+.f64 #s(literal 0 binary64) (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
(/.f64 (/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))) #s(literal 2 binary64))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal -2 binary64))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
(.f64 (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (neg.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))))) (fma.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))))
(neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 #s(literal -1 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 #s(literal -1 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(literal -1 binary64) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1 binary64) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(literal -1 binary64)
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (fma.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(literal -2 binary64)
(*.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))
(neg.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(.f64 a2 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx a1 a1)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2 (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (+.f64 (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2)
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (+.f64 (/.f64 (*.f64 a1 a1) a2) a2))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ 1 (* a1 a1))) (*.f64 a1 a1))
#s(approx (/ 1 (* a1 a1)) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))
#s(approx (/ 1 (/ 1 (* a1 a1))) (*.f64 a1 a1))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 (.f64 (cos.f64 th) a2) (.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (fma.f64 a2 (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) (*.f64 a1 a1)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (+.f64 (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (.f64 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (neg.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (*.f64 a1 a1)))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (.f64 (+.f64 (/.f64 (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (fma.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) a2))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) a2))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (+.f64 (/.f64 (.f64 a1 a1) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2))
#s(approx (/ (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (sqrt 2)) (.f64 (+.f64 (/.f64 (.f64 a1 a1) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (/ 1 (/ 1 (* a1 a1)))) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (+.f64 (/.f64 (neg.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 a1 a1))) (.f64 a2 a2)) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (*.f64 a2 a2)))
#s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (.f64 (+.f64 (/.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (sqrt 2) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (fma.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (neg.f64 (.f64 (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) a2)))
#s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (.f64 a1 a1) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2))) #s(literal 1 binary64)) a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (.f64 (fma.f64 (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (.f64 th th) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (neg.f64 (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (+.f64 (neg.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (neg.f64 (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (.f64 (.f64 #s(literal -1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)))) (.f64 th th) (neg.f64 (/.f64 (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (fma.f64 (fma.f64 (+.f64 (neg.f64 (.f64 #s(literal -1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (.f64 (.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)))) (.f64 th th) (neg.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 th th) (neg.f64 (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/24 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))))
#s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (fma.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/720 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (fma.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (fma.f64 (fma.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (fma.f64 (fma.f64 (/.f64 (-.f64 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (.f64 #s(literal -1/24 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (fma.f64 (/.f64 (.f64 (.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) a2) (/.f64 (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (neg.f64 (/.f64 (fma.f64 (.f64 (cos.f64 th) a2) (.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1)))) #s(literal 2 binary64))))

eval53.0ms (1%)

Memory: -5.7MiB live, 92.8MiB allocated; 10ms collecting garbage
Compiler: Compiled 5 287 to 1 733 computations (67.2% saved)

prune50.0ms (1%)

Memory

4.2MiB live, 97.6MiB allocated; 5ms collecting garbage

Pruning

50 alts after pruning (43 fresh and 7 done)

	Pruned	Kept	Total
New	424	18	442
Fresh	10	25	35
Picked	2	3	5
Done	0	4	4
Total	436	50	486

Accuracy

100.0%

Counts

486 → 50

Alt Table

Click to see full alt table

Status	Accuracy	Program
	66.3%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (.f64 a2 a2))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
	66.5%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 a2 a2))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
	64.6%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (exp.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
	66.2%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
	13.2%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
	14.7%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a1 a1)))
	62.6%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	60.7%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	66.7%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	99.6%	(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	66.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
	14.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	66.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	28.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (pow.f64 a1 #s(literal -2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
✓	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) a1) (/.f64 #s(literal 1 binary64) a1)))) (sqrt.f64 #s(literal 2 binary64))))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
	12.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
✓	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	60.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	16.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
	99.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
✓	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	60.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
✓	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
	60.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	14.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
	66.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
	56.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1)))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
	66.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))
✓	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
	13.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
	39.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) a2))
	40.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
	44.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))

Compiler

Compiled 2 476 to 1 594 computations (35.6% saved)

regimes215.0ms (4.1%)

Memory

4.0MiB live, 337.6MiB allocated; 93ms collecting garbage

Counts

83 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) a1) (/.f64 #s(literal 1 binary64) a1)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1)))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (pow.f64 a1 #s(literal -2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 a2 a2))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (.f64 a2 a2))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (exp.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (fma.f64 #s(approx (* (cos th) (* (neg a2) a2)) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (cos.f64 th) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))) (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))))

Outputs

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))

Calls

8 calls:

60.0ms	th
25.0ms	a1
23.0ms	(cos.f64 th)
23.0ms	(*.f64 a2 a2)
21.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
99.6%	1	`(*.f64 a2 a2)`
99.6%	1	`(*.f64 a1 a1)`
99.6%	1	`(cos.f64 th)`
99.6%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.6%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
99.6%	1	`a1`
99.6%	1	`a2`
99.6%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes156.0ms (3%)

Memory

-3.6MiB live, 375.5MiB allocated; 17ms collecting garbage

Counts

76 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) a1) (/.f64 #s(literal 1 binary64) a1)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1)))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (pow.f64 a1 #s(literal -2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 a2 a2))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (.f64 a2 a2))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (exp.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (fma.f64 #s(approx (* (cos th) (* (neg a2) a2)) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))

Outputs
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Calls

8 calls:

22.0ms	a2
20.0ms	a1
20.0ms	th
19.0ms	(cos.f64 th)
18.0ms	(*.f64 a2 a2)

Results

Accuracy	Segments	Branch
99.6%	1	`(*.f64 a2 a2)`
99.6%	1	`(*.f64 a1 a1)`
99.6%	1	`(cos.f64 th)`
99.6%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.6%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
99.6%	1	`a1`
99.6%	1	`a2`
99.6%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes150.0ms (2.9%)

Memory

35.7MiB live, 323.3MiB allocated; 30ms collecting garbage

Counts

68 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) a1) (/.f64 #s(literal 1 binary64) a1)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1)))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (pow.f64 a1 #s(literal -2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 a2 a2))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (.f64 a2 a2))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (exp.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (/ 1 (/ 1 (* a1 a1)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (.f64 a1 a1) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))

Outputs

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))

Calls

8 calls:

22.0ms	a1
20.0ms	(*.f64 a2 a2)
19.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
19.0ms	(cos.f64 th)
18.0ms	th

Results

Accuracy	Segments	Branch
99.3%	1	`(*.f64 a2 a2)`
99.3%	1	`(*.f64 a1 a1)`
99.3%	1	`(cos.f64 th)`
99.3%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.3%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
99.3%	1	`a1`
99.3%	1	`a2`
99.3%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes229.0ms (4.4%)

Memory

-10.3MiB live, 261.0MiB allocated; 94ms collecting garbage

Counts

55 → 2

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) a2) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (* (sqrt (sqrt 2)) (sqrt (sqrt 2))))) (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) a1) (/.f64 #s(literal 1 binary64) a1)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1)))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 a2 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (pow.f64 a1 #s(literal -2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 a2 a2))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (.f64 a2 a2))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (.f64 #s(literal -1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (exp.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))

Outputs

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))

Calls

8 calls:

67.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
53.0ms	a1
36.0ms	a2
14.0ms	(*.f64 a2 a2)
14.0ms	th

Results

Accuracy	Segments	Branch
66.8%	1	`(*.f64 a2 a2)`
66.8%	1	`(*.f64 a1 a1)`
78.2%	2	`(cos.f64 th)`
78.2%	2	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
78.2%	2	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
66.8%	1	`a1`
66.8%	1	`a2`
66.8%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes7.0ms (0.1%)

Memory

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

Counts

24 → 2

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) #s(approx (* -1 (* (sqrt 2) (+ (* a1 a1) (* a2 a2)))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))

Outputs

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Calls

1 calls:

6.0ms

(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))

Results

Accuracy	Segments	Branch
78.2%	2	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`

Compiler

Compiled 16 to 12 computations (25% saved)

regimes54.0ms (1%)

Memory

-2.4MiB live, 44.7MiB allocated; 2ms collecting garbage

Counts

14 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) #s(approx (/ (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (sqrt 2)) (/.f64 (.f64 a1 a1) (.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) (/.f64 (*.f64 a1 a1) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (neg (sqrt 2))) (* (sqrt 2) (* (cos th) (* (neg a1) a1)))) (* (sqrt 2) (neg (sqrt 2)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))))) a2))

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Calls

8 calls:

26.0ms	th
4.0ms	a2
4.0ms	a1
4.0ms	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
4.0ms	(*.f64 a2 a2)

Results

Accuracy	Segments	Branch
66.8%	1	`(*.f64 a2 a2)`
66.8%	1	`(*.f64 a1 a1)`
66.8%	1	`a1`
66.8%	1	`a2`
66.8%	1	`th`
66.8%	1	`(cos.f64 th)`
66.8%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
66.8%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes15.0ms (0.3%)

Memory

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

Accuracy

Total -34.2b remaining (-159.3%)

Threshold costs -34.2b (-159.3%)

Counts

5 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))

Outputs

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ (cos th) (sqrt 2))) a2) (/.f64 #s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))

Calls

8 calls:

2.0ms	th
2.0ms	a2
2.0ms	a1
2.0ms	(*.f64 a2 a2)
2.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
66.4%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
66.4%	1	`(cos.f64 th)`
66.4%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
66.4%	1	`(*.f64 a2 a2)`
66.4%	1	`(*.f64 a1 a1)`
66.4%	1	`a1`
66.4%	1	`a2`
66.4%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

bsearch20.0ms (0.4%)

Memory

-51.6MiB live, 0.8MiB allocated; 12ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
19.0ms	-2.1969487088703555e-129	-6.702065350510819e-164

Compiler

Compiled 19 to 18 computations (5.3% 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.1969487088703555e-129	-6.702065350510819e-164

Compiler

Compiled 19 to 18 computations (5.3% saved)

derivations343.0ms (6.6%)

Memory

29.1MiB live, 270.9MiB allocated; 41ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 137 to 69 computations (49.6% saved)

preprocess123.0ms (2.4%)

Memory: -27.6MiB live, 257.0MiB allocated; 18ms collecting garbage
Remove: (abs th)
Compiler: Compiled 3 697 to 2 587 computations (30% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.4s (27.6%)

preprocess62.0ms (1.2%)

series26.0ms (0.5%)

rewrite182.0ms (3.5%)

eval18.0ms (0.4%)

prune25.0ms (0.5%)

series1.1s (20.4%)

rewrite200.0ms (3.8%)

eval58.0ms (1.1%)

prune34.0ms (0.7%)

series43.0ms (0.8%)

rewrite239.0ms (4.6%)

eval77.0ms (1.5%)

prune73.0ms (1.4%)

series62.0ms (1.2%)

rewrite189.0ms (3.6%)

eval53.0ms (1%)

prune50.0ms (1%)

regimes215.0ms (4.1%)

regimes156.0ms (3%)

regimes150.0ms (2.9%)

regimes229.0ms (4.4%)

regimes7.0ms (0.1%)

regimes54.0ms (1%)

regimes15.0ms (0.3%)

bsearch20.0ms (0.4%)

bsearch0.0ms (0%)

derivations343.0ms (6.6%)

preprocess123.0ms (2.4%)

end0.0ms (0%)

Profiling