Metrics for Migdal et al, Equation (64)

start0.0ms (0%)

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

analyze1.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.1s (22.6%)

Memory

14.2MiB live, 1 027.2MiB allocated; 867ms collecting garbage

Samples

890.0ms

8 256×

valid

Precisions

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

ival-mult!: 419.0ms (62.9% of total)

ival-cos: 192.0ms (28.8% of total)

ival-div!: 38.0ms (5.7% of total)

ival-add!: 16.0ms (2.4% of total)

adjust: 2.0ms (0.3% of total)

Bogosity

preprocess55.0ms (1.1%)

Memory

-5.2MiB live, 40.5MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	133
1	202	133
2	975	133
3	4767	133

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 32 to 24 computations (25% saved)

series19.0ms (0.4%)

Memory

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

Counts

12 → 32

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)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (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
3.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)

rewrite229.0ms (4.6%)

Memory

-2.1MiB live, 177.7MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	156	968
0	170	848
1	1175	810
0	8467	758
1	25526	758

Stop Event

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

Counts

44 → 193

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)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (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) (fma.f64 a1 a1 (*.f64 a2 a2))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #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 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (.f64 a1 a1) (cos.f64 th))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
(.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 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.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 a2 a2) (cos.f64 th)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (neg.f64 (cos.f64 th)) (.f64 a2 a2) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 a1 a1) (cos.f64 th))) (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 (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 a1 a1) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (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 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 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 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #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)) (.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 (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 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64))) (fma.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #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 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th))))))
(neg.f64 (-.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (/.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (/.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (fabs.f64 a1) (.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (fabs.f64 a2) (.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (neg.f64 a1) (.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (neg.f64 a2) (.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (cos.f64 th) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (neg.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))
(-.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (/.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fabs.f64 a1) (.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (neg.f64 a1) (.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.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 (cos.f64 th) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(.f64 (cos.f64 th) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal -1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(/.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 #s(literal 1 binary64) (/.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th))))
(/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(neg.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (neg.f64 (cos.f64 th)) (/.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) #s(literal -1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) #s(literal 1 binary64)) (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 #s(literal 1 binary64) (/.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (cos.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(/.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 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 th) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 th (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 th) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
th
(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 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 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 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(sqrt.f64 (.f64 (.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
a1
(.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(.f64 (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (/.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fabs.f64 a2) (.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (neg.f64 a2) (.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (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 (cos.f64 th) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(.f64 (cos.f64 th) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 a2 (.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal -1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(/.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 #s(literal 1 binary64) (/.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))))
(/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(sqrt.f64 (.f64 (.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 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 (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) (sqrt.f64 #s(literal 2 binary64))) a1))
#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 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
#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 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.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 (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) (fma.f64 a1 a1 (.f64 a2 a2))) (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 #s(literal 1/24 binary64) (.f64 (/.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 #s(literal -1/720 binary64) (.f64 (/.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 (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th a1) (.f64 th a1)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th a1) (.f64 th a1)) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 th a1) (.f64 th a1)) (.f64 #s(literal 1/24 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 a1 a1) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 a1 (/.f64 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 (fma.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 (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 (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)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 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 th a2) (.f64 th a2)) (.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 th a2) (.f64 th a2)) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (*.f64 a2 (/.f64 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 th a2) (.f64 th a2)) (.f64 #s(literal 1/24 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 a2 a2) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 a2 (/.f64 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: 31.6MiB live, 31.7MiB allocated; 0ms collecting garbage
Compiler: Compiled 2 094 to 650 computations (69% saved)

prune14.0ms (0.3%)

Memory

-24.7MiB live, 20.9MiB allocated; 3ms collecting garbage

Pruning

18 alts after pruning (18 fresh and 0 done)

	Pruned	Kept	Total
New	164	18	182
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	165	18	183

Accuracy

100.0%

Counts

183 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.6%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	99.2%	(fma.f64 (cos.f64 th) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	99.6%	(fma.f64 (cos.f64 th) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
	99.5%	(fma.f64 a2 (.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
▶	99.6%	(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
	99.3%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
▶	98.2%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
	59.9%	(+.f64 (.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 a1 a1)) (.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)))
	64.4%	(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	98.1%	(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
	99.2%	(.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 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))
	99.2%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
	99.3%	(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	29.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	64.4%	#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.1%	#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))
	49.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
	95.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))

Compiler

Compiled 636 to 548 computations (13.8% saved)

series38.0ms (0.8%)

Memory

6.8MiB live, 52.7MiB allocated; 3ms collecting garbage

Counts

27 → 88

Calls

Call 1

Inputs
(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
a1
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.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 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) 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 (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) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
#s(literal 1 binary64)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))))
(.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a1)

Outputs
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* a1 (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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (* (pow a2 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a1 2) (- (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 6) (cos th))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a1 2) (- (* (pow a1 2) (- (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a2 6) (cos th)))))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (* (pow a1 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a2 6) (sqrt 2)) (* (pow a1 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th))))) (pow a1 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a2 2) (- (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 6) (cos th))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a2 2) (- (* (pow a2 2) (- (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a1 6) (cos th)))))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a1 6) (sqrt 2)) (* (pow a2 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th))))) (pow a2 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* a1 (pow th 2)) (sqrt 2))) (/ a1 (sqrt 2)))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* 1/24 (/ (* a1 (pow th 2)) (sqrt 2))))) (/ a1 (sqrt 2)))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (pow th 2)) (sqrt 2))) (* 1/24 (/ a1 (sqrt 2))))))) (/ a1 (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) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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) a2) (sqrt 2)) 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) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #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) a2) (sqrt 2)) #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) 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 (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (cos th) (+ (* 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 (/ 1 (/ (sqrt 2) (* (cos th) (+ (* 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 (/ 1 (/ (sqrt 2) (* (cos th) (+ (* 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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow th 2) (sqrt 2)) (+ (pow a1 2) (pow a2 2)))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/720 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (+ (* 1/48 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) 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) a1) (sqrt 2)) 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) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))

Calls

9 calls:

Time	Variable		Point	Expression
6.0ms	th	@	0	((+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) a1 (* a1 (/ (cos th) (sqrt 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* (/ (* (cos th) a2) (sqrt 2)) a2) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a2) a2 (+ (* (/ (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))) (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (* (cos th) (+ (* a1 a1) (* a2 a2))) (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (* (/ (* (cos th) a1) (sqrt 2)) a1) (/ (* (cos th) a1) (sqrt 2)) (* (cos th) a1))
5.0ms	a2	@	-inf	((+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) a1 (* a1 (/ (cos th) (sqrt 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* (/ (* (cos th) a2) (sqrt 2)) a2) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a2) a2 (+ (* (/ (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))) (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (* (cos th) (+ (* a1 a1) (* a2 a2))) (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (* (/ (* (cos th) a1) (sqrt 2)) a1) (/ (* (cos th) a1) (sqrt 2)) (* (cos th) a1))
4.0ms	th	@	inf	((+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) a1 (* a1 (/ (cos th) (sqrt 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* (/ (* (cos th) a2) (sqrt 2)) a2) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a2) a2 (+ (* (/ (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))) (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (* (cos th) (+ (* a1 a1) (* a2 a2))) (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (* (/ (* (cos th) a1) (sqrt 2)) a1) (/ (* (cos th) a1) (sqrt 2)) (* (cos th) a1))
4.0ms	th	@	-inf	((+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) a1 (* a1 (/ (cos th) (sqrt 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* (/ (* (cos th) a2) (sqrt 2)) a2) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a2) a2 (+ (* (/ (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))) (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (* (cos th) (+ (* a1 a1) (* a2 a2))) (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (* (/ (* (cos th) a1) (sqrt 2)) a1) (/ (* (cos th) a1) (sqrt 2)) (* (cos th) a1))
4.0ms	a2	@	inf	((+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) a1 (* a1 (/ (cos th) (sqrt 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* (/ (* (cos th) a2) (sqrt 2)) a2) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a2) a2 (+ (* (/ (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))) (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (* (cos th) (+ (* a1 a1) (* a2 a2))) (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (* (/ (* (cos th) a1) (sqrt 2)) a1) (/ (* (cos th) a1) (sqrt 2)) (* (cos th) a1))

rewrite239.0ms (4.8%)

Memory

-11.7MiB live, 178.4MiB allocated; 41ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	476	3097
0	522	2905
1	3640	2893
0	8669	2803
1	24969	2803

Stop Event

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

Counts

115 → 360

Calls

Call 1

Inputs
(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
a1
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.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 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) 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 (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) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
#s(literal 1 binary64)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))))
(.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a1)
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* a1 (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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (* (pow a2 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a1 2) (- (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 6) (cos th))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a1 2) (- (* (pow a1 2) (- (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a2 6) (cos th)))))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (* (pow a1 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a2 6) (sqrt 2)) (* (pow a1 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th))))) (pow a1 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a2 2) (- (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 6) (cos th))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow a2 2) (- (* (pow a2 2) (- (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a1 6) (cos th)))))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a1 6) (sqrt 2)) (* (pow a2 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th))))) (pow a2 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* a1 (pow th 2)) (sqrt 2))) (/ a1 (sqrt 2)))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* 1/24 (/ (* a1 (pow th 2)) (sqrt 2))))) (/ a1 (sqrt 2)))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (pow th 2)) (sqrt 2))) (* 1/24 (/ a1 (sqrt 2))))))) (/ a1 (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) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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) a2) (sqrt 2)) 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) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #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) a2) (sqrt 2)) #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) 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 (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (cos th) (+ (* 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 (/ 1 (/ (sqrt 2) (* (cos th) (+ (* 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 (/ 1 (/ (sqrt 2) (* (cos th) (+ (* 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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow th 2) (sqrt 2)) (+ (pow a1 2) (pow a2 2)))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/720 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (+ (* 1/48 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) 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) a1) (sqrt 2)) 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) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ 1 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2))))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) #s(hole binary64 (/ (sqrt 2) (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))

Outputs
(/.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 (.f64 (cos.f64 th) a2) 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))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #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 (.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 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (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 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 (-.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 a1 a1) (cos.f64 th)) #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 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #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 (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 (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 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #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 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #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))) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.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 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) 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 a1 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.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 (neg.f64 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.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 (neg.f64 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
(-.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 (.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))))
a1
(.f64 (.f64 (cos.f64 th) a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (cos.f64 th) a1)))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (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 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(/.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 (fabs.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 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.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
(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 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(.f64 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2)
(.f64 a2 (.f64 (cos.f64 th) (/.f64 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) a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) a2))) (neg.f64 (neg.f64 (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)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (cos.f64 th) a2)))
(*.f64 (cos.f64 th) a2)
(*.f64 a2 (cos.f64 th))
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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (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 (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 (-.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) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #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) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (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 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1))))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.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 (.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) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 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) a1) (.f64 (.f64 a1 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 (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 (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 (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 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 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) (neg.f64 (.f64 a2 a2)))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(-.f64 (.f64 a2 a2) (neg.f64 (.f64 a1 a1)))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 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 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.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 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(.f64 (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1 binary64) (.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 a2 a2 (.f64 a1 a1)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))) #s(literal -1 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (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 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (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 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (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 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.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 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #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 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.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 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #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) (sqrt.f64 #s(literal 2 binary64))) 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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #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) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.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 a2 a2) (cos.f64 th)))) #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 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))))
(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 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (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) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(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))))
(fma.f64 a1 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(+.f64 (.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))))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(literal 1 binary64)
(.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))))
(/.f64 (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))))
(/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))
(.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 a2 a2) (cos.f64 th))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (*.f64 a2 a2) (cos.f64 th))))))
(fma.f64 (.f64 a1 a1) (cos.f64 th) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (cos.f64 th) (.f64 a1 a1) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (.f64 a2 a2) (.f64 (*.f64 a1 a1) (cos.f64 th)))
(-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)))
(-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))))
(+.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 a2 a2) (cos.f64 th)))
(+.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (.f64 (.f64 a1 a1) (cos.f64 th)))
(/.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) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 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) a1) (.f64 (.f64 a1 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 (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 (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 (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 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 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) (neg.f64 (.f64 a2 a2)))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(-.f64 (.f64 a2 a2) (neg.f64 (.f64 a1 a1)))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.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 (.f64 (cos.f64 th) a2) 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))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #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 (.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 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (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 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 (-.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 a1 a1) (cos.f64 th)) #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 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #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 (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 (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 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #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 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #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))) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.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 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) 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 a1 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.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 (neg.f64 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.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 (neg.f64 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
(-.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 (.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 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1)
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(.f64 a1 (.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th))))
(.f64 (.f64 (cos.f64 th) a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (cos.f64 th) a1)))
(*.f64 (cos.f64 th) a1)
(*.f64 a1 (cos.f64 th))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx a1 a1)
#s(approx (* a1 (/ (cos th) (sqrt 2))) (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (cos.f64 th)))) (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (-.f64 (.f64 (-.f64 (neg.f64 (.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (pow.f64 a2 #s(literal 8 binary64)) (cos.f64 th))))) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (cos.f64 th))))) (.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (cos.f64 th)))) (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (cos th) a1) (*.f64 (cos.f64 th) a1))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (* 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 (+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (neg.f64 (.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th)))))) (*.f64 a1 a1)))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (-.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th))))) (.f64 a1 a1)))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (-.f64 (+.f64 (neg.f64 (.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (fma.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (cos.f64 th))))))) (*.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (.f64 a1 a1)))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx a2 a2)
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (cos.f64 th)))) (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (-.f64 (.f64 (-.f64 (neg.f64 (.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (pow.f64 a1 #s(literal 8 binary64)) (cos.f64 th))))) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (cos.f64 th))))) (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (cos.f64 th)))) (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (cos.f64 th)))))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (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)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* 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) (* a1 a1)) (.f64 (+.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 a2 a2)))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (-.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))))) (.f64 a2 a2)))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (-.f64 (+.f64 (neg.f64 (.f64 (pow.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (fma.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (cos.f64 th))))))) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (.f64 a2 a2)))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (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 (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (.f64 #s(literal 1/24 binary64) (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 (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (/ (cos th) (sqrt 2))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (.f64 (.f64 th th) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 th th) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 th th) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 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)) (sqrt.f64 #s(literal 2 binary64))) (/.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) (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 #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 (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)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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) a2) (sqrt 2)) 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) a2) (sqrt 2)) a2) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (.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) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (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) a2) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#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 (+ (* (/ (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 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)) (* (/ (cos th) (sqrt 2)) (* 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 (.f64 #s(literal -1/2 binary64) (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 (fma.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 (.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (-.f64 (neg.f64 (.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal -5/24 binary64)) (.f64 th th))) (/.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))))
#s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal -1/720 binary64) (fma.f64 (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal -5/24 binary64)) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))) (.f64 th th))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal -5/24 binary64))) (.f64 th th) (.f64 #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))) (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (.f64 (.f64 th th) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (.f64 (.f64 th th) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 th th) (fma.f64 a2 a2 (.f64 a1 a1))) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (fma.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (fma.f64 (fma.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (.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) a1) (sqrt 2)) a1) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (.f64 #s(literal 1/24 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.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) a1) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/2 binary64) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (.f64 (.f64 th th) a1) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) 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 (+ (* (/ (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 (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))

eval48.0ms (1%)

Memory: 20.4MiB live, 72.3MiB allocated; 10ms collecting garbage
Compiler: Compiled 4 801 to 1 446 computations (69.9% saved)

prune30.0ms (0.6%)

Memory

1.9MiB live, 48.4MiB allocated; 3ms collecting garbage

Pruning

36 alts after pruning (35 fresh and 1 done)

	Pruned	Kept	Total
New	370	30	400
Fresh	8	5	13
Picked	4	1	5
Done	0	0	0
Total	382	36	418

Accuracy

100.0%

Counts

418 → 36

Alt Table

Click to see full alt table

Status	Accuracy	Program
	64.4%	(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	65.2%	(fma.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	64.4%	(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
▶	99.3%	(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
	98.2%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
	61.3%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))))
	97.7%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (cos.f64 th)))))
	12.9%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))))
	98.1%	(/.f64 #s(literal 1 binary64) (/.f64 (cosh.f64 (asinh.f64 #s(literal 1 binary64))) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
	98.2%	(/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
	57.1%	(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
	64.2%	(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
▶	59.9%	(+.f64 (.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 a1 a1)) (.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)))
	99.2%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
▶	99.3%	(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	29.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* 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)))))
	64.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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)))
	64.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
