Migdal et al, Equation (64)

Time bar (total: 4.6s)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory
0.5MiB live, 0.5MiB allocated; 0ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
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.6s (34.4%)

Memory
0.9MiB live, 1 180.3MiB allocated; 927ms collecting garbage
Samples
1.2s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 918.0ms
ival-cos: 547.0ms (59.6% of total)
ival-mult!: 225.0ms (24.5% of total)
ival-div!: 121.0ms (13.2% of total)
ival-add!: 23.0ms (2.5% of total)
adjust: 1.0ms (0.1% of total)
Bogosity

preprocess55.0ms (1.2%)

Memory
-41.0MiB live, 60.7MiB allocated; 18ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
041133
1198133
2979133
34946133
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶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
34.8MiB live, 34.8MiB 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:

TimeVariablePointExpression
3.0ms
th
@-inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
3.0ms
a1
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms
th
@inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms
a2
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms
th
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)

rewrite177.0ms (3.9%)

Memory
-21.2MiB live, 211.4MiB allocated; 27ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01581016
0172890
11153854
08110802
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)))
(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)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.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))

eval17.0ms (0.4%)

Memory
38.6MiB live, 38.6MiB allocated; 0ms collecting garbage
Compiler

Compiled 2 391 to 650 computations (72.8% saved)

prune17.0ms (0.4%)

Memory
-19.2MiB live, 25.5MiB allocated; 7ms collecting garbage
Pruning

14 alts after pruning (14 fresh and 0 done)

PrunedKeptTotal
New15314167
Fresh000
Picked101
Done000
Total15414168
Accuracy
100.0%
Counts
168 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
99.6%
(/.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 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
99.3%
(+.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)))))
▶99.6%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
▶61.4%
(+.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)))
69.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 (*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (*.f64 (*.f64 (cos.f64 th) (/.f64 #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.7%
#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)))))
▶69.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))))
▶51.5%
#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)))
99.1%
#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))
16.1%
#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 566 to 466 computations (17.7% saved)

series51.0ms (1.1%)

Memory
4.1MiB live, 151.0MiB allocated; 12ms collecting garbage
Counts
37 → 123
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(cos.f64 th)
th
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(log.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(literal 1/2 binary64)
(*.f64 a1 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(sqrt.f64 #s(literal 2 binary64))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
#s(literal -1/2 binary64)
(*.f64 th th)
#s(literal 1 binary64)
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a1 a1 (*.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 (/.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) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 (cos.f64 th) a1)
Outputs
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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 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 (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) 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 (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (pow a1 2))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (pow a1 2))))
#s(approx (/ (* a2 a2) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ (cos th) a1)))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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)) (* 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 (* (/ (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (cos th)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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 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 (* (/ (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (pow a1 2)) (/ (cos th) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (exp (* (log 2) 1/2))) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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)) (* 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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* 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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))) (sqrt 2)) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) (sqrt 2)) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))) (sqrt 2)) (/ (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)))) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (sqrt 2)))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ 1 (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/720 (/ 1 (sqrt 2))))))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (+ (* 1/24 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) a1)) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) a1)) (* 1/24 (/ 1 a1)))) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) (exp (* (log 2) 1/2))) #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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))) (sqrt 2))))
Calls

9 calls:

TimeVariablePointExpression
10.0ms
a2
@inf
((+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (/ (cos th) (exp (* (log 2) 1/2))) (cos th) th (exp (* (log 2) 1/2)) (* (log 2) 1/2) (log 2) 2 1/2 (* a1 a1) a1 (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2)) (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (sqrt 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* -1/2 (* th th)) 1) -1/2 (* th th) 1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1))
8.0ms
a1
@inf
((+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (/ (cos th) (exp (* (log 2) 1/2))) (cos th) th (exp (* (log 2) 1/2)) (* (log 2) 1/2) (log 2) 2 1/2 (* a1 a1) a1 (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2)) (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (sqrt 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* -1/2 (* th th)) 1) -1/2 (* th th) 1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1))
6.0ms
th
@inf
((+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (/ (cos th) (exp (* (log 2) 1/2))) (cos th) th (exp (* (log 2) 1/2)) (* (log 2) 1/2) (log 2) 2 1/2 (* a1 a1) a1 (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2)) (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (sqrt 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* -1/2 (* th th)) 1) -1/2 (* th th) 1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1))
5.0ms
th
@-inf
((+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (/ (cos th) (exp (* (log 2) 1/2))) (cos th) th (exp (* (log 2) 1/2)) (* (log 2) 1/2) (log 2) 2 1/2 (* a1 a1) a1 (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2)) (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (sqrt 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* -1/2 (* th th)) 1) -1/2 (* th th) 1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1))
4.0ms
th
@0
((+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (/ (cos th) (exp (* (log 2) 1/2))) (cos th) th (exp (* (log 2) 1/2)) (* (log 2) 1/2) (log 2) 2 1/2 (* a1 a1) a1 (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2)) (* a2 a2) a2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (sqrt 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* -1/2 (* th th)) 1) -1/2 (* th th) 1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1))

rewrite178.0ms (3.9%)

