Migdal et al, Equation (64)

Time bar (total: 4.3s)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory
0.4MiB live, 0.4MiB 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.1s (26.6%)

Memory
5.5MiB live, 1 018.4MiB allocated; 874ms collecting garbage
Samples
863.0ms8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 390.0ms
ival-cos: 200.0ms (51.3% of total)
ival-mult!: 134.0ms (34.3% of total)
ival-div!: 39.0ms (10% of total)
ival-add!: 16.0ms (4.1% of total)
adjust: 2.0ms (0.5% of total)
Bogosity

preprocess57.0ms (1.3%)

Memory
-0.6MiB live, 45.2MiB allocated; 6ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 32 to 24 computations (25% saved)

series19.0ms (0.5%)

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

9 calls:

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

rewrite214.0ms (5%)

Memory
-12.6MiB live, 168.6MiB allocated; 27ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0156968
0170848
11120812
08021760
127643760
Stop Event
1×saturated
1×node-limit
1×iter-limit
Counts
44 → 158
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 (fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (+.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (+.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(neg.f64 (-.f64 (*.f64 (neg.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)))
(neg.f64 (-.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
(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 (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(fma.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(fma.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 #s(literal 1 binary64) (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (neg.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (neg.f64 (cos.f64 th)) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 th) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 th) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 th (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
th
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
a1
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(*.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(*.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th a1) (*.f64 th a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th a1) (*.f64 th a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th a1) (*.f64 th a1)) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (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 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th a2) (*.f64 th a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th a2) (*.f64 th a2)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th a2) (*.f64 th a2)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))

eval15.0ms (0.3%)

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

Compiled 1 709 to 527 computations (69.2% saved)

prune9.0ms (0.2%)

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

10 alts after pruning (10 fresh and 0 done)

PrunedKeptTotal
New13710147
Fresh000
Picked101
Done000
Total13810148
Accuracy
100.0%
Counts
148 → 10
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.5%
(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))
▶99.3%
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
59.9%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.2%
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))
99.2%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶29.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶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.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
▶99.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Compiler

Compiled 388 to 318 computations (18% saved)

series55.0ms (1.3%)

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

9 calls:

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

rewrite257.0ms (6%)

Memory
33.2MiB live, 214.8MiB allocated; 26ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03562631
03952381
125962300
0102192224
1339212224
Stop Event
1×saturated
1×node-limit
1×iter-limit
Counts
101 → 333
Calls
Call 1
Inputs
(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))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
a2
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal -1/2 binary64)
(*.f64 th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(*.f64 a2 a2)
(*.f64 (*.f64 a1 a1) (cos.f64 th))
#s(approx (+ (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) a1)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx a1 #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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (+ (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (pow a2 2) (sqrt 2)))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #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) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) a1)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (pow a1 2) (sqrt 2)))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2)))))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (+ (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) a1)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (* (pow a2 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (- (* -1/2 (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))) (* 1/2 (/ 1 (sqrt 2)))))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* (* (/ (cos th) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) 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) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) 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) (sqrt 2)) a2) a2) (* (* (/ (cos th) (sqrt 2)) a1) 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) (sqrt 2)) a2) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) #s(hole binary64 (+ (* -1/2 (/ (* a1 (pow th 2)) (sqrt 2))) (/ a1 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* 1/24 (/ (* a1 (pow th 2)) (sqrt 2))))) (/ a1 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a1 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (pow th 2)) (sqrt 2))) (* 1/24 (/ a1 (sqrt 2))))))) (/ a1 (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (* (* (/ (cos th) (sqrt 2)) 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 (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (+ (* 1/24 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (pow a1 2)) (* -1/720 (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) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (+ (/ (pow a1 2) (* (pow th 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))))))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (sqrt 2))))
Outputs
(*.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.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 (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 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (*.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 (*.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 (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 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.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 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (/.f64 (*.f64 (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 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (*.f64 (neg.f64 (*.f64 a1 a1)) (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 (neg.f64 (*.f64 (*.f64 a1 a1) (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 (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) (neg.f64 (*.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) 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 (*.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) a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (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) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (fabs.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
a2
(*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.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)))
a1
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (*.f64 a1 a1))) (neg.f64 (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 (fma.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (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 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 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 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a2 a2)))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a2 a2) (neg.f64 (*.f64 a1 a1)))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th))
(fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th) (neg.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (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 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (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)))
(fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal -1/2 binary64)
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 th th)
(pow.f64 (neg.f64 (neg.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 th #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 th th) (*.f64 th th)))
(fabs.f64 (neg.f64 (*.f64 th th)))
(fabs.f64 (*.f64 th th))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (+.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 (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 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (*.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 (*.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 (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 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.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 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (/.f64 (*.f64 (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 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (*.f64 (neg.f64 (*.f64 a1 a1)) (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 (neg.f64 (*.f64 (*.f64 a1 a1) (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 (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) (neg.f64 (*.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) 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 (*.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 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 a1 (*.f64 (cos.f64 th) a1) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 a2 (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))
(-.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a1 a1)) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))
(+.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 (cos.f64 th) (*.f64 a1 a1))
(*.f64 a1 (*.f64 (cos.f64 th) a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx 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 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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (/.f64 (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (* a1 a1) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (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 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -1/2 binary64) (+.f64 (/.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx a2 a2)
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (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 (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -1/2 binary64) (+.f64 (/.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (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 (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (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 (*.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 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) a2) (*.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) (sqrt 2)) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) a2 (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) 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) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a1) a1) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) a1) (*.f64 #s(literal -1/2 binary64) a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a1) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) a1 (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* th th) (*.f64 th th))
#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 (*.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) (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 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 (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th)))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))

eval47.0ms (1.1%)

Memory
-20.7MiB live, 69.5MiB allocated; 10ms collecting garbage
Compiler

Compiled 5 053 to 1 471 computations (70.9% saved)

prune24.0ms (0.6%)

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

28 alts after pruning (26 fresh and 2 done)

PrunedKeptTotal
New40824432
Fresh325
Picked325
Done000
Total41428442
Accuracy
100.0%
Counts
442 → 28
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.5%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a1) a1))
▶64.4%
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
65.2%
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
99.3%
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (sqrt.f64 #s(literal 2 binary64)))
99.3%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
98.8%
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
99.2%
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))
▶99.2%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
31.1%
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
99.1%
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
✓99.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
99.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2))
60.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
▶60.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
▶11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
38.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
45.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
14.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
13.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
Compiler

Compiled 1 259 to 1 029 computations (18.3% saved)

series37.0ms (0.9%)

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

9 calls:

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

rewrite217.0ms (5.1%)

Memory
27.1MiB live, 158.5MiB allocated; 17ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03472163
03952038
123881953
091741876
1305581876
Stop Event
1×saturated
1×node-limit
1×iter-limit
Counts
105 → 308
Calls
Call 1
Inputs
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(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))) #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)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2)
#s(literal -1/2 binary64)
(*.f64 (*.f64 th th) a2)
(*.f64 th th)
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (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 (/ (* 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 (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (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) (+ (/ 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 (/ (* (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 (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) #s(hole binary64 (* a2 (+ 1 (* -1/2 (pow th 2))))))
#s(approx (* (* th th) a2) #s(hole binary64 (* a2 (pow th 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (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 (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) #s(hole binary64 (* -1 (/ (* a2 (- (* 1/2 (pow th 2)) 1)) (sqrt 2)))))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) #s(hole binary64 (* -1 (* a2 (- (* 1/2 (pow th 2)) 1)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (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) (sqrt 2)) a2) (* (/ (* (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) (sqrt 2)) a2) (* (/ (* (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) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (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) 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)) 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 (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) #s(hole binary64 (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2)))))
#s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (/ a2 (* (pow th 2) (sqrt 2)))))))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) #s(hole binary64 (* -1/2 (* a2 (pow th 2)))))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) #s(hole binary64 (* (pow th 2) (+ (* -1/2 a2) (/ a2 (pow th 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
Outputs
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) a1))
(-.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.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))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (fabs.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
a2
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (*.f64 (cos.f64 th) (/.f64 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 (*.f64 (cos.f64 th) a1) (/.f64 #s(literal 1 binary64) (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))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(fabs.f64 (*.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 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
(*.f64 a2 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2)
(fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2)
(fma.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) a2 a2)
(fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2)
(-.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (neg.f64 a2))
(-.f64 a2 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 th th) a2)))
(-.f64 a2 (neg.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) a2)
(+.f64 a2 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)))
#s(literal -1/2 binary64)
(*.f64 (*.f64 th th) a2)
(*.f64 a2 (*.f64 th th))
(*.f64 th (*.f64 th a2))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 th th)
(pow.f64 (neg.f64 (neg.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 th #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 th th) (*.f64 th th)))
(fabs.f64 (neg.f64 (*.f64 th th)))
(fabs.f64 (*.f64 th th))
(fma.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.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)))
(fma.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a1 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 a2 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (neg.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (neg.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (cos th) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (cos th) #s(literal 1 binary64)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 a1 (/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.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 (fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (+.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (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 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (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)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (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 (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 (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))) a1) a1 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 a2 (*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (cos.f64 th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a2 a2)))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a2 a2) (neg.f64 (*.f64 a1 a1)))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (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 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* a1 a1) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#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 (* (/ (cos th) (sqrt 2)) a2) (*.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 (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2))
#s(approx (* (* th th) a2) (*.f64 (*.f64 th th) a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (*.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 (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 th th) #s(literal -1 binary64)) a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) (neg.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 th th) #s(literal -1 binary64)) a2)))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (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) (sqrt 2)) a2) (* (/ (* (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) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) a2) (*.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) (sqrt 2)) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) a2) (*.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 #s(literal -1/2 binary64) a2) (*.f64 th th) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) a2) (*.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 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) a2) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (* (cos th) 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 a1 (/.f64 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 a1 (/.f64 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)) a2) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* th th) (*.f64 th th))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)))
#s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (*.f64 th th)))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))

eval40.0ms (0.9%)

Memory
7.2MiB live, 60.4MiB allocated; 10ms collecting garbage
Compiler

Compiled 3 397 to 1 277 computations (62.4% saved)

prune27.0ms (0.6%)

Memory
1.4MiB live, 47.9MiB allocated; 3ms collecting garbage
Pruning

35 alts after pruning (30 fresh and 5 done)

PrunedKeptTotal
New30715322
Fresh61521
Picked235
Done022
Total31535350
Accuracy
100.0%
Counts
350 → 35
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))
64.4%
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a1) a1))
65.2%
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
65.2%
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
▶99.3%
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
▶98.8%
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
✓99.2%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
54.0%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))))
99.2%
(*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.3%
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
31.1%
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
99.1%
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
99.1%
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.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 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
✓99.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
99.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2))
60.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
▶60.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
60.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
60.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
36.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)))) a2))
✓11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
16.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
38.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
▶11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
▶14.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
13.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
Compiler

Compiled 1 591 to 1 311 computations (17.6% saved)

series56.0ms (1.3%)

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

9 calls:

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

rewrite233.0ms (5.4%)

Memory
-3.0MiB live, 180.8MiB allocated; 56ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04083225
04542938
128612839
083772745
1263702745
Stop Event
1×saturated
1×node-limit
1×iter-limit
Counts
123 → 318
Calls
Call 1
Inputs
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.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 (/ (+ (* a2 a2) (* a1 a1)) (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)))
(*.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 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 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)
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
(*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2)
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))
(fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))
(*.f64 (*.f64 th th) a2)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(*.f64 (*.f64 a2 a2) (cos.f64 th))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (/ (+ (* 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 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (+ (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (* (pow a1 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (+ (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) #s(hole binary64 (* 1/2 (* a2 (+ (sqrt 2) (* -1/2 (* (pow th 2) (sqrt 2))))))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) #s(hole binary64 (* a2 (+ (sqrt 2) (* -1/2 (* (pow th 2) (sqrt 2)))))))
#s(approx (* (* (* th th) a2) -1/2) #s(hole binary64 (* -1/2 (* a2 (pow th 2)))))
#s(approx (* (* th th) a2) #s(hole binary64 (* a2 (pow th 2))))
#s(approx (* (sqrt 2) a2) #s(hole binary64 (* a2 (sqrt 2))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* 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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (* (pow a2 2) (sqrt 2)))) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) #s(hole binary64 (* -1/2 (* a2 (+ (* -1 (sqrt 2)) (* 1/2 (* (pow th 2) (sqrt 2))))))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) #s(hole binary64 (* -1 (* a2 (+ (* -1 (sqrt 2)) (* 1/2 (* (pow th 2) (sqrt 2))))))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow 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 (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (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 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) #s(hole binary64 (* 1/2 (* a2 (sqrt 2)))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) #s(hole binary64 (+ (* -1/4 (* a2 (* (pow th 2) (sqrt 2)))) (* 1/2 (* a2 (sqrt 2))))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) #s(hole binary64 (+ (* -1/2 (* a2 (* (pow th 2) (sqrt 2)))) (* a2 (sqrt 2)))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (+ (* 1/24 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (pow a1 2)) (* -1/720 (pow a2 2)))))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* a2 a2) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* a2 a2) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* a2 a2) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (+ (/ (pow a1 2) (* (pow th 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))))))
#s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2)))))
#s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (/ (pow a1 2) (* (pow th 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) #s(hole binary64 (* -1/2 (/ (pow th 2) (sqrt 2)))))
#s(approx (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) #s(hole binary64 (* (pow th 2) (- (/ 1 (* (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (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 (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) #s(hole binary64 (* -1/4 (* a2 (* (pow th 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) #s(hole binary64 (* (pow th 2) (+ (* -1/4 (* a2 (sqrt 2))) (* 1/2 (/ (* a2 (sqrt 2)) (pow th 2)))))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) #s(hole binary64 (* -1/2 (* a2 (* (pow th 2) (sqrt 2))))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (* a2 (sqrt 2))) (/ (* a2 (sqrt 2)) (pow th 2))))))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (sqrt 2))))
Outputs
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (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 (neg.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 (/.f64 (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) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (neg.f64 (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (*.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) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 a2 (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 a1 (*.f64 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 (*.f64 a1 a1) (cos.f64 th)) (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))))
(-.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 a1 a1)) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))))
(+.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(+.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a2 a2)))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a2 a2) (neg.f64 (*.f64 a1 a1)))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
a1
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 a2 a2)
(pow.f64 (fabs.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a2)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)))
(fabs.f64 (neg.f64 (*.f64 a2 a2)))
(fabs.f64 (*.f64 a2 a2))
a2
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (fabs.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 (fabs.f64 th)))
(cos.f64 (fabs.f64 (fabs.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 (fabs.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a1 a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(fabs.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (/ (+ (* a2 a2) (* a1 a1)) (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)))
(*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 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 a1 a1))
(*.f64 (*.f64 a1 a1) (/.f64 (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 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (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 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a1 a1) (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 a1 a1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (*.f64 (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (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 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 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 th th) #s(literal -1/2 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 th th)))
(-.f64 #s(literal 1 binary64) (neg.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 th th)
(pow.f64 (neg.f64 (neg.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (fabs.f64 th)) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 th #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 th th) (*.f64 th th)))
(fabs.f64 (neg.f64 (*.f64 th th)))
(fabs.f64 (*.f64 th th))
#s(literal -1/2 binary64)
#s(literal 1 binary64)
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 a1 a1)
(pow.f64 (fabs.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (fabs.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 (neg.f64 a1)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)))
(fabs.f64 (neg.f64 (*.f64 a1 a1)))
(fabs.f64 (*.f64 a1 a1))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2)
(*.f64 a2 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 1/2 binary64))
(/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (+.f64 a2 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) #s(literal 4 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))) #s(literal -2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))
(fma.f64 (/.f64 (*.f64 (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) a2 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) a2))
(-.f64 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))
(+.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 (*.f64 th th) a2) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th))
(*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))
(*.f64 (*.f64 th th) (*.f64 a2 #s(literal -1/2 binary64)))
(*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2))
(*.f64 (*.f64 th th) a2)
(*.f64 th (*.f64 th a2))
(*.f64 a2 (*.f64 th th))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)
(*.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
(*.f64 (*.f64 a2 a2) (cos.f64 th))
(*.f64 (cos.f64 th) (*.f64 a2 a2))
(*.f64 a2 (*.f64 (cos.f64 th) a2))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx a1 a1)
#s(approx (/ (+ (* 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 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 th th) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (/.f64 (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a1 a1)) (*.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 (* a1 a1) (*.f64 a1 a1))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (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 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -1/2 binary64) (/.f64 (+.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx a2 a2)
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 1/2 binary64)))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) (*.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (* (* (* th th) a2) -1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th)))
#s(approx (* (* th th) a2) (*.f64 (*.f64 th th) a2))
#s(approx (* (sqrt 2) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (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 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -1/2 binary64) (/.f64 (+.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) a2) #s(literal -1/2 binary64)))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) (neg.f64 (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (/.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 (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (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 (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 th th)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (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 (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (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 (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (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 (*.f64 #s(literal -1/720 binary64) (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 (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* th th) -1/2) 1) (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 (* th th) (*.f64 th th))
#s(approx (* (* (/ (cos th) (sqrt 2)) a2) a2) (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (*.f64 th th) (*.f64 (*.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) (sqrt 2)) a2) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 (*.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) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) a2) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) a2) (*.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) (sqrt 2)) a2) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) a2 (*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) 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 (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (fma.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/2 binary64))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (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))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (* a2 a2) (cos th)) (fma.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (* (* a2 a2) (cos th)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 a2 a2)))
#s(approx (* (* a2 a2) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2))) (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (/ (+ (* a2 a2) (* a1 a1)) (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 (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))
#s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 (fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th)))
#s(approx (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (/.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (*.f64 (*.f64 th th) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
#s(approx (+ (* (* th th) -1/2) 1) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th)))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 th th) (fma.f64 (*.f64 #s(literal -1/4 binary64) a2) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/2 binary64)) (*.f64 th th)))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) (*.f64 (*.f64 #s(literal -1/2 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) a2) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 th th))) (*.f64 th th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))

eval45.0ms (1%)

Memory
16.6MiB live, 69.2MiB allocated; 11ms collecting garbage
Compiler

Compiled 3 799 to 1 546 computations (59.3% saved)

prune36.0ms (0.8%)

Memory
11.7MiB live, 57.9MiB allocated; 3ms collecting garbage
Pruning

37 alts after pruning (31 fresh and 6 done)

PrunedKeptTotal
New34215357
Fresh91625
Picked325
Done145
Total35537392
Accuracy
100.0%
Counts
392 → 37
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))
65.2%
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
54.0%
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
99.3%
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
✓98.8%
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
98.7%
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
12.9%
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
✓99.2%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.2%
(*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
99.1%
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
12.9%
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
99.1%
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.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 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
64.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
99.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
60.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
60.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
64.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/2 binary64)))) a2))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
✓11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
16.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
38.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
✓11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
11.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
17.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
10.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #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))))
15.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
13.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
Compiler