✓	64.4%	#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))))
	64.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
	18.5%	#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.1%	#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))))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	64.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2))
	60.2%	#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) (sqrt.f64 #s(literal 2 binary64))) a2))
	59.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
	99.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) a2))) a2))
	49.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
	95.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
	99.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx (/ ( (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
▶	11.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 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
	29.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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))))
▶	29.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
	99.0%	#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))

Compiler

Compiled 1 559 to 1 336 computations (14.3% saved)

series28.0ms (0.6%)

Memory

-4.3MiB live, 41.9MiB allocated; 2ms collecting garbage

Counts

31 → 59

Calls

Call 1

Inputs
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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 a1 a1) (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) (sqrt 2)) 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) a2) (sqrt 2)) 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)))))
(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))))
(.f64 (.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 a2)
(/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 th th)
#s(literal -1/2 binary64)
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (.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 a1 a1)) (.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)))
(.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 a1 a1))
(/.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)))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
#s(literal 1 binary64)
(.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))
(.f64 (cos.f64 th) (/.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)))

Outputs
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#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 #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 (/ (* a1 a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 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 #s(hole binary64 a2))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (* (* a2 a2) (/ (* th th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 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)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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 (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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 (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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 (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 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 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) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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) a2) (sqrt 2)) 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 (/ (* th th) (sqrt 2)) #s(hole binary64 (/ (pow th 2) (sqrt 2))))
#s(approx (* th th) #s(hole binary64 (pow th 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 (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))