Memory
-12.9MiB live, 321.4MiB allocated; 43ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04254356
04823795
129253785
083893678
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
160 → 590
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(cos.f64 th)
th
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(log.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(literal 1/2 binary64)
(*.f64 a1 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(sqrt.f64 #s(literal 2 binary64))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
#s(literal -1/2 binary64)
(*.f64 th th)
#s(literal 1 binary64)
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a1 a1 (*.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 (/.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) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 (cos.f64 th) a1)
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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 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 (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) 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 (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (pow a1 2))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (pow a1 2))))
#s(approx (/ (* a2 a2) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ (cos th) a1)))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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)) (* 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 (* (/ (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (cos th)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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 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 (* (/ (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (pow a1 2)) (/ (cos th) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/2))) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a1 a1)) (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (exp (* (log 2) 1/2))) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/2))) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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) (exp (* (log 2) 1/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)) (* 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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* 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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))) (sqrt 2)) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) (sqrt 2)) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))) (sqrt 2)) (/ (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)))) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (sqrt 2)))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ 1 (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/720 (/ 1 (sqrt 2))))))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (+ (* 1/24 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) a1)) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) a1)) (* 1/24 (/ 1 a1)))) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) (exp (* (log 2) 1/2))) #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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))) (sqrt 2))))
Outputs
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal 1 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 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #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 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.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 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.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 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(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 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) 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 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th))))
(*.f64 (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)))
(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)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.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 (exp.f64 #s(literal 1/2 binary64)) (log.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 (log.f64 (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (+.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 2 binary64)))
(*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(log.f64 (sqrt.f64 #s(literal 2 binary64)))
(log.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(literal 1/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 (*.f64 (*.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 (*.f64 a2 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
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1))) #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 (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 (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 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 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)) (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 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.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 (log.f64 (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (+.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (*.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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/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 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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/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 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) #s(literal 2 binary64)))))
(neg.f64 (-.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (neg.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(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 #s(literal -1/2 binary64) th) th #s(literal 1 binary64))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(-.f64 #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)))
#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 binary64)
(*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(/.f64 (neg.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal 1 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 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #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 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.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 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.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 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(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 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(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 (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 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 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 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1))) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.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)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a1 a1)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a1 a1)))
(*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th))))) #s(literal -1 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th))))) #s(literal 1 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th))))) #s(literal 1 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 th) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 th) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 th) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (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 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.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) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (+.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.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) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.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)) (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th))))
(neg.f64 (-.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(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))))
(fma.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))))) (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 th) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th))))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64))) (-.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th))))) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)))
(/.f64 (+.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (cos.f64 th) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th)))))
(neg.f64 (-.f64 (neg.f64 (cos.f64 th)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))))
(neg.f64 (-.f64 (neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) (cos.f64 th)))
(fma.f64 (/.f64 (cos.f64 th) a1) (*.f64 a2 (/.f64 a2 a1)) (cos.f64 th))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 (*.f64 a2 (/.f64 a2 a1)) (/.f64 (cos.f64 th) a1) (cos.f64 th))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (cos.f64 th))
(+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))
(*.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) a1))
(*.f64 a2 (/.f64 a2 a1))
(pow.f64 (/.f64 a1 (*.f64 a2 a2)) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 a1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 a1 (*.f64 a2 a2))))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) a1))
(pow.f64 (/.f64 a1 (cos.f64 th)) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 a1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 a1 (cos.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 a1 (cos.f64 th)))
(/.f64 (cos.f64 th) 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 (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))) 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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* 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)) (*.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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (/ (* a2 a2) a1) (*.f64 a2 (/.f64 a2 a1)))
#s(approx (/ (cos th) a1) (/.f64 (cos.f64 th) 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 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (+ (* (/ (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 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)))
#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)) (* 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 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (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 (+ (* (/ (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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 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 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (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 (* (/ (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 (*.f64 a1 th) (*.f64 a1 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 (/.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.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)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 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 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (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 (* (/ (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 (*.f64 a1 th) (*.f64 a1 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 (/.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))
#s(approx (+ (* -1/2 (* th th)) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th)) (*.f64 a1 a1) (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/720 binary64)) (*.f64 th th)) (*.f64 a1 a1) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.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 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.f64 (-.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.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 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (-.f64 (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (-.f64 (fma.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/720 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (/ (cos th) a1) (/.f64 #s(literal 1 binary64) a1))
#s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ (cos th) a1) (fma.f64 (-.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal 1/24 binary64)) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ (cos th) a1) (fma.f64 (-.f64 (*.f64 (*.f64 th th) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) a1))) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
#s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th)))
#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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))

eval56.0ms (1.2%)

Memory
0.1MiB live, 137.1MiB allocated; 15ms collecting garbage
Compiler

Compiled 7 760 to 2 138 computations (72.4% saved)

prune28.0ms (0.6%)

Memory
23.9MiB live, 75.9MiB allocated; 6ms collecting garbage
Pruning

26 alts after pruning (25 fresh and 1 done)

PrunedKeptTotal
New52322545
Fresh639
Picked415
Done000
Total53326559
Accuracy
100.0%
Counts
559 → 26
Alt Table
Click to see full alt table
StatusAccuracyProgram
62.7%
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
▶99.6%
(/.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 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
30.1%
(/.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))))
▶99.3%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
69.0%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
98.4%
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/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)))
63.4%
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
69.0%
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.6%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
30.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 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)))))
30.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
69.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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)))
▶69.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))))
69.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))))
17.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))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
69.0%
#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))))
▶14.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))))
69.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)))))
▶38.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
8.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 a1 a1)))
16.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
99.1%
#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))
16.1%
#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))
36.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
Compiler

Compiled 1 160 to 980 computations (15.5% saved)

series114.0ms (2.5%)