Compiled 1 722 to 1 104 computations (35.9% saved)

regimes191.0ms (4.5%)

Memory
18.6MiB live, 156.6MiB allocated; 19ms collecting garbage
Counts
65 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.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)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 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) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))))
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
(*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (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)))
(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) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 1/2 binary64))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a1) a1))
Outputs
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
Calls

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

regimes115.0ms (2.7%)

Memory
-11.0MiB live, 178.6MiB allocated; 15ms collecting garbage
Counts
60 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.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)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 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) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))))
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
(*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (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)))
(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))
Outputs
(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))
Calls

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

regimes181.0ms (4.2%)

Memory
-2.8MiB live, 135.0MiB allocated; 8ms collecting garbage
Counts
59 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.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)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(fma.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 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) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))))
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2) a2))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
(*.f64 (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 a1 (*.f64 (cos.f64 th) a1))) (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)))
Outputs
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
Calls

8 calls:

53.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)))
46.0ms
(*.f64 a2 a2)
15.0ms
th
14.0ms
a2
14.0ms
a1
Results
AccuracySegmentsBranch
99.3%1(*.f64 a2 a2)
99.3%1(*.f64 a1 a1)
99.3%1(cos.f64 th)
99.3%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.3%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.3%1a1
99.3%1a2
99.3%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes100.0ms (2.3%)

