Migdal et al, Equation (64)

Time bar (total: 5.0s)

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.2s (24.4%)

Memory
13.5MiB live, 1 024.2MiB allocated; 862ms collecting garbage
Samples
942.0ms8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 680.0ms
ival-div!: 302.0ms (44.4% of total)
ival-cos: 226.0ms (33.3% of total)
ival-mult!: 134.0ms (19.7% of total)
ival-add!: 16.0ms (2.4% of total)
adjust: 2.0ms (0.3% of total)
Bogosity

preprocess46.0ms (0.9%)

Memory
1.3MiB live, 47.5MiB allocated; 4ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
041133
1177133
2793133
33291133
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.6%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 38 to 24 computations (36.8% saved)

series19.0ms (0.4%)

Memory
35.2MiB live, 35.2MiB allocated; 0ms collecting garbage
Counts
12 → 32
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
Calls

9 calls:

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

rewrite169.0ms (3.4%)

Memory
-6.1MiB live, 176.0MiB allocated; 25ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0156968
0170848
1995810
08438758
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
44 → 147
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
Outputs
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))))))
(/.f64 (fma.f64 (neg.f64 (cos.f64 th)) (*.f64 a2 a2) (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (neg.f64 a1) a1) (cos.f64 th) (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (*.f64 (neg.f64 a2) a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))))) (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #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))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
a1
(*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (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))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.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 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 (*.f64 #s(literal -1/720 binary64) (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 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th a1) (*.f64 th a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th a1) (*.f64 th a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th a1) (*.f64 th a1)) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th a2) (*.f64 th a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th a2) (*.f64 th a2)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th a2) (*.f64 th a2)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))

eval16.0ms (0.3%)

Memory
-15.9MiB live, 30.3MiB allocated; 3ms collecting garbage
Compiler

Compiled 3 811 to 549 computations (85.6% saved)

prune11.0ms (0.2%)

Memory
20.4MiB live, 20.4MiB allocated; 0ms collecting garbage
Pruning

15 alts after pruning (15 fresh and 0 done)

PrunedKeptTotal
New12115136
Fresh000
Picked101
Done000
Total12215137
Accuracy
100.0%
Counts
137 → 15
Alt Table
Click to see full alt table
StatusAccuracyProgram
99.6%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
▶99.7%
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
99.6%
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
99.6%
(/.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))
▶99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
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)))
▶64.6%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.3%
(+.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)))
96.3%
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
34.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
99.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
▶51.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
93.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
Compiler

Compiled 766 to 484 computations (36.8% saved)

series68.0ms (1.4%)

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

9 calls:

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

rewrite316.0ms (6.3%)