Memory
5.0MiB live, 328.8MiB allocated; 50ms collecting garbage
Counts
34 → 157
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 #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))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64)))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1)
#s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64)))
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(exp.f64 (log.f64 a1))
(log.f64 a1)
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
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 (/ (+ (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) 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 (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (pow a1 2))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (pow a1 2))))
#s(approx (/ (* a2 a2) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ (cos th) a1)))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (pow (exp (log a1)) 2) #s(hole binary64 (pow a1 2)))
#s(approx (exp (log a1)) #s(hole binary64 a1))
#s(approx (log a1) #s(hole binary64 (log a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (* (pow a2 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a1 2) (- (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 6) (cos th))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a1 2) (- (* (pow a1 2) (- (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a2 6) (cos th)))))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (/ (+ (* (* (* 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 (/ (+ (* 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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (cos th)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (log a1) #s(hole binary64 (* -1 (log (/ 1 a1)))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (* (pow a1 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a2 6) (sqrt 2)) (* (pow a1 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th))))) (pow a1 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (log a1) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 a1))))))
#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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a2 2) (- (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 6) (cos th))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a2 2) (- (* (pow a2 2) (- (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a1 6) (cos th)))))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (+ (* (* (* 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 (/ (+ (* 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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (pow a1 2)) (/ (cos th) (pow a2 2))))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a1 6) (sqrt 2)) (* (pow a2 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th))))) (pow a2 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (* (* a2 a2) (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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))) (sqrt 2)) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) (sqrt 2)) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))) (sqrt 2)) (/ (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)))) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (sqrt 2)))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ 1 (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/720 (/ 1 (sqrt 2))))))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (+ (* 1/24 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) a1)) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) a1)) (* 1/24 (/ 1 a1)))) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* 1/2 (/ (* (pow th 2) (sqrt 2)) (+ (pow a1 2) (pow a2 2)))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/720 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (+ (* 1/48 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (+ (* (* (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
Calls

9 calls:

TimeVariablePointExpression
45.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))) (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (cos th) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (+ (* a2 a2) (pow (exp (log a1)) 2)) (pow (exp (log a1)) 2) (exp (log a1)) (log a1) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (* (+ (* a2 a2) (* a1 a1)) (cos th)) (+ (* a2 a2) (* a1 a1)))
18.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))) (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (cos th) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (+ (* a2 a2) (pow (exp (log a1)) 2)) (pow (exp (log a1)) 2) (exp (log a1)) (log a1) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (* (+ (* a2 a2) (* a1 a1)) (cos th)) (+ (* a2 a2) (* a1 a1)))
16.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))) (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (cos th) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (+ (* a2 a2) (pow (exp (log a1)) 2)) (pow (exp (log a1)) 2) (exp (log a1)) (log a1) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (* (+ (* a2 a2) (* a1 a1)) (cos th)) (+ (* a2 a2) (* a1 a1)))
7.0ms
a2
@-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))) (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (cos th) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (+ (* a2 a2) (pow (exp (log a1)) 2)) (pow (exp (log a1)) 2) (exp (log a1)) (log a1) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (* (+ (* a2 a2) (* a1 a1)) (cos th)) (+ (* a2 a2) (* a1 a1)))
7.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))) (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) (+ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (cos th) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (+ (* a2 a2) (pow (exp (log a1)) 2)) (pow (exp (log a1)) 2) (exp (log a1)) (log a1) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (* (+ (* a2 a2) (* a1 a1)) (cos th)) (+ (* a2 a2) (* a1 a1)))

rewrite229.0ms (5%)