Memory
10.3MiB live, 151.0MiB allocated; 33ms collecting garbage
Counts
46 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.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))))
Calls

8 calls:

22.0ms
a2
12.0ms
(*.f64 a1 a1)
11.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)))
11.0ms
a1
11.0ms
th
Results
AccuracySegmentsBranch
99.3%1(*.f64 a2 a2)
99.3%1(*.f64 a1 a1)
99.3%1(cos.f64 th)
99.3%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.3%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.3%1a1
99.3%1a2
99.3%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes87.0ms (2%)

Memory
-4.1MiB live, 141.3MiB allocated; 11ms collecting garbage
Counts
44 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) (sqrt 2)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (*.f64 (*.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
Outputs
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (/ (* (cos th) a1) (sqrt 2)) a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
Calls

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

regimes75.0ms (1.8%)

Memory
19.4MiB live, 111.6MiB allocated; 5ms collecting garbage
Counts
39 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Calls

8 calls:

11.0ms
a2
10.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
9.0ms
th
9.0ms
a1
9.0ms
(*.f64 a2 a2)
Results
AccuracySegmentsBranch
99.0%1(*.f64 a2 a2)
99.0%1(*.f64 a1 a1)
99.0%1(cos.f64 th)
99.0%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
99.0%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.0%1a1
99.0%1a2
99.0%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes165.0ms (3.9%)

Memory
-9.7MiB live, 125.2MiB allocated; 19ms collecting garbage
Counts
38 → 2
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) #s(literal 1/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 a1 (*.f64 a1 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64)))))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 #s(approx (+ (* -1/2 (* (* th th) a2)) a2) (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th (*.f64 th a2)) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) 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 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.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 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 a1 th) (*.f64 a1 th)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (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 (+ (* (/ (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))))
(fma.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* -1/2 (* (* th th) a2)) a2) (sqrt 2)) (*.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) a2 (/.f64 a2 (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th 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 a1 (/.f64 a1 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 th (*.f64 th a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))) a2))
#s(approx (/ (+ (* (* a2 a2) (cos th)) (* (* a1 a1) (cos th))) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.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)))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a2) #s(approx (/ (+ (* (* (* (* th th) a2) -1/2) (sqrt 2)) (* (sqrt 2) a2)) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) a2) (*.f64 (*.f64 th th) (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))))
Calls

