Metrics for Migdal et al, Equation (64)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

0.6MiB live, 0.6MiB 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.2s (24%)

Memory

39.1MiB live, 1 179.8MiB allocated; 1.0s collecting garbage

Samples

911.0ms

8 256×

valid

Precisions

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

ival-mult!: 414.0ms (60.5% of total)

ival-cos: 210.0ms (30.7% of total)

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

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

adjust: 2.0ms (0.3% of total)

Bogosity

preprocess80.0ms (1.6%)

Memory

-3.9MiB live, 41.0MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	133
1	198	133
2	979	133
3	4946	133

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.5%	(+.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

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

Counts

12 → 34

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
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)
2.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)

rewrite233.0ms (4.7%)

Memory

-45.8MiB live, 203.5MiB allocated; 51ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	158	1016
0	172	890
1	1153	854
0	8110	802

Stop Event

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

Counts

46 → 178

Calls

Call 1

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

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

eval18.0ms (0.4%)

Memory: 0.6MiB live, 46.1MiB allocated; 4ms collecting garbage
Compiler: Compiled 2 391 to 650 computations (72.8% saved)

prune8.0ms (0.2%)

Memory

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

Pruning

12 alts after pruning (12 fresh and 0 done)

	Pruned	Kept	Total
New	155	12	167
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	156	12	168

Accuracy

100.0%

Counts

168 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.7%	(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
	99.6%	(/.f64 (fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
	99.4%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th)))))
	60.1%	(+.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)))
	67.0%	(+.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)))
▶	99.5%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
▶	30.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	67.0%	#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))))
	55.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
	99.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
	98.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))) a2) a2))
▶	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))

Compiler

Compiled 490 to 408 computations (16.7% saved)

series86.0ms (1.7%)

Memory

-27.1MiB live, 81.2MiB allocated; 11ms collecting garbage

Counts

27 → 111

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite181.0ms (3.7%)

Memory

42.2MiB live, 225.6MiB allocated; 26ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	439	3972
0	483	3475
1	3206	3423
0	8469	3332

Stop Event

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

Counts

138 → 517

Calls

Call 1

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

eval58.0ms (1.2%)

Memory: -19.8MiB live, 124.0MiB allocated; 17ms collecting garbage
Compiler: Compiled 8 267 to 1 904 computations (77% saved)

prune52.0ms (1%)

Memory

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

Pruning

33 alts after pruning (30 fresh and 3 done)

	Pruned	Kept	Total
New	518	29	547
Fresh	6	1	7
Picked	2	3	5
Done	0	0	0
Total	526	33	559

Accuracy

100.0%

Counts

559 → 33

Alt Table

Click to see full alt table

Status	Accuracy	Program
	97.7%	(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx ( (* a1 a1) (cos th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
	67.0%	(/.f64 (fma.f64 #s(approx (* (* a2 a2) (cos th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
✓	99.5%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	62.2%	(.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)))
	67.0%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	29.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
▶	30.1%	#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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
	55.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 #s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (.f64 (.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓	67.0%	#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))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
	14.0%	#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))))
	14.0%	#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(literal 1 binary64)) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
	98.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))) a2) a2))
✓	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
▶	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
▶	99.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a1 a1)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
▶	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
	30.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)))) (.f64 th th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
▶	28.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 (/.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))))
	45.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	61.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (.f64 (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)))) (*.f64 a2 a2))))
	16.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (.f64 (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)))) (*.f64 a1 a1))))
	16.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))

Compiler

Compiled 1 679 to 1 351 computations (19.5% saved)

series58.0ms (1.2%)

Memory

17.0MiB live, 63.2MiB allocated; 3ms collecting garbage

Counts

38 → 95

Calls

Call 1

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

Calls

9 calls:

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

rewrite181.0ms (3.6%)

Memory

17.4MiB live, 236.4MiB allocated; 76ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	362	3243
0	411	2918
1	2404	2881
0	8105	2800

Stop Event

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

Counts

133 → 422

Calls

Call 1

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

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

eval88.0ms (1.8%)

Memory: -29.6MiB live, 76.5MiB allocated; 20ms collecting garbage
Compiler: Compiled 7 661 to 2 488 computations (67.5% saved)

prune71.0ms (1.4%)

Memory

35.1MiB live, 81.9MiB allocated; 4ms collecting garbage

Pruning

44 alts after pruning (39 fresh and 5 done)

	Pruned	Kept	Total