Calls

9 calls:

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

rewrite230.0ms (4.6%)

Memory

9.5MiB live, 188.8MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	277	1992
0	323	1806
1	2050	1730
0	8190	1683
1	23309	1683

Stop Event

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

Counts

90 → 400

Calls

Call 1

Inputs
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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 a1 a1) (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) (sqrt 2)) 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) a2) (sqrt 2)) 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)))))
(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))))
(.f64 (.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 a2)
(/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 th th)
#s(literal -1/2 binary64)
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (.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 a1 a1)) (.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)))
(.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 a1 a1))
(/.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)))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
#s(literal 1 binary64)
(.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))
(.f64 (cos.f64 th) (/.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)))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#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 #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 (/ (* a1 a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 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 #s(hole binary64 a2))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (* (* a2 a2) (/ (* th th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 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)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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 (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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 (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #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 (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 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 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) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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) a2) (sqrt 2)) 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 (/ (* th th) (sqrt 2)) #s(hole binary64 (/ (pow th 2) (sqrt 2))))
#s(approx (* th th) #s(hole binary64 (pow th 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 (/ (* (+ (* a2 a2) (* a1 a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))

Outputs
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (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 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))) (fma.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 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.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)))))
(/.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (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 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 (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 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #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 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.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 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.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 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))))
(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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(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) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(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 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (/.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(-.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) (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.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))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))
(.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)))) (fma.f64 (.f64 a1 a1) (cos.f64 th) (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (.f64 (*.f64 a1 a1) (cos.f64 th))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (.f64 (*.f64 a2 a2) (cos.f64 th)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (cos.f64 th) (neg.f64 (.f64 (*.f64 a2 a2) (cos.f64 th)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 a2 a2) (cos.f64 th))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (*.f64 a2 a2) (cos.f64 th))))))
(fma.f64 (.f64 a1 a1) (cos.f64 th) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (cos.f64 th) (.f64 a1 a1) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (.f64 a2 a2) (.f64 (*.f64 a1 a1) (cos.f64 th)))
(-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)))
(-.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))))
(+.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (.f64 (.f64 a2 a2) (cos.f64 th)))
(+.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (.f64 (.f64 a1 a1) (cos.f64 th)))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1))) (fma.f64 a2 a2 (*.f64 (neg.f64 a1) a1)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (pow.f64 (neg.f64 (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (.f64 (.f64 a1 a1) (neg.f64 (*.f64 a2 a2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (pow.f64 (.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (fma.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1) (.f64 (.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (pow.f64 (neg.f64 (.f64 a1 a1)) #s(literal 3 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (.f64 (.f64 a2 a2) (neg.f64 (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (fma.f64 a2 a2 (neg.f64 (*.f64 a1 a1))))
(/.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))) (fma.f64 a1 a1 (neg.f64 (*.f64 a2 a2))))
(/.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) (.f64 a2 a2)) (.f64 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 (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 (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 (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 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 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (.f64 a1 a1) (neg.f64 (.f64 a2 a2)))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(-.f64 (.f64 a2 a2) (neg.f64 (.f64 a1 a1)))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
a2
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 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 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
a1
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (fabs.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 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.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
(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 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (.f64 (/.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (.f64 (/.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(.f64 (/.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(.f64 (.f64 a2 a2) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (-.f64 (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (.f64 (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (pow.f64 (.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) #s(literal 2 binary64)) (.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)) (pow.f64 (neg.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))))))
(/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #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 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal -1/2 binary64) (neg.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))))
(fma.f64 (.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal -1/2 binary64) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (.f64 (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(+.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))
(.f64 (.f64 a2 a2) (*.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))))
(.f64 a2 (.f64 a2 (*.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 a2 th) (*.f64 a2 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 a2 th) (*.f64 a2 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 a2 th) (*.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 th) (*.f64 a2 th))))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
(.f64 (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 th th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 th th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 th th)))
(fabs.f64 (*.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 th th)
(pow.f64 (neg.f64 (neg.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 th #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 th th) (*.f64 th th)))
(fabs.f64 (neg.f64 (*.f64 th th)))
(fabs.f64 (*.f64 th th))
#s(literal -1/2 binary64)
(.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 (/.f64 a2 (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)))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (.f64 (.f64 (neg.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)))) (.f64 a2 a2)) (.f64 (neg.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)))) (.f64 a2 a2)))) (fma.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))) a1) a1 (.f64 (neg.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)))) (*.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a2 a2) (/.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)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a1 a1) (/.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)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) (/.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)))) (.f64 (.f64 a1 a1) (/.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))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (/.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)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.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)))) (.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.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)))) (.f64 a2 a2)) (.f64 (neg.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)))) (.f64 a2 a2)) (.f64 (.f64 (.f64 a1 a1) (/.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)))) (.f64 (neg.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)))) (.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (/.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)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 a2 a2) (/.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))))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (/.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)))) (neg.f64 (.f64 (.f64 a2 a2) (/.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)))))))))
(/.f64 (fma.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2))) #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (/.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))) (neg.f64 (.f64 (.f64 a2 a2) (/.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)))))))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 a1 a1) (/.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)))) (.f64 (.f64 a2 a2) (/.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))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (/.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)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (/.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)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a1 a1))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2)) (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (.f64 a2 a2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (/.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)))) (.f64 (.f64 a2 a2) (/.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 (.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 (.f64 (.f64 a1 a1) (/.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 (.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))) a1) a1 (.f64 (.f64 a2 a2) (/.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 (.f64 a1 a1) (/.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))) (.f64 (.f64 a2 a2) (/.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 (.f64 a2 a2) (/.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))) (.f64 (.f64 a1 a1) (/.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 (/.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))) (.f64 a1 a1) (.f64 (.f64 a2 a2) (/.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 (/.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))) (.f64 a2 a2) (.f64 (.f64 a1 a1) (/.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)))))
(-.f64 (.f64 (.f64 a1 a1) (/.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)))) (.f64 (neg.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)))) (.f64 a2 a2)))
(-.f64 (.f64 (.f64 a1 a1) (/.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)))) (neg.f64 (.f64 (.f64 a2 a2) (/.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))))))
(+.f64 (.f64 (.f64 a2 a2) (/.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)))) (.f64 (.f64 a1 a1) (/.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)))))
(+.f64 (.f64 (.f64 a1 a1) (/.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)))) (.f64 (.f64 a2 a2) (/.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)))))
(.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))) a1) a1)
(.f64 (.f64 a1 a1) (/.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))))
(.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))) (*.f64 a1 a1))
(/.f64 (neg.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) (neg.f64 (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))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.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)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 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 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 th th)) (.f64 #s(literal 1/2 binary64) (.f64 th th)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 th th))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64)) #s(literal -1 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal -1 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (.f64 th th)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 th th)) (.f64 #s(literal 1/2 binary64) (.f64 th th)) (.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 th th))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) th) th #s(literal -1 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (+.f64 #s(literal 1 binary64) (neg.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (*.f64 th th) #s(literal -1/2 binary64))))
(/.f64 (fma.f64 (pow.f64 (.f64 th th) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) th) th #s(literal 1 binary64))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 th th)))
(-.f64 #s(literal 1 binary64) (neg.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64))))
(+.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
#s(literal 1 binary64)
(.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)
(.f64 (.f64 a2 a2) (/.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))))
(.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))) (*.f64 a2 a2))
(/.f64 (neg.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (neg.f64 (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))) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (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 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))) (fma.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 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.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)))))
(/.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (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 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 (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 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #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 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.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 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.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 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))))
(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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(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) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(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 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (/.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(-.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) (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.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))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 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 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 a2 (/.f64 a2 (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 (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 (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 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #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))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #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 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #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 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 (/.f64 a2 (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 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
(-.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 (/.f64 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) (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 a1 a1 (.f64 a2 a2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a2 a2) (cos.f64 th)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))
#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 a1)
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 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 (/ (* a1 a1) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (.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 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (.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) (* 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)
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (/.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (* a2 a2) (/ (* th th) (sqrt 2))) (.f64 (.f64 th (/.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 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (.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 (/ (+ (* 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))) (/.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 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (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))) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 th th)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64)) (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 (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 th th)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))))
#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 (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 (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)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64)) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 #s(literal 1/24 binary64) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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) (sqrt 2)) a2) (.f64 (/.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (* th th) (sqrt 2)) (*.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* th th) (*.f64 th th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a1 th) (.f64 a1 th)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 a1 th) (.f64 a1 th)) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 a1 th) (.f64 a1 th)) (.f64 #s(literal 1/24 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (.f64 a1 (/.f64 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 (*.f64 th th) #s(literal -1/2 binary64) #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 (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) (sqrt 2)) (* a1 a1)) (* (/ (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 (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 a2 a2) (/.f64 (.f64 a2 a2) (.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* -1/2 (* th th)) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
#s(approx (+ (* -1/2 (* th th)) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th)))

eval77.0ms (1.5%)

Memory: -2.6MiB live, 95.4MiB allocated; 14ms collecting garbage
Compiler: Compiled 6 130 to 1 858 computations (69.7% saved)

prune36.0ms (0.7%)

Memory

12.0MiB live, 58.5MiB allocated; 2ms collecting garbage

Pruning

43 alts after pruning (41 fresh and 2 done)

	Pruned	Kept	Total
New	467	18	485
Fresh	7	23	30
Picked	4	1	5
Done	0	1	1
Total	478	43	521

Accuracy

100.0%

Counts

521 → 43

Alt Table

Click to see full alt table

Status	Accuracy	Program
	65.2%	(fma.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	64.4%	(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
	99.2%	(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
	98.8%	(/.f64 (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
	12.9%	(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
	98.2%	(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
	61.3%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))))
	12.9%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))))
	57.1%	(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
	64.2%	(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
▶	99.2%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
	61.6%	(.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)))
▶	99.3%	(.f64 (cos.f64 th) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
	99.2%	(.f64 (cos.f64 th) (/.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)))
	98.2%	(.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))))
	29.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* 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)))))