Memory
-10.5MiB live, 358.1MiB allocated; 101ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06635799
07205112
149085068
083264904
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
191 → 461
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 #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))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64)))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1)
#s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64)))
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(exp.f64 (log.f64 a1))
(log.f64 a1)
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
#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 (/ (+ (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) 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 (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (pow a1 2))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (pow a1 2))))
#s(approx (/ (* a2 a2) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ (cos th) a1)))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (pow (exp (log a1)) 2) #s(hole binary64 (pow a1 2)))
#s(approx (exp (log a1)) #s(hole binary64 a1))
#s(approx (log a1) #s(hole binary64 (log a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (* (pow a2 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a1 2) (- (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 6) (cos th))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a1 2) (- (* (pow a1 2) (- (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a2 6) (cos th)))))) (/ (sqrt 2) (* (pow a2 4) (cos th))))) (/ (sqrt 2) (* (pow a2 2) (cos th))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (/ (+ (* (* (* 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 (/ (+ (* 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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (cos th)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (log a1) #s(hole binary64 (* -1 (log (/ 1 a1)))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (* (pow a1 2) (cos th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th)))) (pow a1 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a2 6) (sqrt 2)) (* (pow a1 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a2 4) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 2) (cos th))))) (pow a1 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (log a1) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 a1))))))
#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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 4) (cos th)))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a2 2) (- (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 6) (cos th))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow a2 2) (- (* (pow a2 2) (- (* -1 (/ (* (pow a2 2) (sqrt 2)) (* (pow a1 8) (cos th)))) (* -1 (/ (sqrt 2) (* (pow a1 6) (cos th)))))) (/ (sqrt 2) (* (pow a1 4) (cos th))))) (/ (sqrt 2) (* (pow a1 2) (cos th))))))
#s(approx (/ (+ (* (* (* 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 (/ (+ (* 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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (pow a1 2)) (/ (cos th) (pow a2 2))))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (pow (exp (log a1)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (/ (sqrt 2) (cos th))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (/ (sqrt 2) (cos th)) (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th)))) (pow a2 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a1 6) (sqrt 2)) (* (pow a2 6) (cos th)))) (/ (sqrt 2) (cos th))) (+ (* -1 (/ (* (pow a1 4) (sqrt 2)) (* (pow a2 4) (cos th)))) (/ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (cos th))))) (pow a2 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (* (* a2 a2) (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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))) (sqrt 2)) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) (sqrt 2)) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))) (sqrt 2)) (/ (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)))) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (sqrt 2)))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ 1 (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/720 (/ 1 (sqrt 2))))))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (+ (* 1/24 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) a1)) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) a1)) (* 1/24 (/ 1 a1)))) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* 1/2 (/ (* (pow th 2) (sqrt 2)) (+ (pow a1 2) (pow a2 2)))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (- (* -1 (* (pow th 2) (+ (* -1/720 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (+ (* 1/48 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))) (+ (* -1/4 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))) (* -1/2 (/ (sqrt 2) (+ (pow a1 2) (pow a2 2)))))) (/ (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (+ (* (* (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(hole binary64 (/ (sqrt 2) (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
Outputs
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (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 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(*.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 #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))
(pow.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 1 binary64)) #s(literal -1 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))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 #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) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.f64 (fma.f64 (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) (*.f64 (pow.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)) #s(literal 3 binary64)) #s(literal 1/8 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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #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 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.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) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
(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)))
(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 (/.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 #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 #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 (/.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 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 (*.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) (sqrt.f64 #s(literal 2 binary64))) a1) 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) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 #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))))
(exp.f64 (*.f64 (log.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))) #s(literal -1 binary64)))
(+.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))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) 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 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (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 (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
(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)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.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))))
(/.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)
(*.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 a1 (cos.f64 th)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 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) (log.f64 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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.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))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64)))))
(+.f64 (/.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1))) (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64)))) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (*.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) #s(approx (cos th) #s(literal 1 binary64)))) (fma.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64))))))
(neg.f64 (-.f64 (neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1))) #s(approx (cos th) #s(literal 1 binary64))))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64)))
(fma.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (/.f64 (*.f64 a2 a2) a1) #s(approx (cos th) #s(literal 1 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64)))
(+.f64 #s(approx (cos th) #s(literal 1 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)))
(*.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) a1))
(*.f64 a2 (/.f64 a2 a1))
(pow.f64 (/.f64 a1 (*.f64 a2 a2)) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 a1))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2)))
(exp.f64 (-.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)) (log.f64 a1)))
(*.f64 #s(approx (cos th) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) a1))
(pow.f64 (/.f64 a1 #s(approx (cos th) #s(literal 1 binary64))) #s(literal -1 binary64))
(/.f64 (neg.f64 #s(approx (cos th) #s(literal 1 binary64))) (neg.f64 a1))
(/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1)
(/.f64 #s(literal 1 binary64) (/.f64 a1 #s(approx (cos th) #s(literal 1 binary64))))
#s(approx (cos th) #s(literal 1 binary64))
#s(literal 1 binary64)
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/.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 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.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))))) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(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 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(neg.f64 (-.f64 (neg.f64 (*.f64 a2 a2)) (*.f64 a1 a1)))
(neg.f64 (-.f64 (neg.f64 (*.f64 a1 a1)) (*.f64 a2 a2)))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (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 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))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 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) (log.f64 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 (neg.f64 (log.f64 a1)) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 a1)))
(neg.f64 (neg.f64 (log.f64 a1)))
(log.f64 a1)
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (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 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(*.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 #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))
(pow.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 1 binary64)) #s(literal -1 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))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 #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) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))))
(/.f64 (fma.f64 (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) (*.f64 (pow.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)) #s(literal 3 binary64)) #s(literal 1/8 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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #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 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.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) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
(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)))
(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 (/.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 #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 #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 (/.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 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 (*.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) (sqrt.f64 #s(literal 2 binary64))) a1) 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) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 #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))))
(exp.f64 (*.f64 (log.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))) #s(literal -1 binary64)))
(+.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))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) 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 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
(pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1 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))
(/.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
(/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th))
(/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))))
(neg.f64 (-.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 a1 (*.f64 a1 (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 a2 (*.f64 a2 (cos.f64 th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(/.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(neg.f64 (-.f64 (neg.f64 (*.f64 a2 a2)) (*.f64 a1 a1)))
(neg.f64 (-.f64 (neg.f64 (*.f64 a1 a1)) (*.f64 a2 a2)))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (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 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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (exp (log a1)) a1)
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (/ (* a2 a2) a1) (/.f64 (*.f64 a2 a2) a1))
#s(approx (/ (cos th) a1) (/.f64 (cos.f64 th) a1))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (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 (* a1 a1) (*.f64 a1 a1))
#s(approx (exp (log a1)) a1)
#s(approx (log a1) (log.f64 a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (cos.f64 th)))) (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 a2 #s(literal 8 binary64)) (cos.f64 th))))) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)) (cos.f64 th))))) (*.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (cos.f64 th)))) (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (log a1) (log.f64 a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (neg.f64 (*.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))) (*.f64 a1 a1)))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (-.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th))))) (*.f64 a1 a1)))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (-.f64 (+.f64 (neg.f64 (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (cos.f64 th)))))) (*.f64 a1 a1)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* 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 (log a1) (log.f64 (*.f64 (*.f64 #s(literal -1 binary64) a1) #s(literal -1 binary64))))
#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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (cos.f64 th)))) (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (-.f64 (*.f64 (-.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 a1 #s(literal 8 binary64)) (cos.f64 th))))) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1)) (cos.f64 th))))) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (cos.f64 th)))) (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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) (pow (exp (log a1)) 2)) (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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (*.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (pow (exp (log a1)) 2)) (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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (+.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 a2 a2)))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (-.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (*.f64 a2 a2)))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (-.f64 (+.f64 (neg.f64 (*.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (cos.f64 th))))))) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.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 #s(literal -1/2 binary64) (*.f64 a2 a2))) (*.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 #s(literal -1/2 binary64) (*.f64 a2 a2))) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (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 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* a1 a1) (cos th)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal -1/720 binary64))) (*.f64 th th))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a1 a1) (cos th)) (*.f64 a1 a1))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.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 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.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 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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)))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th)) (*.f64 a1 a1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/720 binary64)) (*.f64 th th)) (*.f64 a1 a1) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.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 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.f64 (-.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.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 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (-.f64 (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (-.f64 (fma.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/720 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (/ (cos th) a1) (/.f64 #s(literal 1 binary64) a1))
#s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ (cos th) a1) (fma.f64 (-.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal 1/24 binary64)) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ (cos th) a1) (fma.f64 (-.f64 (*.f64 (*.f64 th th) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) a1))) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (-.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -5/24 binary64)) (*.f64 th th))) (/.f64 (*.f64 #s(literal -1/2 binary64) (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 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (fma.f64 (-.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/720 binary64) (fma.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -5/24 binary64)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/48 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 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 -5/24 binary64))) (*.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 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))

eval65.0ms (1.4%)

Memory
-12.7MiB live, 94.8MiB allocated; 29ms collecting garbage
Compiler

Compiled 5 329 to 1 732 computations (67.5% saved)

prune27.0ms (0.6%)

Memory
9.2MiB live, 56.3MiB allocated; 2ms collecting garbage
Pruning

32 alts after pruning (30 fresh and 2 done)

PrunedKeptTotal
New39124415
Fresh14620
Picked325
Done101
Total40932441
Accuracy
100.0%
Counts
441 → 32
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.6%
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 2 binary64))
99.4%
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)))
99.4%
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
63.5%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))))))
69.0%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
98.9%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
16.1%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
62.6%
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
▶63.4%
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
69.0%
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.6%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
30.7%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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)))))
52.2%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
99.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
16.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
69.0%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
99.2%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
▶16.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
✓69.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))))
38.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
▶69.0%
#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))))
14.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)))))
✓14.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))))
14.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))))
14.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)))))
▶32.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
38.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
38.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
8.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 a1 a1)))
16.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
38.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
14.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)))))
Compiler