New	452	18	470
Fresh	4	21	25
Picked	3	2	5
Done	0	3	3
Total	459	44	503

Accuracy

100.0%

Counts

503 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	97.7%	(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx ( (* a1 a1) (cos th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
	67.0%	(/.f64 (fma.f64 #s(approx (* (* a2 a2) (cos th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
✓	99.5%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	62.2%	(.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)))
	67.0%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	29.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	11.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
	55.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 #s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (.f64 (.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓	67.0%	#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))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
▶	14.0%	#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))))
	14.0%	#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(literal 1 binary64)) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
▶	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
	16.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* 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))) (*.f64 a1 a1)))
	98.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))) a2) a2))
✓	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a1) a1))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
▶	14.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
▶	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
✓	99.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	60.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 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))))))
	61.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) #s(approx ( (sqrt 2) (cos th)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) #s(approx ( (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a1 a1)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
✓	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) a1))
	28.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))))
	28.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 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
	43.2%	#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 a2 (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) a1) a1)))
▶	32.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 a1 a1) (fma.f64 a2 (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
	27.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (+ (/ ( a2 a2) (* (* a1 a1) (sqrt 2))) (/ 1 (sqrt 2))) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (+ (/ ( a2 a2) (* (* a1 a1) (sqrt 2))) (/ 1 (sqrt 2))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))))
	45.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	16.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))

Compiler

Compiled 2 308 to 1 863 computations (19.3% saved)

series56.0ms (1.1%)

Memory

1.5MiB live, 100.5MiB allocated; 16ms collecting garbage

Counts

40 → 98

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite240.0ms (4.8%)

Memory

2.4MiB live, 277.1MiB allocated; 30ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	343	3016
0	399	2562
1	2165	2461
0	9041	2319

Stop Event

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

Counts

138 → 562

Calls