▶	64.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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)))
	64.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
✓	64.4%	#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))))
	64.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
▶	18.5%	#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.1%	#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))))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	64.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2))
	60.2%	#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) (sqrt.f64 #s(literal 2 binary64))) a2))
	59.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
	49.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
	95.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
	99.0%	#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.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx (/ ( (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
✓	11.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 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
	16.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1)))))
	38.6%	#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))))
	11.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 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
▶	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
	45.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	45.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
	45.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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)))))))
	55.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
	13.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))

Compiler

Compiled 1 971 to 1 664 computations (15.6% saved)

series47.0ms (0.9%)

Memory

-20.1MiB live, 69.3MiB allocated; 8ms collecting garbage

Counts

29 → 64

Calls

Call 1

Inputs
(.f64 (cos.f64 th) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(cos.f64 th)
th
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
a1
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 (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))
(fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 a2)
(.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
#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 (.f64 a1 a1) (*.f64 a1 a1))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))

Outputs
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* a1 (/ a1 (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (sqrt 2))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* 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 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 (+ (* -1 (pow a1 2)) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* 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) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (sqrt 2)) (* 1/2 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (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 a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (- (pow a2 2) (pow a1 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* 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) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (sqrt 2)) (* 1/2 (/ (* (pow a1 2) (sqrt 2)) (pow a2 2)))))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 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 (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* 1/24 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (* 1/24 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (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 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)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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)) (+ (* a2 a2) (* a1 a1))) #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)) (+ (* a2 a2) (* a1 a1))) #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) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (* (cos th) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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))))