Compiled 1 419 to 1 251 computations (11.8% saved)

series48.0ms (1.1%)

Memory
4.3MiB live, 102.0MiB allocated; 9ms collecting garbage
Counts
38 → 148
Calls
Call 1
Inputs
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 2 binary64))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(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 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.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)
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64)))
(/.f64 (*.f64 a2 a2) a1)
#s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1)))
(fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))
(/.f64 (*.f64 th th) a1)
(/.f64 #s(literal 1 binary64) a1)
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))
Outputs
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a1 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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) 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 (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (pow a1 2))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (pow a1 2))))
#s(approx (/ (* a2 a2) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ (cos th) a1)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (/ (+ 1 (* -1/2 (pow th 2))) a1)))
#s(approx (/ (* th th) a1) #s(hole binary64 (/ (pow th 2) a1)))
#s(approx (/ 1 a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (* 1/2 (* a1 a1)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a1 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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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)) #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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (cos th)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (* -1 (/ (- (* 1/2 (pow th 2)) 1) a1))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (pow a1 2)) (/ (cos th) (pow a2 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/48 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow 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)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (+ (* (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))) (sqrt 2)) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) (sqrt 2)) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))) (sqrt 2)) (/ (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)))) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (sqrt 2)))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ 1 (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/720 (/ 1 (sqrt 2))))))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (+ (* 1/24 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) a1)) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) a1)) (* 1/24 (/ 1 a1)))) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (/ 1 a1)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #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 (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (* 1/2 (* (pow a1 2) (sqrt 2)))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/2 (* (pow a1 2) (sqrt 2))))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/4 (* (pow a1 2) (sqrt 2))) (* 1/48 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/4 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/48 (* (pow a1 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 (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))) (sqrt 2))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (* -1/2 (/ (pow th 2) a1))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (* (pow th 2) (- (/ 1 (* a1 (pow th 2))) (* 1/2 (/ 1 a1))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (* (cos th) (sqrt 2))))
Calls

9 calls:

TimeVariablePointExpression
10.0ms
th
@-inf
((/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (sqrt 2) 2 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (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)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 1 (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/ (* th th) a1) (/ 1 a1) (cos th) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (* 1/2 (* a1 a1)) 1/2 (* (sqrt 2) (cos th)))
5.0ms
th
@inf
((/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (sqrt 2) 2 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (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)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 1 (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/ (* th th) a1) (/ 1 a1) (cos th) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (* 1/2 (* a1 a1)) 1/2 (* (sqrt 2) (cos th)))
5.0ms
a1
@-inf
((/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (sqrt 2) 2 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (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)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 1 (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/ (* th th) a1) (/ 1 a1) (cos th) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (* 1/2 (* a1 a1)) 1/2 (* (sqrt 2) (cos th)))
5.0ms
a1
@0
((/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (sqrt 2) 2 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (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)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 1 (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/ (* th th) a1) (/ 1 a1) (cos th) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (* 1/2 (* a1 a1)) 1/2 (* (sqrt 2) (cos th)))
5.0ms
a1
@inf
((/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (sqrt 2) 2 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (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)) (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 1 (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/ (* a2 a2) a1) (/ (cos th) a1) (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/ (* th th) a1) (/ 1 a1) (cos th) (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (* 1/2 (* a1 a1)) 1/2 (* (sqrt 2) (cos th)))

rewrite257.0ms (5.6%)

Memory
8.8MiB live, 284.7MiB allocated; 98ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
05425029
05914650
137584589
096874437
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
186 → 577
Calls
Call 1
Inputs
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 2 binary64))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(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 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.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)
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64)))
(/.f64 (*.f64 a2 a2) a1)
#s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1)))
(fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))
(/.f64 (*.f64 th th) a1)
(/.f64 #s(literal 1 binary64) a1)
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a1 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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) 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 (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (pow a1 2))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (pow a1 2))))
#s(approx (/ (* a2 a2) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ (cos th) a1)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (/ (+ 1 (* -1/2 (pow th 2))) a1)))
#s(approx (/ (* th th) a1) #s(hole binary64 (/ (pow th 2) a1)))
#s(approx (/ 1 a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (* 1/2 (* a1 a1)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a1 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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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)) #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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (cos th)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (* -1 (/ (- (* 1/2 (pow th 2)) 1) a1))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #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)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #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) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (pow a1 2)) (/ (cos th) (pow a2 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/48 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow 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)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (+ (* (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))) (sqrt 2)) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) (sqrt 2)) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* (pow th 2) (+ (/ (* (pow a1 2) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))) (sqrt 2)) (/ (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)))) (/ (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (sqrt 2)))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (sqrt 2)))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/24 (/ 1 (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/720 (/ 1 (sqrt 2))))))))) (* 1/2 (/ 1 (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) #s(hole binary64 (+ 1 (+ (* (pow th 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (+ 1/24 (+ (* 1/24 (/ (pow a2 2) (pow a1 2))) (* (pow th 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720)))))) 1/2)) (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (cos th) a1) #s(hole binary64 (/ 1 a1)))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) a1)) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (/ (cos th) a1) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) a1)) (* 1/24 (/ 1 a1)))) (* 1/2 (/ 1 a1)))) (/ 1 a1))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (/ 1 a1)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) a1)) (/ 1 a1))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #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 (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (* 1/2 (* (pow a1 2) (sqrt 2)))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/2 (* (pow a1 2) (sqrt 2))))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/4 (* (pow a1 2) (sqrt 2))) (* 1/48 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/4 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/48 (* (pow a1 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 (/ (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) 2) #s(hole binary64 (* 1/2 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) #s(hole binary64 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (sqrt 2))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))) (sqrt 2))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (* -1/2 (/ (pow th 2) a1))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) #s(hole binary64 (* (pow th 2) (- (/ 1 (* a1 (pow th 2))) (* 1/2 (/ 1 a1))))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (* (cos th) (sqrt 2))))
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
(*.f64 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal -1 binary64))
(/.f64 (*.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 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 #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 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 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(/.f64 (*.f64 #s(literal -1 binary64) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (neg.f64 (cos.f64 th))) (*.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (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))) (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 (fma.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(/.f64 (*.f64 #s(literal 2 binary64) (+.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 #s(literal 2 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #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 #s(literal 2 binary64) (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (*.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal 4 binary64))
(/.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)) (-.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)) (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 (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 (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) (-.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) (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 (*.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 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) #s(literal 1 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 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (sqrt.f64 #s(literal 2 binary64))))
(/.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) (-.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) (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 #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 (-.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 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 (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 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 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 a2 a2 (*.f64 a1 a1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.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 (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 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(/.f64 (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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.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 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))))
(neg.f64 (-.f64 (neg.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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)))))
(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 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (*.f64 (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 a1 a1) #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 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 #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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 (*.f64 a1 a1) #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))))
(exp.f64 (*.f64 (log.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) #s(literal -1 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(+.f64 (*.f64 (*.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 a1 a1) #s(literal 1/2 binary64)) (*.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 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (cos.f64 th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.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 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 (-.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 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))))))
(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))))
(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 (*.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 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))))
(-.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 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))))
(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 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))))
(neg.f64 (-.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(/.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 (-.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 (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 (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 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.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 (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)))))
(/.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)))))
(neg.f64 (-.f64 (neg.f64 (*.f64 a1 a1)) (*.f64 a2 a2)))
(neg.f64 (-.f64 (neg.f64 (*.f64 a2 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 (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 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 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
a1
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (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
(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)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.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)) (+ (* a2 a2) (* a1 a1))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (/.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 a2 a2))) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))))
(/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (*.f64 (-.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #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) (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)))) (*.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 (*.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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/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 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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/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 (-.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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/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)) (/.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 (*.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(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/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)))) (/.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 (neg.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 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))) (*.f64 a2 a2)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 #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 #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 (-.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) (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 (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 (-.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 (-.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) (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))))))
(/.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)))))
(neg.f64 (-.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)))
(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 (*.f64 th th) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
(*.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)
(/.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 (-.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 (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 (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 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.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 (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)))))
(/.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)))))
(neg.f64 (-.f64 (neg.f64 (*.f64 a1 a1)) (*.f64 a2 a2)))
(neg.f64 (-.f64 (neg.f64 (*.f64 a2 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 (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 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 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (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))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(pow.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal -1 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 3 binary64)) (*.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal -1 binary64)) (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (-.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 3 binary64)) (*.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (-.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 3 binary64)) (*.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (-.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #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)) (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))))))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64)))))
(+.f64 (/.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))))) (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 3 binary64)) (*.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) #s(approx (cos th) #s(literal 1 binary64))))) (neg.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (-.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64)))) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 3 binary64)) (*.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) #s(approx (cos th) #s(literal 1 binary64)))) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(literal 2 binary64)) (-.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64))))))
(neg.f64 (-.f64 (neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1)) #s(approx (cos th) #s(literal 1 binary64))))
(fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64)))
(fma.f64 #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) (/.f64 (*.f64 a2 a2) a1) #s(approx (cos th) #s(literal 1 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1) #s(approx (cos th) #s(literal 1 binary64)))
(+.f64 #s(approx (cos th) #s(literal 1 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))) a1))
(*.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) a1))
(*.f64 a2 (/.f64 a2 a1))
(pow.f64 (/.f64 a1 (*.f64 a2 a2)) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 a1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 a1 (*.f64 a2 a2))))
(/.f64 (*.f64 a2 a2) a1)
(/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2)))
#s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) a1))
(pow.f64 (/.f64 a1 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #s(literal -1 binary64))
(/.f64 (*.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)))) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (neg.f64 a1)))
(/.f64 (*.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)))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (/.f64 a1 #s(literal 1 binary64))))
(/.f64 (*.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)))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) a1))
(/.f64 (*.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)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (neg.f64 a1)))
(/.f64 (*.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)) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (/.f64 a1 #s(literal 1 binary64))))
(/.f64 (*.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)) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)) a1))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal -1 binary64)) (*.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))))) (neg.f64 a1)))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.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 a1 #s(literal 1 binary64))))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64))) #s(literal 1 binary64)) (*.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))))) a1))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th th) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1 binary64)) #s(literal -1 binary64)) (*.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)))) (neg.f64 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th th) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.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 a1 #s(literal 1 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th th) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1 binary64)) #s(literal 1 binary64)) (*.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)))) a1))
(/.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)))) (neg.f64 (-.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) a1))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 th th) a1) #s(literal 3 binary64)) #s(literal -1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a1)))) (neg.f64 (fma.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1))))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (*.f64 a1 a1))) (-.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) a1)))
(/.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 th th) a1) #s(literal 3 binary64)) #s(literal -1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) a1))) (fma.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1)))))
(/.f64 (neg.f64 (fma.f64 (*.f64 th th) #s(literal 1/2 binary64) #s(literal -1 binary64))) (neg.f64 (neg.f64 a1)))
(/.f64 (fma.f64 (*.f64 th th) #s(literal 1/2 binary64) #s(literal -1 binary64)) (neg.f64 a1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 a1 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))))
(/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)
(/.f64 #s(literal 1 binary64) (/.f64 a1 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))
(neg.f64 (-.f64 (neg.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) a1)))
(fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) a1) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 th th) a1) (/.f64 #s(literal 1 binary64) a1))
(+.f64 (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) a1))
(+.f64 (/.f64 #s(literal 1 binary64) a1) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))
(*.f64 (*.f64 th th) (/.f64 #s(literal 1 binary64) a1))
(*.f64 th (/.f64 th a1))
(pow.f64 (/.f64 a1 (*.f64 th th)) #s(literal -1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 th th))) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 (*.f64 th th)) (neg.f64 a1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 a1 (*.f64 th th))))
(/.f64 (*.f64 th th) a1)
(/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 th th)))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) a1))
(pow.f64 (/.f64 a1 #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 a1 #s(literal -1 binary64))
(/.f64 #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (neg.f64 a1)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 a1 #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 a1))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 a1)))
(/.f64 #s(literal 1 binary64) (/.f64 a1 #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) a1)
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 a1 #s(literal 1 binary64))))
(/.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal -1 binary64)))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(*.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.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))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)))
(*.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) a1) a1)
(*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))
(*.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.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)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
#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)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (/ (* a2 a2) a1) (/.f64 (*.f64 a2 a2) a1))
#s(approx (/ (cos th) a1) (/.f64 (cos.f64 th) a1))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))
#s(approx (/ (* th th) a1) (/.f64 (*.f64 th th) a1))
#s(approx (/ 1 a1) (/.f64 #s(literal 1 binary64) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* 1/2 (* a1 a1)) (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.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 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* 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 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* 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) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (neg.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal 1/2 binary64) #s(literal -1 binary64)) a1)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.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 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.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)) (+ (* a2 a2) (* a1 a1))) (*.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)) (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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.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) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 #s(literal -1/1440 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th))) (*.f64 th th))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (*.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 (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 th th)) (*.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 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#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)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.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)) (+ (* a2 a2) (* a1 a1))) (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 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (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 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (*.f64 (fma.f64 a2 a2 (*.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)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 (fma.f64 a2 a2 (*.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 th th)) (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 th th)) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 th th)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/720 binary64)) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.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 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.f64 (-.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.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 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (-.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/720 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (-.f64 (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (+.f64 (fma.f64 (-.f64 (fma.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/720 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) #s(literal 1 binary64)))
#s(approx (/ (cos th) a1) (/.f64 #s(literal 1 binary64) a1))
#s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))
#s(approx (/ (cos th) a1) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 th th) a1)) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (/ (cos th) a1) (fma.f64 (-.f64 (*.f64 (*.f64 th th) (fma.f64 #s(literal -1/720 binary64) (/.f64 (*.f64 th th) a1) (/.f64 #s(literal 1/24 binary64) a1))) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th) (/.f64 #s(literal 1 binary64) a1)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/.f64 #s(literal 1 binary64) a1))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/24 binary64) (/.f64 (*.f64 (fma.f64 a2 a2 (*.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)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 (fma.f64 a2 a2 (*.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 (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (fma.f64 (*.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 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/48 binary64))) (*.f64 th th) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* 1/2 (* a1 a1)) (* (sqrt 2) (cos th))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 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/1440 binary64))) (*.f64 th th))) (*.f64 th th) (*.f64 (*.f64 (*.f64 a1 a1) #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) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 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 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (sqrt 2) (* (+ (* a1 a1) (* a2 a2)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* 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 (* (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))
#s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) a1)) (/.f64 #s(literal 1/2 binary64) a1)) (*.f64 th th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (sqrt 2) (cos th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))