Call 1

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

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 a2 a2)) #s(literal 1/2 binary64)))
(.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 a2 a2)) #s(literal 1/2 binary64))
(.f64 (.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 a2 a2)))
(.f64 (cos.f64 th) (.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 a2 a2) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)))
(.f64 (.f64 a2 a2) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 a2 a2))
(.f64 a2 (.f64 a2 #s(literal 1/2 binary64)))
(*.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 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.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 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 (*.f64 a2 a2) a2) a2))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
#s(literal 1/2 binary64)
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))))
(/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(.f64 a1 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) a1)
(.f64 a1 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64))))) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))))))
(/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64))))))
#s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
(.f64 (.f64 th th) #s(literal -1/2 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 th th))
(.f64 th (.f64 th #s(literal -1/2 binary64)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (exp.f64 (log.f64 th)) (exp.f64 (log.f64 th)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (exp.f64 (log.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 th) #s(literal 2 binary64))))
#s(literal -1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) (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 (/ (+ (* a1 a1) (* a2 a2)) (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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(.f64 (.f64 a1 a1) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 a1 (.f64 a1 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
(fma.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.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) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(+.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (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 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1 binary64))) (.f64 (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64))) (.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 1 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 1 binary64))) (.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal -1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal -1 binary64) (.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))) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
(/.f64 (fma.f64 #s(literal 1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (neg.f64 (.f64 a2 a2)))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 a2 a2))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
(/.f64 (fma.f64 #s(literal 1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (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 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (neg.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (+.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (-.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(neg.f64 (-.f64 (neg.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)))))
(fma.f64 (/.f64 (fabs.f64 a2) (*.f64 a1 a1)) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a2) (*.f64 a1 a1)) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 a2) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 (*.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (*.f64 a1 a1)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) a2 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (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 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (/.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) #s(literal 2 binary64))))) (/.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) #s(literal 2 binary64))))))
(+.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 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 a2 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(pow.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal -1 binary64))
(/.f64 (neg.f64 (/.f64 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (/.f64 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 a2) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 a1 (.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1))
(tanh.f64 (asinh.f64 #s(literal 1 binary64)))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
(/.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
(sin.f64 (atan.f64 #s(literal 1 binary64)))
(cos.f64 (atan.f64 #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64)))
#s(literal 1 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))))
(.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1 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 (neg.f64 (.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2))))
(/.f64 (fma.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (neg.f64 (.f64 a2 a2)))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (.f64 a2 a2))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) #s(literal 1 binary64))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2))))
(/.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 (.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2))))
(/.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)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))))
(/.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) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))))
(/.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 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (neg.f64 (.f64 a1 a1)))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1)) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) #s(literal 1 binary64))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a2 a2)) (.f64 a1 a1))) (.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(literal -1 binary64)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) #s(literal -1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) #s(literal -1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.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 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal 1 binary64)) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.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 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.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 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) #s(literal 1 binary64)) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.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 (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 (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 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)))))) (neg.f64 (+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 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 a1) (.f64 a2 a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 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))))
(neg.f64 (-.f64 (neg.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(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))))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 (.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.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 (.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 a1 a1) a1) a1) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))) (/.f64 (.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 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(+.f64 (/.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 a2 a2) a2) a2) (.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 (.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (+.f64 a2 a1)) (/.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (-.f64 a2 a1)))
(.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(pow.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) #s(literal -1 binary64))
(/.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 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 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (pow.f64 (.f64 (neg.f64 a2) a2) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (neg.f64 a2) a2) (.f64 (.f64 a1 a1) (*.f64 (neg.f64 a2) a2)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (.f64 (-.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 a2 #s(literal 8 binary64))) #s(literal 1 binary64)) (.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (.f64 (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (pow.f64 a1 #s(literal 8 binary64))) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (.f64 (+.f64 (neg.f64 (pow.f64 a1 #s(literal 12 binary64))) (pow.f64 a2 #s(literal 12 binary64))) #s(literal 1 binary64)) (.f64 (+.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 a2 a1) (-.f64 a2 a1))))
(/.f64 (.f64 (-.f64 (pow.f64 a2 #s(literal 12 binary64)) (pow.f64 a1 #s(literal 12 binary64))) #s(literal 1 binary64)) (.f64 (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (.f64 a2 a1) #s(literal 4 binary64)))) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (neg.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (neg.f64 (neg.f64 (.f64 a1 a1))) (.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 (-.f64 (neg.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (neg.f64 (neg.f64 (.f64 a1 a1))) (.f64 a2 a2)))
(/.f64 (-.f64 (neg.f64 (neg.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 (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 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(neg.f64 (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2)))
(neg.f64 (-.f64 (neg.f64 (.f64 a2 a2)) (.f64 a1 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 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (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 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (-.f64 (.f64 a1 a1) (.f64 a2 a2))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(-.f64 (.f64 a1 a1) (.f64 (neg.f64 a2) a2))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2))))) (/.f64 (.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 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (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 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 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.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 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 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (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)))) (.f64 (-.f64 (.f64 a1 a1) (.f64 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 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (-.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a2 a2))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (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)))) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (fma.f64 (.f64 (.f64 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 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (-.f64 (neg.f64 (.f64 a1 a1)) (*.f64 a2 a2))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (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)))) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (fma.f64 (.f64 (.f64 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 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (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)))) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (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 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (neg.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))))
(/.f64 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (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)))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (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 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))))
(/.f64 (.f64 #s(literal 1 binary64) (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)))) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 a2 #s(literal 8 binary64)))) (neg.f64 (-.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (.f64 a2 a2) a2) a2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 8 binary64)) (pow.f64 a1 #s(literal 8 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (*.f64 a1 a1) a1) a1))))
(/.f64 (neg.f64 (+.f64 (neg.f64 (pow.f64 a1 #s(literal 12 binary64))) (pow.f64 a2 #s(literal 12 binary64)))) (neg.f64 (+.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 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 12 binary64)) (pow.f64 a1 #s(literal 12 binary64)))) (neg.f64 (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 4 binary64))))))
(/.f64 (-.f64 (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 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 (neg.f64 (pow.f64 a1 #s(literal 12 binary64))) (pow.f64 a2 #s(literal 12 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 a2 #s(literal 12 binary64)) (pow.f64 a1 #s(literal 12 binary64))) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 4 binary64)))))
(neg.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)))
(neg.f64 (-.f64 (neg.f64 (neg.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 #s(literal -1 binary64) (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2))
(fma.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) #s(literal -1 binary64) (.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 (/.f64 (pow.f64 a1 #s(literal 8 binary64)) (-.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (.f64 (.f64 (.f64 a2 a2) a2) a2))) (/.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 a2 #s(literal 8 binary64)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (/.f64 (pow.f64 a1 #s(literal 8 binary64)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (.f64 (.f64 (.f64 a1 a1) a1) a1))))
(-.f64 (/.f64 (pow.f64 a2 #s(literal 12 binary64)) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (.f64 a2 a1) #s(literal 4 binary64))))) (/.f64 (pow.f64 a1 #s(literal 12 binary64)) (+.f64 (pow.f64 a2 #s(literal 8 binary64)) (+.f64 (pow.f64 a1 #s(literal 8 binary64)) (pow.f64 (.f64 a2 a1) #s(literal 4 binary64))))))
(-.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (.f64 (.f64 (.f64 a1 a1) a1) a1))
(+.f64 (/.f64 (neg.f64 (pow.f64 a1 #s(literal 12 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 (pow.f64 a2 #s(literal 12 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 (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 (exp.f64 (log.f64 a2)) #s(literal 4 binary64))
(pow.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 4 binary64))
(fabs.f64 (.f64 (.f64 (*.f64 a2 a2) a2) a2))
(exp.f64 (fma.f64 (log.f64 a2) #s(literal 2 binary64) (*.f64 (log.f64 a2) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 a2 a2)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 4 binary64))))
(.f64 (.f64 (*.f64 a1 a1) a1) a1)
(.f64 (neg.f64 (neg.f64 (.f64 a1 a1))) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (*.f64 a1 a1)))
(.f64 (.f64 a1 a1) (*.f64 a1 a1))
(.f64 a1 (.f64 (*.f64 a1 a1) a1))
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 4 binary64))
(pow.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 4 binary64))
(fabs.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))
(exp.f64 (fma.f64 (log.f64 a1) #s(literal 2 binary64) (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(exp.f64 (.f64 (.f64 (log.f64 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 a1 a1)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 4 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 4 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 4 binary64))))
(.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(*.f64 (+.f64 a2 a1) (-.f64 a2 a1))
(/.f64 (neg.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)))) (neg.f64 (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 (neg.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (neg.f64 (.f64 a2 a2)) (.f64 a1 a1)))
(/.f64 (-.f64 (neg.f64 (neg.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 (-.f64 (neg.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (neg.f64 (.f64 a2 a2)) (.f64 a1 a1)))
(/.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 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (neg.f64 (fma.f64 a2 a2 (.f64 a1 a1))))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (fma.f64 a2 a2 (.f64 a1 a1)))
(neg.f64 (-.f64 (neg.f64 (neg.f64 (.f64 a1 a1))) (.f64 a2 a2)))
(neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(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 (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 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 (neg.f64 a1) a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.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 a2 a2 (*.f64 (neg.f64 a1) a1))
(fma.f64 a2 a2 (neg.f64 (*.f64 a1 a1)))
(fma.f64 (.f64 a1 a1) #s(literal -1 binary64) (.f64 a2 a2))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (-.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 (.f64 a2 a2) a2) a2 (fma.f64 (.f64 (.f64 a1 a1) a1) a1 (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (fma.f64 a2 a2 (.f64 a1 a1))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (fma.f64 a2 a2 (.f64 a1 a1))))
(-.f64 (.f64 a2 a2) (.f64 a1 a1))
(+.f64 (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 (.f64 (.f64 a1 a1) a1) a1)) (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 (.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 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (fma.f64 a2 a2 (.f64 a1 a1))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (fma.f64 a2 a2 (.f64 a1 a1))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (fma.f64 a2 a2 (.f64 a1 a1))) (/.f64 (.f64 (neg.f64 (.f64 a1 a1)) (.f64 a1 a1)) (fma.f64 a2 a2 (.f64 a1 a1))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) a2) (fma.f64 a2 a2 (.f64 a1 a1))) (/.f64 (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1)) (fma.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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) (.f64 (/.f64 (.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a1 a1) (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2)))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a1 a1) (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2)))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2))) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2))) (/.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (/ a2 (* (* a1 a1) (sqrt 2))) (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a1 a1) (sqrt 2)) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (*.f64 a2 a2) a2) a2))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.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 a2 a2))
#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 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (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 (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (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 (* (* a1 a1) (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2)))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a1 a1) (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (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)))) (/ 1 (sqrt 2))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (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 (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (.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 (.f64 a2 a2) a2) (.f64 (.f64 a1 a1) a1)) (/.f64 a2 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) 1/2) (sqrt 2)) (cos th)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (.f64 a2 a2)) #s(literal 1/2 binary64)))
#s(approx (* (* (* a2 a2) 1/2) (sqrt 2)) (.f64 (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a2 a2) 1/2) (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
#s(approx (* (* a2 a2) (* a2 a2)) (.f64 (.f64 (*.f64 a2 a2) a2) a2))
#s(approx (- (* a2 a2) (* 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 (/ (+ (* a1 a1) (* a2 a2)) (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 (+ (* a1 a1) (* a2 a2)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (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 (* (* a1 a1) (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (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)))) (/ 1 (sqrt 2))) (.f64 (/.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (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 (+ (* a1 a1) (* a2 a2)) (.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 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (* a2 a2) 1/2) (sqrt 2)) (cos th)) (.f64 (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (* a2 a2) 1/2) (sqrt 2)) (cos th)) (fma.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1/4 binary64) (.f64 (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (* a2 a2) 1/2) (sqrt 2)) (cos th)) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 1/48 binary64))) (.f64 th th) (.f64 (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (* a2 a2) 1/2) (sqrt 2)) (cos th)) (fma.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (fma.f64 (.f64 #s(literal 1/48 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal -1/1440 binary64))) (.f64 th th))) (.f64 th th) (.f64 (.f64 (*.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (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) (/.f64 (*.f64 a1 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 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 (*.f64 a1 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 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) a1) (.f64 #s(literal -1/2 binary64) a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) a1 (.f64 #s(literal -1/720 binary64) (.f64 (.f64 th th) a1))) (sqrt.f64 #s(literal 2 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)) (/.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 (+ (* (* th th) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* th th) -1/2) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (* (* th th) -1/2) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
#s(approx (+ (* (* th th) -1/2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th)))

eval71.0ms (1.4%)

Memory: -13.8MiB live, 141.4MiB allocated; 27ms collecting garbage
Compiler: Compiled 8 269 to 2 973 computations (64% saved)

prune74.0ms (1.5%)

Memory

-7.3MiB live, 183.6MiB allocated; 21ms collecting garbage

Pruning

57 alts after pruning (50 fresh and 7 done)

	Pruned	Kept	Total
New	556	28	584
Fresh	12	22	34
Picked	3	2	5
Done	0	5	5
Total	571	57	628

Accuracy

100.0%

Counts

628 → 57

Alt Table

Click to see full alt table

Status	Accuracy	Program
	97.7%	(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 #s(approx ( (* a1 a1) (cos th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
	67.0%	(/.f64 (fma.f64 #s(approx (* (* a2 a2) (cos th)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
✓	99.5%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	62.2%	(.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)))
	67.0%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	29.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	55.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 #s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (.f64 (.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	66.9%	#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))))))
✓	67.0%	#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))))
	13.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
	6.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))))
	14.0%	#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.2%	#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))))
	14.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))))) (sqrt.f64 #s(literal 2 binary64))))
	14.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (+.f64 a2 a1)) (/.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
	13.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
✓	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	17.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)))))
	14.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (sqrt.f64 #s(literal 2 binary64)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	14.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
	13.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
	98.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))) a2) a2))