Memory
-3.8MiB live, 267.4MiB allocated; 58ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03862890
04422694
124202606
098592538
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
118 → 475
Calls
Call 1
Inputs
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(cos.f64 th)
th
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a1)
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
(+.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 a2 a2)
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))
(*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64))
(/.f64 a2 (*.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* a2 (/ a2 (* a1 a1))) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ a2 (* a1 a1)) #s(hole binary64 (/ a2 (pow a1 2))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) 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)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) #s(hole binary64 1))
#s(approx (+ (* a2 (/ a2 (* a1 a1))) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) 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)) (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) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) #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) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) #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) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) #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) #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) a1) (sqrt 2)) a1) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a1 (pow th 2)) (sqrt 2))) (/ a1 (sqrt 2)))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* 1/24 (/ (* a1 (pow th 2)) (sqrt 2))))) (/ a1 (sqrt 2)))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (pow th 2)) (sqrt 2))) (* 1/24 (/ a1 (sqrt 2))))))) (/ a1 (sqrt 2)))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 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) #s(hole binary64 (pow th 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) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#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) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
Outputs
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (fma.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))
(-.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
a2
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1)
(*.f64 a1 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a1)
(*.f64 a1 (cos.f64 th))
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.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) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (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 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (+.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 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #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)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 2 binary64))))) (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 2 binary64))))))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1)) (pow.f64 (*.f64 (neg.f64 a2) a2) #s(literal 3 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (fma.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a2) a2) (*.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2)))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2)) (pow.f64 (*.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (fma.f64 (*.f64 (neg.f64 a1) a1) (*.f64 (neg.f64 a1) a1) (*.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (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) a1) (*.f64 (*.f64 a1 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) 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) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (fabs.f64 (fabs.f64 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 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (/.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 a1 a1) (*.f64 a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.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 (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2)) (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) 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 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1)) (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 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 (*.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))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) #s(literal 2 binary64)) (fma.f64 (*.f64 (neg.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) (*.f64 (neg.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) (*.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))))
(/.f64 (fma.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (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) a1) (*.f64 (*.f64 a1 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) a1) (*.f64 (*.f64 a1 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 (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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.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)))))
(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 (*.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 a1 a1)) (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.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))) (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 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (*.f64 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 (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))))))
(+.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 (neg.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) (*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 th th))))))
(/.f64 (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))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) th) th #s(literal 1 binary64))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 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 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 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 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 th th)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (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 #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) (+.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 (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 (*.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 (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))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) (*.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))))
(/.f64 (+.f64 (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 (+.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 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (*.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) a1) (*.f64 (*.f64 a1 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 (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) a1) (*.f64 (*.f64 a1 a1) a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (-.f64 (/.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 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 (/.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 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.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 (/.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 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(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 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 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 (pow.f64 (*.f64 (*.f64 a1 a1) (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))) (sqrt.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (/.f64 (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (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 (/.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 (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 (/.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))) 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 (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 3 binary64)) (pow.f64 (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (fma.f64 (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th))))))
(/.f64 (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))))))
(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 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (/.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 a1 a1) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 3 binary64)) (+.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 (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)))))))
(+.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1)) (pow.f64 (*.f64 (neg.f64 a2) a2) #s(literal 3 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (fma.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a2) a2) (*.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2)))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2)) (pow.f64 (*.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (fma.f64 (*.f64 (neg.f64 a1) a1) (*.f64 (neg.f64 a1) a1) (*.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (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) a1) (*.f64 (*.f64 a1 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) 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) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (fabs.f64 (fabs.f64 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 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (/.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 a1 a1) (*.f64 a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.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 (*.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 a2 a2)) (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) 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 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) (*.f64 (*.f64 a1 a1) a1)) (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 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 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1)
(*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (*.f64 (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (*.f64 (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64))) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (neg.f64 (cos.f64 th))) (*.f64 (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (cos.f64 th)) (*.f64 (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))) (neg.f64 (cos.f64 th))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))) (cos.f64 th)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64)) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64)) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64))) (cos.f64 th)) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))
(/.f64 (*.f64 (cos.f64 th) (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))))
(/.f64 (*.f64 (cos.f64 th) (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (cos.f64 th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a1 a1)) (*.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a2 a2)))) (*.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a1 a1))))
(/.f64 (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64) (*.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 a2 a2) #s(literal 2 binary64) (*.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a1 a1)) (*.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a2 a2)))) (*.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a1 a1))))
(/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 a1 a1) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (*.f64 #s(literal 2 binary64) (*.f64 a1 a1)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64))) (neg.f64 (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))) (neg.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2)))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (*.f64 a1 a1)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 a1 a1))
(fma.f64 (/.f64 (fabs.f64 a2) (fabs.f64 a1)) (/.f64 (fabs.f64 a2) (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (neg.f64 a1)) (/.f64 a2 (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))
(fma.f64 a2 (/.f64 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))) (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))) (/.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))
(-.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (/.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (neg.f64 a2) a2) (*.f64 a1 a1)))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))))))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))) (/.f64 (pow.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))))))
(+.f64 (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))
(/.f64 (neg.f64 (/.f64 a2 a1)) (neg.f64 a1))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(/.f64 (/.f64 a2 a1) a1)
(/.f64 (neg.f64 a2) (neg.f64 (*.f64 a1 a1)))
(/.f64 a2 (*.f64 a1 a1))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (* (cos th) a1) (sqrt 2)) (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a1) (*.f64 (cos.f64 th) a1))
#s(approx a1 a1)
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 a1 a1)))
#s(approx (+ (* a2 (/ a2 (* a1 a1))) 1) (*.f64 (/.f64 a2 (*.f64 a1 a1)) a2))
#s(approx (+ (* a2 (/ a2 (* a1 a1))) 1) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))
#s(approx (/ a2 (* a1 a1)) (/.f64 a2 (*.f64 a1 a1)))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) 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 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) #s(literal 1 binary64))
#s(approx (+ (* a2 (/ a2 (* a1 a1))) 1) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))
#s(approx a2 a2)
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (+.f64 (/.f64 (cos.f64 th) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a2 (/ a2 (* a1 a1))) 1) (fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (*.f64 a2 a2) #s(literal 1 binary64)))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (fma.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (* (cos th) a1) (sqrt 2)) a1) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a1) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a1) (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a1)) (*.f64 th th) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a1)) (*.f64 #s(literal -1/2 binary64) a1)) (*.f64 th th) a1))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* th th) (*.f64 th th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.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)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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 (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) (cos.f64 th))
#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 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))

eval72.0ms (1.4%)

Memory
32.7MiB live, 78.3MiB allocated; 5ms collecting garbage
Compiler

Compiled 21 126 to 2 127 computations (89.9% saved)

prune53.0ms (1.1%)

Memory
3.8MiB live, 60.2MiB allocated; 7ms collecting garbage
Pruning

27 alts after pruning (26 fresh and 1 done)

PrunedKeptTotal
New48421505
Fresh5510
Picked415
Done000
Total49327520
Accuracy
100.0%
Counts
520 → 27
Alt Table
Click to see full alt table
StatusAccuracyProgram
99.6%
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
96.4%
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
▶99.6%
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
99.6%
(/.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))
99.5%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
34.3%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
99.4%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
16.7%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
▶65.8%
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.6%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
34.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
64.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
▶99.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
51.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 a1 a1)))
93.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
61.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
30.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
16.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
▶44.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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)))
13.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
▶64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
99.4%
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Compiler