8 calls:

59.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)))
48.0ms
th
12.0ms
(*.f64 a1 a1)
9.0ms
a1
9.0ms
a2
Results
AccuracySegmentsBranch
64.4%1(*.f64 a2 a2)
67.6%2(*.f64 a1 a1)
74.2%2(cos.f64 th)
74.2%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
74.3%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
67.6%2a1
66.8%2a2
66.2%2th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes29.0ms (0.7%)

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

8 calls:

7.0ms
a1
3.0ms
th
3.0ms
a2
3.0ms
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
3.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
64.4%1(*.f64 a2 a2)
64.4%1th
64.4%1a2
64.4%1(*.f64 a1 a1)
64.4%1a1
64.4%1(cos.f64 th)
64.4%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
64.4%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes27.0ms (0.6%)

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

8 calls:

9.0ms
th
3.0ms
a1
3.0ms
a2
2.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
2.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
64.1%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.1%1(cos.f64 th)
64.1%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
64.1%1(*.f64 a1 a1)
64.1%1a1
64.1%1th
64.1%1(*.f64 a2 a2)
64.1%1a2
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes13.0ms (0.3%)

Memory
-18.6MiB live, 27.1MiB allocated; 6ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

8 calls:

4.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
1.0ms
a1
1.0ms
a2
1.0ms
th
1.0ms
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Results
AccuracySegmentsBranch
11.7%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
11.7%1(cos.f64 th)
11.7%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
11.7%1(*.f64 a1 a1)
11.7%1a1
11.7%1th
11.7%1(*.f64 a2 a2)
11.7%1a2
Compiler

Compiled 30 to 40 computations (-33.3% saved)

bsearch1.0ms (0%)

Memory
1.3MiB live, 1.3MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-6.290669301609626e-157
-4.114475736849961e-170
Compiler

Compiled 19 to 18 computations (5.3% saved)

derivations513.0ms (12%)

Memory
-20.2MiB live, 329.8MiB allocated; 134ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 156 to 82 computations (47.4% saved)

preprocess255.0ms (6%)

Memory
16.0MiB live, 342.3MiB allocated; 31ms collecting garbage
Remove

(sort a1 a2)

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 2 948 to 2 230 computations (24.4% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...