✓	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	14.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
✓	14.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	14.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	61.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
✓	99.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	60.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) (.f64 (sqrt.f64 #s(literal 2 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))))))
	61.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) #s(approx ( (sqrt 2) (cos th)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a2 a2)) #s(approx ( (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64)))))
	15.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 a1 a1)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (cos.f64 th) (.f64 (.f64 (.f64 a2 a2) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
✓	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) a1))
	28.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 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
	38.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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
	43.2%	#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 a2 (/.f64 a2 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) a1) a1)))
	27.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 a1 a1) #s(approx (+ (* a2 (/ a2 (* (* a1 a1) (sqrt 2)))) (/ 1 (sqrt 2))) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))))
	52.2%	#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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
	45.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	16.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (.f64 (.f64 (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
	13.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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)))))

Compiler

Compiled 2 641 to 1 723 computations (34.8% saved)

regimes223.0ms (4.5%)

Memory

-2.9MiB live, 327.7MiB allocated; 37ms collecting garbage

Counts

88 → 1

Calls

Call 1

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

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

Calls

8 calls:

38.0ms	(cos.f64 th)
36.0ms	a1
35.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
24.0ms	a2
23.0ms	th

Results

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

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes282.0ms (5.7%)

Memory

-18.7MiB live, 280.7MiB allocated; 91ms collecting garbage