eval67.0ms (1.5%)

Memory
15.4MiB live, 112.0MiB allocated; 21ms collecting garbage
Compiler

Compiled 8 278 to 2 521 computations (69.5% saved)

prune44.0ms (1%)

Memory
-11.1MiB live, 82.9MiB allocated; 5ms collecting garbage
Pruning

38 alts after pruning (34 fresh and 4 done)

PrunedKeptTotal
New58317600
Fresh81725
Picked325
Done022
Total59438632
Accuracy
100.0%
Counts
632 → 38
Alt Table
Click to see full alt table
StatusAccuracyProgram
16.1%
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (cos.f64 th))) #s(literal 2 binary64))
99.2%
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
63.5%
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
99.4%
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)))
63.5%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))))))
98.9%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
62.6%
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
63.4%
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
13.9%
(*.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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
99.6%
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
99.6%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
30.7%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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)))))
52.2%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
99.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
16.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
16.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
69.0%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
99.2%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
✓16.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
13.1%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
14.9%
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64)))))
✓69.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))))
66.8%
#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 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓69.0%
#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))))
✓14.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))))
66.8%
#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 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
14.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))))
69.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)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
14.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)))))
32.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
9.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
38.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
32.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
16.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
38.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
46.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #s(approx (cos th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
69.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
14.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)))))
Compiler

Compiled 1 789 to 1 146 computations (35.9% saved)

regimes155.0ms (3.4%)

Memory
1.7MiB live, 234.9MiB allocated; 16ms collecting garbage
Counts
78 → 1
Calls
Call 1
Inputs
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #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))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(+.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 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))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #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 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (*.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 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (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)))))
(+.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (*.f64 (*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (-.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) th)))) #s(literal 2 binary64)) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 a1 a1)))
Outputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
Calls