Calls

9 calls:

Time	Variable		Point	Expression
10.0ms	a2	@	inf	((* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) (cos th) th (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) a2 (/ a2 (sqrt 2)) (sqrt 2) 2 (* a1 (/ a1 (sqrt 2))) a1 (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (* a2 a2) (* (* a1 a1) (sqrt 2)) (* a1 a1) (+ (* (/ (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)) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)))
7.0ms	th	@	inf	((* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) (cos th) th (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) a2 (/ a2 (sqrt 2)) (sqrt 2) 2 (* a1 (/ a1 (sqrt 2))) a1 (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (* a2 a2) (* (* a1 a1) (sqrt 2)) (* a1 a1) (+ (* (/ (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)) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)))
6.0ms	a1	@	inf	((* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) (cos th) th (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) a2 (/ a2 (sqrt 2)) (sqrt 2) 2 (* a1 (/ a1 (sqrt 2))) a1 (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (* a2 a2) (* (* a1 a1) (sqrt 2)) (* a1 a1) (+ (* (/ (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)) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)))
5.0ms	a2	@	0	((* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) (cos th) th (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) a2 (/ a2 (sqrt 2)) (sqrt 2) 2 (* a1 (/ a1 (sqrt 2))) a1 (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (* a2 a2) (* (* a1 a1) (sqrt 2)) (* a1 a1) (+ (* (/ (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)) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)))
5.0ms	a1	@	0	((* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) (cos th) th (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) a2 (/ a2 (sqrt 2)) (sqrt 2) 2 (* a1 (/ a1 (sqrt 2))) a1 (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (* a2 a2) (* (* a1 a1) (sqrt 2)) (* a1 a1) (+ (* (/ (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)) (* (* a1 a1) (* a1 a1)) (- (* a2 a2) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)))

rewrite284.0ms (5.7%)

Memory

46.0MiB live, 225.9MiB allocated; 53ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	282	2161
0	332	1828
1	2159	1710
0	8307	1606
1	22612	1606

Stop Event

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

Counts

93 → 659

Calls

Call 1

Inputs
(.f64 (cos.f64 th) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(cos.f64 th)
th
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
a1
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 (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))
(fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 a2)
(.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
#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 (.f64 a1 a1) (*.f64 a1 a1))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* a1 (/ a1 (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* 1/2 (* (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (sqrt 2))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* 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 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 (+ (* -1 (pow a1 2)) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* 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) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (sqrt 2)) (* 1/2 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (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 a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (- (pow a2 2) (pow a1 2))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (* 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) (sqrt 2)) (* (* a1 a1) (sqrt 2))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (sqrt 2)) (* 1/2 (/ (* (pow a1 2) (sqrt 2)) (pow a2 2)))))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 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 (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* 1/24 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (* 1/24 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (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 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)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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)) (+ (* a2 a2) (* a1 a1))) #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)) (+ (* a2 a2) (* a1 a1))) #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) (+ (* a2 (/ a2 (sqrt 2))) (* a1 (/ a1 (sqrt 2))))) #s(hole binary64 (* (cos th) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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))))

Outputs
(.f64 (.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))) (-.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (-.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)))) (-.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))) (-.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64))) (-.f64 (.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)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))) (fma.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 (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (-.f64 (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (-.f64 (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (.f64 (.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)))))
(/.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #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)) (fma.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)) #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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (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 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 (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 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #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 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.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 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))) (neg.f64 (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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64))) (fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(/.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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.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 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))))
(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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th) (.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
(fma.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(fma.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) 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) (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(+.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(+.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)))
(+.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
(+.f64 (.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))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (fabs.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 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.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 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #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 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 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 (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))))
(/.f64 (+.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 4 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 (.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal -1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal -1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #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))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(/.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 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64))) (fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (neg.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (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 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))))
(/.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 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))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(-.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 (.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(+.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 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 (neg.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
a2
(*.f64 a2 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/.f64 a2 (sqrt.f64 #s(literal 2 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 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1)))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(fabs.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
a1
(*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #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 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 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 (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))))
(/.f64 (+.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 4 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 (.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal -1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal -1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #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))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(/.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 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64))) (fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (neg.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (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 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))))
(/.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 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))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(-.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 (.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(+.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 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 (neg.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.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 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (fma.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 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (pow.f64 (.f64 (neg.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))) (fma.f64 (.f64 (neg.f64 (.f64 a2 a2)) (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 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (pow.f64 (neg.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))) (fma.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))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (pow.f64 (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (pow.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 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 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #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))))) (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 a2 a2) (sqrt.f64 #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) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (-.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 a1 a1) (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 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 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)))))))
(/.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (-.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 a1 a1) (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 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.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))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.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))) (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (.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 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 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))
(.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1))
(.f64 a1 (.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 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 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 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))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #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 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 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 (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))))
(/.f64 (+.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 4 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 (.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal -1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal -1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #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))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(/.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 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64))) (fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (neg.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64))) (-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (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 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))))
(/.f64 (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 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))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(-.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 (.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (neg.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(-.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (neg.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(+.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 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 (neg.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (+.f64 a2 a1)) (+.f64 a2 a1))
(.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.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 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (fma.f64 (/.f64 (.f64 (.f64 a2 a2) a2) (+.f64 a2 a1)) (/.f64 a2 (-.f64 a2 a1)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (pow.f64 (.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1) (.f64 (.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (neg.f64 (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (pow.f64 (neg.f64 (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 a1 a1) (neg.f64 (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.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 (.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 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (neg.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (fma.f64 a1 a1 (neg.f64 (*.f64 a2 a2))))
(/.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 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 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(fma.f64 (/.f64 (.f64 (.f64 a2 a2) a2) (+.f64 a2 a1)) (/.f64 a2 (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (.f64 (.f64 a2 a2) a2) (+.f64 a2 a1)) (/.f64 a2 (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (neg.f64 (.f64 a2 a2)) (+.f64 a2 a1)) (/.f64 (neg.f64 (.f64 a2 a2)) (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (neg.f64 (.f64 a2 a2)) (+.f64 a2 a1)) (/.f64 (neg.f64 (.f64 a2 a2)) (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (.f64 a2 a2) (+.f64 a2 a1)) (/.f64 (.f64 a2 a2) (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (.f64 a2 a2) (+.f64 a2 a1)) (/.f64 (.f64 a2 a2) (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 a2 (+.f64 a2 a1)) (/.f64 (.f64 (.f64 a2 a2) a2) (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 a2 (+.f64 a2 a1)) (/.f64 (.f64 (.f64 a2 a2) a2) (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 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 (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 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 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.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 a2 a2) (neg.f64 (.f64 a1 a1)))
(-.f64 (.f64 a1 a1) (neg.f64 (.f64 a2 a2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) #s(literal 3 binary64))) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1))) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 3 binary64))) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (-.f64 (pow.f64 a1 #s(literal 8 binary64)) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))))))
(/.f64 (-.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 a2 #s(literal 8 binary64))) (+.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (neg.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2))))
(/.f64 (-.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 a2 #s(literal 8 binary64))) (-.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (.f64 a2 a2) a2) a2)))
(/.f64 (-.f64 (pow.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (neg.f64 (.f64 (.f64 (*.f64 a2 a2) a2) a2))))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (pow.f64 a1 #s(literal 8 binary64))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (*.f64 a2 a2) a2) a2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (*.f64 a1 a1) a1) a1)))))
(neg.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)))
(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 (neg.f64 (neg.f64 (.f64 a2 a2))) (neg.f64 (neg.f64 (.f64 a2 a2))) (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1)))
(fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 (.f64 (.f64 a2 a2) a2) a2 (neg.f64 (.f64 (.f64 (*.f64 a1 a1) 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 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1)))
(fma.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal -1 binary64) (.f64 (.f64 (.f64 a2 a2) a2) a2))
(fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))
(fma.f64 (.f64 a2 a2) (.f64 a2 a2) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 (.f64 a2 a2) (.f64 a2 a2) (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1)))
(fma.f64 a2 (.f64 (.f64 a2 a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a1 a1)))
(fma.f64 a2 (.f64 (.f64 a2 a2) a2) (neg.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1)))
(-.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (neg.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2)))
(-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1))
(+.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (.f64 a2 a2) a2) a2))
(+.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)))
(+.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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 (*.f64 (neg.f64 a2) (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fabs.f64 a2) (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fabs.f64 a2) a2) #s(literal 2 binary64))
(pow.f64 (*.f64 (neg.f64 a2) a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 4 binary64))
(pow.f64 (neg.f64 a2) #s(literal 4 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))
(.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 (*.f64 (neg.f64 a1) (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fabs.f64 a1) (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (*.f64 (fabs.f64 a1) a1) #s(literal 2 binary64))
(pow.f64 (*.f64 (neg.f64 a1) a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 4 binary64))
(pow.f64 (neg.f64 a1) #s(literal 4 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))
(*.f64 (+.f64 a2 a1) (-.f64 a2 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 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (pow.f64 (.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1)) (.f64 (.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (neg.f64 (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1)) (pow.f64 (neg.f64 (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (*.f64 a2 a2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (+.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (.f64 a2 a2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2)))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 (.f64 a1 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 (neg.f64 (.f64 a1 a1)) (*.f64 a2 a2)))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 a1 a1 (.f64 a2 a2)))
(neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (neg.f64 (*.f64 a1 a1)))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (neg.f64 (*.f64 a1 a1)))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (neg.f64 (*.f64 a1 a1)))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 (neg.f64 a1) a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (neg.f64 (*.f64 a1 a1)))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 (neg.f64 a1) a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (neg.f64 (*.f64 a1 a1)))
(fma.f64 #s(literal -1 binary64) (.f64 a1 a1) (.f64 a2 a2))
(fma.f64 (.f64 a1 a1) #s(literal -1 binary64) (.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 (neg.f64 a1) a1))
(fma.f64 a2 a2 (neg.f64 (*.f64 a1 a1)))
(-.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (.f64 a2 a2)))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
(+.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (.f64 a2 a2) (neg.f64 (.f64 a1 a1)))
(.f64 (.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))) (-.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (-.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)))) (-.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))) (-.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64))) (-.f64 (.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)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))) (fma.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 (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (-.f64 (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (-.f64 (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (-.f64 (.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))) (.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (.f64 (.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)))))
(/.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) #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)) (fma.f64 (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)) (.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 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)) #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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (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 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (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 (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 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #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 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.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 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))) (neg.f64 (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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64))) (fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (neg.f64 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(/.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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #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) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.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 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))))
(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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th) (.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
(fma.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)))
(fma.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(fma.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) 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) (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(+.f64 (.f64 (cos.f64 th) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(+.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)) (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)))
(+.f64 (.f64 (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
(+.f64 (.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))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (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 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (+.f64 a2 a1)) (+.f64 a2 a1))
(.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.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 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (fma.f64 (/.f64 (.f64 (.f64 a2 a2) a2) (+.f64 a2 a1)) (/.f64 a2 (-.f64 a2 a1)) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (pow.f64 (.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1) (.f64 (.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (neg.f64 (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (pow.f64 (neg.f64 (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 a1 a1) (neg.f64 (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.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 (.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 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (neg.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (fma.f64 a1 a1 (neg.f64 (*.f64 a2 a2))))
(/.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 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 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(fma.f64 (/.f64 (.f64 (.f64 a2 a2) a2) (+.f64 a2 a1)) (/.f64 a2 (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (.f64 (.f64 a2 a2) a2) (+.f64 a2 a1)) (/.f64 a2 (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (neg.f64 (.f64 a2 a2)) (+.f64 a2 a1)) (/.f64 (neg.f64 (.f64 a2 a2)) (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (neg.f64 (.f64 a2 a2)) (+.f64 a2 a1)) (/.f64 (neg.f64 (.f64 a2 a2)) (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (.f64 a2 a2) (+.f64 a2 a1)) (/.f64 (.f64 a2 a2) (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 (.f64 a2 a2) (+.f64 a2 a1)) (/.f64 (.f64 a2 a2) (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 a2 (+.f64 a2 a1)) (/.f64 (.f64 (.f64 a2 a2) a2) (-.f64 a2 a1)) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(fma.f64 (/.f64 a2 (+.f64 a2 a1)) (/.f64 (.f64 (.f64 a2 a2) a2) (-.f64 a2 a1)) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 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 (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 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 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.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 a2 a2) (neg.f64 (.f64 a1 a1)))
(-.f64 (.f64 a1 a1) (neg.f64 (.f64 a2 a2)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(+.f64 (.f64 a1 a1) (.f64 a2 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 (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 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx a1 a1)
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (* a1 a1) (sqrt 2)) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (*.f64 a2 a2))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#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))) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
#s(approx (* (* a1 a1) (* a1 a1)) (.f64 (.f64 (*.f64 a1 a1) a1) a1))
#s(approx (- (* a2 a2) (* a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 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 (cos.f64 th) a1) (/.f64 (.f64 a2 a2) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#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)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (.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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (/.f64 (.f64 a2 a2) (.f64 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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal -1 binary64)) (.f64 a1 a1)))
#s(approx a2 a2)
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
#s(approx (- (* a2 a2) (* a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
#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 (/ (+ (* 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)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (* a2 a2) (sqrt 2)) (* (* a1 a1) (sqrt 2))) (.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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (+.f64 (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(literal 1 binary64)) (.f64 (.f64 (.f64 a2 a2) a2) a2)))
#s(approx (- (* a2 a2) (* a1 a1)) (.f64 (+.f64 (/.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2)) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 #s(literal -1/2 binary64) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.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) #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 (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 (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)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#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 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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 #s(literal -1/2 binary64) (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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.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) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (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) (sqrt 2)) (* a1 a1)) (* (/ (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 (cos th) (cos.f64 th))
#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 a1 a1 (.f64 a2 a2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))

eval59.0ms (1.2%)

Memory: -14.5MiB live, 87.0MiB allocated; 14ms collecting garbage
Compiler: Compiled 6 318 to 2 062 computations (67.4% saved)

prune87.0ms (1.7%)

Memory

11.0MiB live, 57.6MiB allocated; 2ms collecting garbage

Pruning

41 alts after pruning (37 fresh and 4 done)

	Pruned	Kept	Total
New	482	16	498
Fresh	15	21	36
Picked	3	2	5
Done	0	2	2
Total	500	41	541

Accuracy

100.0%

Counts

541 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	65.2%	(fma.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	99.2%	(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
	98.8%	(/.f64 (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
	12.9%	(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
	61.3%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))))
✓	99.2%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
	61.6%	(.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 a2 a2 (*.f64 a1 a1)))
	64.4%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
	98.2%	(.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
	99.2%	(.f64 (cos.f64 th) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
	98.7%	(.f64 (cos.f64 th) #s(approx (/ (+ ( a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
	61.6%	(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
	64.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
✓	64.4%	#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))))
	7.6%	#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)) (neg.f64 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
	18.3%	#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))))
	2.8%	#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))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	18.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (sqrt.f64 #s(literal 2 binary64))))
	99.1%	#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))))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2))
	60.2%	#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) (sqrt.f64 #s(literal 2 binary64))) a2))
	59.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
	95.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
	99.0%	#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))
	12.9%	#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))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx (/ ( (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
✓	11.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 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
	16.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1)))))
	38.6%	#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))))
	11.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 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
	64.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	11.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 #s(literal 1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
✓	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
	45.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64)))))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	45.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
	55.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
	13.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))

Compiler

Compiled 1 909 to 1 184 computations (38% saved)

regimes224.0ms (4.5%)

Memory

-18.7MiB live, 262.6MiB allocated; 33ms collecting garbage

Counts

83 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (/.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 (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 (/.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) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) #s(approx (/ (+ ( a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (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 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) a2))) a2))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (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 a2 a2 (.f64 a1 a1)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
(.f64 (cos.f64 th) (/.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)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
(fma.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (cos.f64 th) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 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)) (/.f64 #s(literal 1 binary64) (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
(.f64 (cos.f64 th) (/.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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.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 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (cosh.f64 (asinh.f64 #s(literal 1 binary64))) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (cos.f64 th) (.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.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 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))

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

Calls

8 calls:

57.0ms	th
35.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)))
25.0ms	a2
23.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
22.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)

regimes256.0ms (5.1%)

Memory

6.4MiB live, 194.6MiB allocated; 36ms collecting garbage

Counts

76 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (/.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 (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 (/.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) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) #s(approx (/ (+ ( a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (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 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) a2))) a2))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (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 a2 a2 (.f64 a1 a1)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
(.f64 (cos.f64 th) (/.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)) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
(fma.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (cos.f64 th) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 a1 (.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 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)) (/.f64 #s(literal 1 binary64) (.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
(.f64 (cos.f64 th) (/.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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 a1 (/.f64 a1 (.f64 a2 a2)) #s(literal 1 binary64)) (/.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 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (cosh.f64 (asinh.f64 #s(literal 1 binary64))) (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))))

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

Calls

8 calls:

83.0ms	a2
50.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)))
29.0ms	(*.f64 a2 a2)
21.0ms	(cos.f64 th)
18.0ms	a1

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)

regimes120.0ms (2.4%)

Memory

5.9MiB live, 194.6MiB allocated; 15ms collecting garbage

Counts

58 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (/.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 (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 (/.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) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) #s(approx (/ (+ ( a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (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 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) a2))) a2))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (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 a2 a2 (.f64 a1 a1)))

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

Calls

8 calls:

17.0ms	a2
16.0ms	(*.f64 a2 a2)
15.0ms	a1
15.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
14.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)

regimes227.0ms (4.5%)

Memory

-12.8MiB live, 172.9MiB allocated; 25ms collecting garbage

Counts

56 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (/.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 (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 (/.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) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) #s(approx (/ (+ ( a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (.f64 (.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (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 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) a2))) a2))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (cos.f64 th)))))

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

Calls

8 calls:

81.0ms	th
16.0ms	(cos.f64 th)
15.0ms	a2
14.0ms	a1
14.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
99.1%	1	`(*.f64 a1 a1)`
99.1%	1	`a1`
99.1%	1	`th`
99.1%	1	`(*.f64 a2 a2)`
99.1%	1	`(cos.f64 th)`
99.1%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.1%	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.1%	1	`a2`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes115.0ms (2.3%)

Memory

4.1MiB live, 192.8MiB allocated; 34ms collecting garbage

Counts

49 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (/.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 (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 (/.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))

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

Calls

8 calls:

17.0ms	a2
16.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
15.0ms	(*.f64 a1 a1)
12.0ms	a1
12.0ms	th

Results

Accuracy	Segments	Branch
99.1%	1	`(*.f64 a2 a2)`
99.1%	1	`(*.f64 a1 a1)`
99.1%	1	`(cos.f64 th)`
99.1%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.1%	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.1%	1	`a1`
99.1%	1	`a2`
99.1%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes134.0ms (2.7%)

Memory

49.3MiB live, 186.8MiB allocated; 15ms collecting garbage

Counts

48 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (/.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 (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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))

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

Calls

8 calls:

44.0ms	(cos.f64 th)
16.0ms	a2
15.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)))
12.0ms	a1
12.0ms	th

Results

Accuracy	Segments	Branch
99.0%	1	`(*.f64 a2 a2)`
99.0%	1	`(*.f64 a1 a1)`
99.0%	1	`(cos.f64 th)`
99.0%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.0%	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.0%	1	`a1`
99.0%	1	`a2`
99.0%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes237.0ms (4.7%)

Memory

-93.5MiB live, 148.5MiB allocated; 53ms collecting garbage

Counts

45 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (* a1 (/ (cos th) (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))

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

Calls

8 calls:

58.0ms	a1
53.0ms	(cos.f64 th)
15.0ms	th
11.0ms	a2
11.0ms	(*.f64 a2 a2)

Results

Accuracy	Segments	Branch
99.0%	1	`(*.f64 a2 a2)`
99.0%	1	`a2`
99.0%	1	`th`
99.0%	1	`(*.f64 a1 a1)`
99.0%	1	`(cos.f64 th)`
99.0%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.0%	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.0%	1	`a1`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes164.0ms (3.3%)

Memory

33.2MiB live, 129.3MiB allocated; 10ms collecting garbage

Counts

44 → 2

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th)))) (sqrt.f64 #s(literal 2 binary64)))))
#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))))
(.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)))
(.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 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.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 (/.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 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (.f64 a2 (.f64 a2 (.f64 th (/.f64 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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) 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))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.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 (/.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))))
(.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))))) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 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)) (neg.f64 (*.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 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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (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))) (/.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 (.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.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))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a2 th) (.f64 a2 th))) (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 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (fma.f64 (.f64 (.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1))))))
(+.f64 (.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 a1 a1)) (.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 #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)) (sqrt.f64 #s(literal 2 binary64))) a2))

Outputs

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 a2 a2 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)))) (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Calls

8 calls:

63.0ms	a1
35.0ms	(*.f64 a1 a1)
11.0ms	th
11.0ms	a2
10.0ms	(*.f64 a2 a2)

Results

Accuracy	Segments	Branch
64.4%	1	`(*.f64 a2 a2)`
67.6%	2	`(*.f64 a1 a1)`
74.2%	2	`(cos.f64 th)`
74.2%	2	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
74.3%	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)))`
67.6%	2	`a1`
66.8%	2	`a2`
66.2%	2	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

19 → 2

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(approx (+ (* (* (* a2 a2) (/ (* th th) (sqrt 2))) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 (.f64 th th) #s(literal -1/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 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #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 (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)))

Outputs

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

Calls

1 calls:

5.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
74.3%	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)

regimes95.0ms (1.9%)

Memory

-12.0MiB live, 78.2MiB allocated; 8ms collecting garbage

Counts

16 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.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 (/ ( (cos th) a2) (sqrt 2)) (/.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 (+ (* a2 a2) (* 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 (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* 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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 a1 (.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 #s(literal 1 binary64) (/.f64 (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 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (.f64 (.f64 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 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (cos th) (+ (* a1 a1) (* a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))

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:

60.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)))
8.0ms	a2
5.0ms	th
4.0ms	a1
4.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
64.4%	1	`(*.f64 a2 a2)`
64.4%	1	`th`
64.4%	1	`a2`
64.4%	1	`(*.f64 a1 a1)`
64.4%	1	`a1`
64.4%	1	`(cos.f64 th)`
64.4%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
64.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)))`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes31.0ms (0.6%)

Memory

15.1MiB live, 67.7MiB allocated; 7ms collecting garbage

Counts

11 → 1

Calls

Call 1

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

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

Calls

8 calls:

8.0ms	th
3.0ms	a1
3.0ms	a2
3.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)))
3.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
64.1%	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)))`
64.1%	1	`(cos.f64 th)`
64.1%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
64.1%	1	`(*.f64 a1 a1)`
64.1%	1	`a1`
64.1%	1	`th`
64.1%	1	`(*.f64 a2 a2)`
64.1%	1	`a2`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes11.0ms (0.2%)

Memory

-18.0MiB live, 28.8MiB allocated; 2ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

2 → 1

Calls

Call 1

Inputs

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

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

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

Calls

8 calls:

2.0ms	a2
1.0ms	a1
1.0ms	th
1.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)))
1.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
11.7%	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)))`
11.7%	1	`(cos.f64 th)`
11.7%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
11.7%	1	`(*.f64 a1 a1)`
11.7%	1	`a1`
11.7%	1	`th`
11.7%	1	`(*.f64 a2 a2)`
11.7%	1	`a2`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-6.290669301609626e-157	-4.114475736849961e-170

Compiler

Compiled 19 to 18 computations (5.3% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-6.290669301609626e-157	-4.114475736849961e-170

Compiler

Compiled 19 to 18 computations (5.3% saved)

derivations429.0ms (8.6%)

Memory

-21.4MiB live, 311.2MiB allocated; 36ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 183 to 87 computations (52.5% saved)

preprocess284.0ms (5.7%)

Memory

44.4MiB live, 420.3MiB allocated; 35ms collecting garbage

Remove

(sort a1 a2)

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 4 347 to 3 203 computations (26.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze1.0ms (0%)

sample1.1s (22.6%)

preprocess55.0ms (1.1%)

series19.0ms (0.4%)

rewrite229.0ms (4.6%)

eval18.0ms (0.4%)

prune14.0ms (0.3%)

series38.0ms (0.8%)

rewrite239.0ms (4.8%)

eval48.0ms (1%)

prune30.0ms (0.6%)

series28.0ms (0.6%)

rewrite230.0ms (4.6%)

eval77.0ms (1.5%)

prune36.0ms (0.7%)

series47.0ms (0.9%)

rewrite284.0ms (5.7%)

eval59.0ms (1.2%)

prune87.0ms (1.7%)

regimes224.0ms (4.5%)

regimes256.0ms (5.1%)

regimes120.0ms (2.4%)

regimes227.0ms (4.5%)

regimes115.0ms (2.3%)

regimes134.0ms (2.7%)

regimes237.0ms (4.7%)

regimes164.0ms (3.3%)

regimes6.0ms (0.1%)

regimes95.0ms (1.9%)

regimes31.0ms (0.6%)

regimes11.0ms (0.2%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

derivations429.0ms (8.6%)

preprocess284.0ms (5.7%)

end0.0ms (0%)

Profiling