Compiled 1 679 to 1 024 computations (39% saved)

series47.0ms (0.9%)

Memory
-32.0MiB live, 101.3MiB allocated; 18ms collecting garbage
Counts
33 → 76
Calls
Call 1
Inputs
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(cos.f64 th)
th
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
a1
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #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 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (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 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
Outputs
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* a1 (/ a1 (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #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 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (/ (cos th) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))))) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (/ 1 (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (* (pow a1 2) (sqrt 2)))) (/ 1 (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (* (pow a1 2) (sqrt 2)))))) (/ 1 (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (* (pow a1 2) (sqrt 2)))))) (* 1/2 (/ 1 (* (pow a1 2) (sqrt 2)))))) (/ 1 (* (pow a1 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#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 (+ (* (* 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 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
Calls

9 calls:

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

rewrite262.0ms (5.2%)

Memory
-4.7MiB live, 288.1MiB allocated; 50ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03692850
04132697
123022569
095392464
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
109 → 293
Calls
Call 1
Inputs
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(cos.f64 th)
th
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
a1
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #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 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (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 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* a1 (/ a1 (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #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 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (/ (cos th) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))))) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (/ 1 (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (* (pow a1 2) (sqrt 2)))) (/ 1 (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (* (pow a1 2) (sqrt 2)))))) (/ 1 (* (pow a1 2) (sqrt 2))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (* (pow a1 2) (sqrt 2)))) (* 1/24 (/ 1 (* (pow a1 2) (sqrt 2)))))) (* 1/2 (/ 1 (* (pow a1 2) (sqrt 2)))))) (/ 1 (* (pow a1 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#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 (+ (* (* 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 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
Outputs
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (fma.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))
(-.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) a2))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))))
(+.f64 (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
a1
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2)
(*.f64 a2 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
(*.f64 a2 (cos.f64 th))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(*.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 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 (-.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 (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 (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2))) (neg.f64 #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) a2) (*.f64 (*.f64 a2 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 (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) a2) (*.f64 (*.f64 a2 a2) a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (*.f64 #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) a2) (*.f64 (*.f64 a2 a2) a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (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 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 #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 #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 #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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.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 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) (*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 th th))))))
(/.f64 (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))))))
(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 (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 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 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 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 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 th th)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (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 #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) (+.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 (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 (*.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 (-.f64 (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1)) (pow.f64 (*.f64 (neg.f64 a2) a2) #s(literal 3 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (fma.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a2) a2) (*.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2)))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)) (pow.f64 (*.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (fma.f64 (*.f64 (neg.f64 a1) a1) (*.f64 (neg.f64 a1) a1) (*.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (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) a2) (*.f64 (*.f64 a2 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) a2) (*.f64 (*.f64 a2 a2) a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (/.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 a1 a1) (*.f64 a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.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 (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)) (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 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 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1)) (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) 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))))))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (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))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
(*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1)
(*.f64 (*.f64 a1 a1) #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) (*.f64 a1 a1))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) a1) (/.f64 (*.f64 a2 a2) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (*.f64 a1 a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))
(*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)))
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(*.f64 a2 (*.f64 a2 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (*.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (cos.f64 th))) (*.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (/.f64 (cos.f64 th) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (/.f64 (cos.f64 th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))
(*.f64 a1 (*.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.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) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* a1 (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx a1 a1)
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#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 (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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 (/ (cos th) (* (* a1 a1) (sqrt 2))) (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a1 a1) (sqrt 2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a1) (/.f64 (*.f64 a2 a2) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 (cos.f64 th) a1) (/.f64 (*.f64 a2 a2) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx a2 a2)
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (+.f64 (/.f64 (cos.f64 th) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) 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) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.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 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.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 (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* th th) (*.f64 th th))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (/.f64 (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 th th)) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 th th)) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 th th)) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (*.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (*.f64 (*.f64 a1 a1) (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 th th) (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) (fma.f64 (/.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (cos th) (* (* a1 a1) (sqrt 2))) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (* 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 a1))) 1) (/ (cos th) (sqrt 2))) (* a1 a1)) (*.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (*.f64 (cos.f64 th) (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))

eval40.0ms (0.8%)

Memory
18.8MiB live, 105.9MiB allocated; 12ms collecting garbage
Compiler

Compiled 13 942 to 1 462 computations (89.5% saved)

prune55.0ms (1.1%)

Memory
5.6MiB live, 98.9MiB allocated; 30ms collecting garbage
Pruning

34 alts after pruning (31 fresh and 3 done)

PrunedKeptTotal
New32316339
Fresh61521
Picked325
Done011
Total33234366
Accuracy
100.0%
Counts
366 → 34
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.6%
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
96.4%
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
64.8%
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
64.4%
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
99.5%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
65.9%
(/.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(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
▶16.7%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
✓65.8%
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
65.8%
(*.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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
65.8%
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶20.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 a1 a1 (*.f64 a2 a2)))
99.6%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
64.3%
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶34.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
64.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
99.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2))
63.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
64.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
93.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
99.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
55.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
16.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
19.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
▶13.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
48.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
16.7%
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
Compiler