8 calls:

22.0ms
a1
21.0ms
th
19.0ms
a2
19.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
19.0ms
(*.f64 a2 a2)
Results
AccuracySegmentsBranch
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(cos.f64 th)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1a1
99.6%1a2
99.6%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes176.0ms (3.9%)

Memory
5.6MiB live, 245.5MiB allocated; 50ms collecting garbage
Counts
76 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #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))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(+.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 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))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #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 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (*.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 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (/ (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a1 a1)) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (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)))))
(+.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (*.f64 (*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Calls

8 calls:

45.0ms
(*.f64 a2 a2)
21.0ms
a2
20.0ms
a1
19.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
18.0ms
th
Results
AccuracySegmentsBranch
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(cos.f64 th)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1a1
99.6%1a2
99.6%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes171.0ms (3.8%)

Memory
45.6MiB live, 255.2MiB allocated; 66ms collecting garbage
Counts
60 → 1
Calls
Call 1
Inputs
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #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))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(+.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 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))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #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 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (*.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 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
Outputs
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Calls

8 calls:

44.0ms
(cos.f64 th)
29.0ms
(*.f64 a2 a2)
19.0ms
a2
18.0ms
a1
17.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(cos.f64 th)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1a1
99.6%1a2
99.6%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes179.0ms (3.9%)

Memory
10.6MiB live, 207.0MiB allocated; 79ms collecting garbage
Counts
57 → 1
Calls
Call 1
Inputs
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #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))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(+.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 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))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #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 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (*.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 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))))
Outputs
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
Calls

8 calls:

57.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)))
26.0ms
a2
25.0ms
th
16.0ms
(cos.f64 th)
14.0ms
a1
Results
AccuracySegmentsBranch
99.2%1(*.f64 a2 a2)
99.2%1(*.f64 a1 a1)
99.2%1(cos.f64 th)
99.2%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.2%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.2%1a1
99.2%1a2
99.2%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes107.0ms (2.3%)

Memory
4.1MiB live, 142.4MiB allocated; 19ms collecting garbage
Counts
51 → 1
Calls
Call 1
Inputs
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #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))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(+.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 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))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #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 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (*.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 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 #s(approx (+ (* (/ (* a2 a2) a1) (/ (cos th) a1)) (cos th)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.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 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Calls

8 calls:

18.0ms
(cos.f64 th)
14.0ms
a1
14.0ms
th
13.0ms
a2
12.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
99.1%1(*.f64 a2 a2)
99.1%1(*.f64 a1 a1)
99.1%1(cos.f64 th)
99.1%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.1%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.1%1a1
99.1%1a2
99.1%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes92.0ms (2%)

Memory
-6.9MiB live, 130.1MiB allocated; 9ms collecting garbage
Counts
46 → 2
Calls
Call 1
Inputs
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/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 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (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 #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))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(+.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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(approx (cos th) (fma.f64 #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #s(literal 1 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))) (*.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 a1 (*.f64 a2 a2))) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) #s(approx (+ (* (/ (* th th) a1) -1/2) (/ 1 a1)) (*.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64)))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a1)) #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 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 a1)) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (*.f64 th (/.f64 th a1)) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(approx (/ (cos th) a1) (fma.f64 (/.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) a1))) #s(approx (cos th) #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))) (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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (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 (*.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 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) #s(approx (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (fma.f64 (*.f64 (*.f64 th th) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) #s(approx (cos th) #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 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
Outputs
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#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:

13.0ms
a1
13.0ms
a2
12.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
11.0ms
th
10.0ms
(cos.f64 th)
Results
AccuracySegmentsBranch
76.1%2(cos.f64 th)
76.1%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
77.7%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%1(*.f64 a2 a2)
69.0%1a2
69.0%1th
69.0%1(*.f64 a1 a1)
69.0%1a1
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes5.0ms (0.1%)

Memory
8.5MiB live, 8.5MiB allocated; 0ms collecting garbage
Counts
16 → 2
Calls
Call 1
Inputs
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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 #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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
Outputs
(*.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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Calls

1 calls:

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)))
Results
AccuracySegmentsBranch
77.7%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Compiler

Compiled 16 to 12 computations (25% saved)

regimes65.0ms (1.4%)

Memory
-21.3MiB live, 25.3MiB allocated; 58ms collecting garbage
Counts
14 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #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))) (*.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 #s(approx (+ (* a1 a1) (* a2 a2)) (*.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 #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(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))))
#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 (/ 1 (/ (sqrt 2) (* (+ (* a2 a2) (* a1 a1)) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/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 a2 a2 (*.f64 a1 a1)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.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)))
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

4 calls:

53.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)
3.0ms
(*.f64 a1 a1)
Results
AccuracySegmentsBranch
69.0%1(*.f64 a1 a1)
69.0%1(cos.f64 th)
69.0%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
69.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 25 to 27 computations (-8% saved)

regimes8.0ms (0.2%)

Memory
18.5MiB live, 18.5MiB allocated; 0ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
Calls
Call 1
Inputs
#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 (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Calls

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

bsearch1.0ms (0%)

Memory
0.8MiB live, 0.8MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.5630171569180605e-144
-1.1898582773934161e-181
Compiler

Compiled 19 to 18 computations (5.3% saved)

bsearch0.0ms (0%)

Memory
0.5MiB live, 0.5MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.5630171569180605e-144
-1.1898582773934161e-181
Compiler

Compiled 19 to 18 computations (5.3% saved)

derivations350.0ms (7.7%)

Memory
16.5MiB live, 333.6MiB allocated; 46ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 133 to 75 computations (43.6% saved)

preprocess232.0ms (5.1%)

Memory
-22.7MiB live, 217.2MiB allocated; 34ms collecting garbage
Remove

(sort a1 a2)

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 2 421 to 1 959 computations (19.1% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...