Counts

86 → 1

Calls

Call 1

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

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

Calls

8 calls:

71.0ms	(*.f64 a2 a2)
43.0ms	a1
30.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)))
27.0ms	(cos.f64 th)
22.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
99.6%	1	`(*.f64 a1 a1)`
99.6%	1	`a1`
99.6%	1	`th`
99.6%	1	`(*.f64 a2 a2)`
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	`a2`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes204.0ms (4.1%)

Memory

32.8MiB live, 364.1MiB allocated; 40ms collecting garbage

Counts

82 → 1

Calls

Call 1

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

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

Calls

8 calls:

62.0ms	a2
21.0ms	a1
20.0ms	(cos.f64 th)
20.0ms	(*.f64 a2 a2)
20.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.5%	1	`(*.f64 a2 a2)`
99.5%	1	`(*.f64 a1 a1)`
99.5%	1	`(cos.f64 th)`
99.5%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.5%	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.5%	1	`a1`
99.5%	1	`a2`
99.5%	1	`th`

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes195.0ms (3.9%)

Memory

-22.0MiB live, 358.0MiB allocated; 86ms collecting garbage

Counts

79 → 1

Calls

Call 1

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

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

Calls

8 calls:

37.0ms	(*.f64 a1 a1)
26.0ms	a1
22.0ms	th
22.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)))
22.0ms	a2

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)