Compiled 2 073 to 1 289 computations (37.8% saved)

series54.0ms (1.1%)

Memory
0.6MiB live, 88.2MiB allocated; 18ms collecting garbage
Counts
34 → 83
Calls
Call 1
Inputs
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(cos.f64 th)
th
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) a2)
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
(*.f64 (*.f64 th th) #s(literal -1/2 binary64))
(*.f64 th th)
#s(literal -1/2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
Outputs
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* a1 a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 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 (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (+ (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* -1/2 (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* -1/2 (pow a2 2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (* a1 a1) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (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) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* -1/2 (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2)))))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* -1/2 (pow a1 2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (+ (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (* (pow a2 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (- (* -1/2 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2)))))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (- (* -1/2 (/ (pow a1 2) (pow a2 2))) 1/2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #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) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #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) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #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) (/ a1 (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* a1 (pow th 2)) (sqrt 2))) (/ a1 (sqrt 2)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* 1/24 (/ (* a1 (pow th 2)) (sqrt 2))))) (/ a1 (sqrt 2)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (pow th 2)) (sqrt 2))) (* 1/24 (/ a1 (sqrt 2))))))) (/ a1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (* th th) -1/2) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* 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) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2)))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (+ (/ (pow a1 2) (* (pow th 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
Calls

9 calls:

TimeVariablePointExpression
14.0ms
a1
@inf
((+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (* (cos th) (/ a1 (sqrt 2))) (cos th) th (/ a1 (sqrt 2)) a1 (sqrt 2) 2 (* (* (cos th) a2) (/ a2 (sqrt 2))) (* (cos th) a2) a2 (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* (* th th) -1/2) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* -1/2 (+ (* a1 a1) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (* (* a1 a1) (cos th)))
11.0ms
a1
@0
((+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (* (cos th) (/ a1 (sqrt 2))) (cos th) th (/ a1 (sqrt 2)) a1 (sqrt 2) 2 (* (* (cos th) a2) (/ a2 (sqrt 2))) (* (cos th) a2) a2 (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* (* th th) -1/2) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* -1/2 (+ (* a1 a1) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (* (* a1 a1) (cos th)))
7.0ms
th
@-inf
((+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (* (cos th) (/ a1 (sqrt 2))) (cos th) th (/ a1 (sqrt 2)) a1 (sqrt 2) 2 (* (* (cos th) a2) (/ a2 (sqrt 2))) (* (cos th) a2) a2 (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* (* th th) -1/2) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* -1/2 (+ (* a1 a1) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (* (* a1 a1) (cos th)))
4.0ms
a2
@inf
((+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (* (cos th) (/ a1 (sqrt 2))) (cos th) th (/ a1 (sqrt 2)) a1 (sqrt 2) 2 (* (* (cos th) a2) (/ a2 (sqrt 2))) (* (cos th) a2) a2 (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* (* th th) -1/2) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* -1/2 (+ (* a1 a1) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (* (* a1 a1) (cos th)))
4.0ms
a1
@-inf
((+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (* (cos th) (/ a1 (sqrt 2))) (cos th) th (/ a1 (sqrt 2)) a1 (sqrt 2) 2 (* (* (cos th) a2) (/ a2 (sqrt 2))) (* (cos th) a2) a2 (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a1 a1) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* (* th th) -1/2) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* -1/2 (+ (* a1 a1) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (* (* a1 a1) (cos th)))

rewrite203.0ms (4.1%)

Memory
31.6MiB live, 176.6MiB allocated; 35ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03792813
04322651
123502553
081532462
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
117 → 371
Calls
Call 1
Inputs
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(cos.f64 th)
th
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) a2)
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
(*.f64 (*.f64 th th) #s(literal -1/2 binary64))
(*.f64 th th)
#s(literal -1/2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* a1 a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 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 (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (+ (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* -1/2 (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* -1/2 (pow a2 2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (* a1 a1) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (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) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* -1/2 (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2)))))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* -1/2 (pow a1 2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (+ (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (* (pow a2 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (- (* -1/2 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2)))))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (- (* -1/2 (/ (pow a1 2) (pow a2 2))) 1/2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #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) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #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) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) #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) (/ a1 (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* a1 (pow th 2)) (sqrt 2))) (/ a1 (sqrt 2)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* 1/24 (/ (* a1 (pow th 2)) (sqrt 2))))) (/ a1 (sqrt 2)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (pow th 2)) (sqrt 2))) (* 1/24 (/ a1 (sqrt 2))))))) (/ a1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (* th th) -1/2) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* 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) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2)))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (+ (/ (pow a1 2) (* (pow th 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
Outputs
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2))))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2) (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(fma.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(fma.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(fma.f64 a1 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))) (/.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))))
(-.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))))) (/.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))))))
(+.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)) (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(+.f64 (*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2)))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (cos.f64 th) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
a1
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
(*.f64 a2 (cos.f64 th))
a2
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (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))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.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)))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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))) (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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))) (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) a2) (*.f64 (*.f64 a2 a2) a2))) (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) a2) (*.f64 (*.f64 a2 a2) a2))) #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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 (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))) (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (*.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 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) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (*.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.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 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
(*.f64 (*.f64 th th) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (*.f64 th th))
(*.f64 th (*.f64 th #s(literal -1/2 binary64)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (exp.f64 (log.f64 th)) (exp.f64 (log.f64 th)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (exp.f64 (log.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))))
#s(literal -1/2 binary64)
(/.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) a2) (*.f64 (*.f64 a2 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) a2) (*.f64 (*.f64 a2 a2) a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (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 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (/.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 a1 a1) (*.f64 a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.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 (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)) (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 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 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1)) (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) 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))))))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (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))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (+.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.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 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (+.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 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))) (*.f64 (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 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) #s(literal 2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.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))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)))) (*.f64 (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 2 binary64)))) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)))) (*.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)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)))) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 3 binary64)) (pow.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 3 binary64)) (pow.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 (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))))
(fma.f64 (*.f64 th th) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))) (neg.f64 (+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(+.f64 (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (neg.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2))))) (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1)) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)))) (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))))
(fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 a2 a2) #s(literal -1/2 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))) (/.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1))) (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2))) (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.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) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (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 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (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 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #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)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 a1 (/.f64 a1 (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 (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (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 (/.f64 (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 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) a2) (*.f64 (*.f64 a2 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) a2) (*.f64 (*.f64 a2 a2) a2))) (fma.f64 (*.f64 a1 a1) (*.f64 a1 a1) (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (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 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (/.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 a1 a1) (*.f64 a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (-.f64 (*.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 (*.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a2 a2) a2)) (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 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 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 a1 a1)) (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) 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))))))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(/.f64 (neg.f64 (neg.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 (cos.f64 th) (*.f64 a1 a1))
(*.f64 a1 (*.f64 (cos.f64 th) a1))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx a1 a1)
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* a1 a1) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 a1) (*.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 (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (/.f64 (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (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) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (* (* a1 a1) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -1/2 binary64) (+.f64 (/.f64 (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 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx a2 a2)
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -1/2 binary64) (+.f64 (/.f64 (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 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a2 a2)))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (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) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (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) (/ a1 (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) a1) (*.f64 #s(literal -1/2 binary64) a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (/ a1 (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) a1 (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (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))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 1/24 binary64) (*.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)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (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)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* th th) -1/2) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 1/24 binary64) (*.f64 (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) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th) (*.f64 (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) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th)))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
#s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))

eval54.0ms (1.1%)

Memory
-5.2MiB live, 90.5MiB allocated; 16ms collecting garbage
Compiler

Compiled 19 732 to 1 787 computations (90.9% saved)

prune47.0ms (0.9%)

Memory
-22.5MiB live, 67.9MiB allocated; 7ms collecting garbage
Pruning

37 alts after pruning (32 fresh and 5 done)

PrunedKeptTotal
New42514439
Fresh81826
Picked235
Done123
Total43637473
Accuracy
100.0%
Counts
473 → 37
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓99.6%
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
96.4%
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
64.8%
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
99.4%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
✓16.7%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
16.7%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
16.9%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64)))
16.7%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
13.4%
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
20.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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
20.9%
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.6%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
64.3%
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
35.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
64.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
99.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2))
63.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
64.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
93.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
99.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
55.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
16.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
19.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
✓13.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
13.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
38.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
13.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
48.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
16.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
20.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
16.7%
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
Compiler

Compiled 1 328 to 789 computations (40.6% saved)

regimes1.3s (25.4%)

Memory
19.9MiB live, 1 649.3MiB allocated; 281ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts
1 → 1
4 → 1
6 → 1
8 → 2
23 → 2
36 → 2
38 → 1
45 → 1
47 → 1
60 → 1
61 → 1
63 → 1
67 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
Call 2
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
Call 3
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Call 4
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
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))) #s(approx (+ (* a1 a1) (* 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))))
Call 5
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Call 6
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
Call 7
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
Outputs
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Call 8
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
Call 9
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
Outputs
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
Call 10
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #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 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 a1 a1)))
Outputs
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
Call 11
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #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 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
Outputs
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
Call 12
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #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 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
Outputs
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
Call 13
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 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 (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) 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))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (/ (* (cos th) a2) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.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 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 th) (*.f64 a1 th)) #s(literal -1/2 binary64) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 #s(approx (cos th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) #s(approx (* (* a2 a2) (/ (cos th) (* (* a1 a1) (sqrt 2)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 #s(approx (cos th) #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (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 #s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (cos th) (* a1 (/ a1 (sqrt 2)))) (* (/ (* (cos th) a2) (sqrt 2)) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (cos th) (* a2 (/ a2 (sqrt 2)))) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (* (cos th) (/ a1 (sqrt 2))) a1) (* (* (cos th) a2) (/ a2 (sqrt 2)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(approx (/ (* (cos th) a1) (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
(+.f64 #s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 (cos.f64 th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (+ (* a2 (/ a2 (* a1 a1))) 1) (/ (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)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 (*.f64 a1 a1)) a2 #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 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2))
(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 (*.f64 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 (*.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)))
Outputs
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
Calls

90 calls:

55.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)))
44.0ms
a1
43.0ms
(cos.f64 th)
33.0ms
(*.f64 a2 a2)
32.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
13.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)))
13.2%1(*.f64 a1 a1)
13.2%1a1
13.2%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
13.2%1(cos.f64 th)
13.2%1(*.f64 a2 a2)
13.2%1th
13.2%1a2
64.4%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.4%1(*.f64 a1 a1)
64.4%1a1
64.4%1(*.f64 a2 a2)
64.4%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
64.4%1(cos.f64 th)
64.4%1th
64.4%1a2
64.4%1(*.f64 a1 a1)
64.4%1a1
64.4%1(*.f64 a2 a2)
64.4%1th
64.4%1a2
64.4%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
64.4%1(cos.f64 th)
64.4%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
78.6%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
78.6%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
78.6%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
68.9%2(*.f64 a2 a2)
67.5%2(*.f64 a1 a1)
78.3%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
78.3%2(cos.f64 th)
69.2%2th
69.5%2a2
69.2%3a1
99.4%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.4%1(*.f64 a2 a2)
99.4%1(*.f64 a1 a1)
99.4%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.4%1(cos.f64 th)
99.4%1th
99.4%1a2
99.4%1a1
99.5%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.5%1(*.f64 a2 a2)
99.5%1(*.f64 a1 a1)
99.5%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.5%1(cos.f64 th)
99.5%1th
99.5%1a2
99.5%1a1
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(cos.f64 th)
99.6%1th
99.6%1a2
99.6%1a1
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(cos.f64 th)
99.6%1th
99.6%1a2
99.6%1a1
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(cos.f64 th)
99.6%1th
99.6%1a2
99.6%1a1
99.6%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.6%1(*.f64 a2 a2)
99.6%1(*.f64 a1 a1)
99.6%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.6%1(cos.f64 th)
99.6%1th
99.6%1a2
99.6%1a1
99.7%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.7%1(*.f64 a2 a2)
99.7%1(*.f64 a1 a1)
99.7%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.7%1(cos.f64 th)
99.7%1th
99.7%1a2
99.7%1a1
Compiler

Compiled 2 581 to 779 computations (69.8% saved)

bsearch1.0ms (0%)

Memory
1.4MiB live, 1.4MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.856049608205491e-94
-6.035411660776949e-169
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.8MiB live, 0.8MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.856049608205491e-94
-6.035411660776949e-169
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.7MiB live, 0.7MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.856049608205491e-94
-6.035411660776949e-169
Compiler

Compiled 22 to 18 computations (18.2% saved)

derivations636.0ms (12.8%)

Memory
-9.8MiB live, 752.6MiB allocated; 112ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 492 to 95 computations (80.7% saved)

preprocess331.0ms (6.6%)

Memory
68.3MiB live, 616.3MiB allocated; 115ms collecting garbage
Remove

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 6 753 to 3 473 computations (48.6% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...