regimes150.0ms (3%)

Memory

6.5MiB live, 289.1MiB allocated; 19ms collecting garbage

Counts

77 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes149.0ms (3%)

Memory

-1.1MiB live, 235.4MiB allocated; 20ms collecting garbage

Counts

75 → 1

Calls

Call 1

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

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

Calls

8 calls:

21.0ms	a2
19.0ms	a1
18.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
17.0ms	th
16.0ms	(cos.f64 th)

Results

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

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes327.0ms (6.6%)

Memory

43.0MiB live, 266.2MiB allocated; 100ms collecting garbage

Counts

71 → 2

Calls

Call 1

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

Outputs

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

99.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)))
50.0ms	(*.f64 a1 a1)
46.0ms	a2
45.0ms	(*.f64 a2 a2)
34.0ms	(cos.f64 th)

Results

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

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes29.0ms (0.6%)

Memory

1.7MiB live, 42.7MiB allocated; 10ms collecting garbage

Counts

27 → 2

Calls

Call 1

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

Outputs

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

Calls

3 calls:

14.0ms

(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

7.0ms

(cos.f64 th)

6.0ms

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

Results

Accuracy	Segments	Branch
75.2%	2	`(cos.f64 th)`
75.2%	2	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
75.6%	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 23 to 23 computations (0% saved)

regimes34.0ms (0.7%)

Memory

16.5MiB live, 59.4MiB allocated; 5ms collecting garbage

Counts

17 → 1

Calls

Call 1

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

7 calls:

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

Results

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

Compiler

Compiled 29 to 37 computations (-27.6% saved)

regimes48.0ms (1%)

Memory

-32.3MiB live, 67.3MiB allocated; 28ms collecting garbage

Counts

11 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes10.0ms (0.2%)

Memory

28.5MiB live, 28.5MiB allocated; 0ms 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))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))

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

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

Calls

8 calls:

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

Compiler

Compiled 30 to 40 computations (-33.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-2.819487253868828e-122	-6.618538417918041e-181

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	-2.819487253868828e-122	-6.618538417918041e-181

Compiler

Compiled 19 to 18 computations (5.3% saved)

derivations321.0ms (6.5%)

Memory

-23.4MiB live, 304.2MiB allocated; 40ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 161 to 77 computations (52.2% saved)

preprocess227.0ms (4.6%)

Memory

6.2MiB live, 292.1MiB allocated; 70ms collecting garbage

Remove

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 3 581 to 2 687 computations (25% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.2s (24%)

preprocess80.0ms (1.6%)

series19.0ms (0.4%)

rewrite233.0ms (4.7%)

eval18.0ms (0.4%)

prune8.0ms (0.2%)

series86.0ms (1.7%)

rewrite181.0ms (3.7%)

eval58.0ms (1.2%)

prune52.0ms (1%)

series58.0ms (1.2%)

rewrite181.0ms (3.6%)

eval88.0ms (1.8%)

prune71.0ms (1.4%)

series56.0ms (1.1%)

rewrite240.0ms (4.8%)

eval71.0ms (1.4%)

prune74.0ms (1.5%)

regimes223.0ms (4.5%)

regimes282.0ms (5.7%)

regimes204.0ms (4.1%)

regimes195.0ms (3.9%)

regimes150.0ms (3%)

regimes149.0ms (3%)

regimes327.0ms (6.6%)

regimes29.0ms (0.6%)

regimes34.0ms (0.7%)

regimes48.0ms (1%)

regimes10.0ms (0.2%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

derivations321.0ms (6.5%)

preprocess227.0ms (4.6%)

end0.0ms (0%)

Profiling