Migdal et al, Equation (64)

Time bar (total: 4.6s)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory
0.5MiB live, 0.5MiB allocated; 0ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.9%0.1%0%0%0%0
100%99.9%0%0.1%0%0%0%1
Compiler

Compiled 21 to 14 computations (33.3% saved)

sample1.2s (25.2%)

Memory
34.8MiB live, 1 176.4MiB allocated; 935ms collecting garbage
Samples
897.0ms8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 434.0ms
ival-cos: 204.0ms (47% of total)
ival-mult!: 170.0ms (39.2% of total)
ival-div!: 43.0ms (9.9% of total)
ival-add!: 16.0ms (3.7% of total)
adjust: 1.0ms (0.2% of total)
Bogosity

preprocess70.0ms (1.5%)

Memory
-1.4MiB live, 43.3MiB allocated; 13ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 32 to 24 computations (25% saved)

series19.0ms (0.4%)

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

9 calls:

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

rewrite252.0ms (5.4%)

Memory
-8.5MiB live, 197.6MiB allocated; 44ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval19.0ms (0.4%)

Memory
0.7MiB live, 43.0MiB allocated; 6ms collecting garbage
Compiler

Compiled 2 045 to 581 computations (71.6% saved)

prune11.0ms (0.2%)

Memory
-22.2MiB live, 24.1MiB allocated; 3ms collecting garbage
Pruning

11 alts after pruning (11 fresh and 0 done)

PrunedKeptTotal
New14411155
Fresh000
Picked101
Done000
Total14511156
Accuracy
100.0%
Counts
156 → 11
Alt Table
Click to see full alt table
StatusAccuracyProgram
99.6%
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 a1) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
60.1%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
67.0%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
▶99.7%
(*.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.5%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶30.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
55.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
99.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
98.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
▶15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
Compiler

Compiled 458 to 380 computations (17% saved)

series52.0ms (1.1%)

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

9 calls:

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

rewrite187.0ms (4.1%)

Memory
-2.7MiB live, 178.2MiB allocated; 27ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval51.0ms (1.1%)

Memory
25.6MiB live, 113.5MiB allocated; 10ms collecting garbage
Compiler

Compiled 7 451 to 1 808 computations (75.7% saved)

prune60.0ms (1.3%)

Memory
1.9MiB live, 61.1MiB allocated; 9ms collecting garbage
Pruning

34 alts after pruning (31 fresh and 3 done)

PrunedKeptTotal
New47830508
Fresh516
Picked235
Done000
Total48534519
Accuracy
100.0%
Counts
519 → 34
Alt Table
Click to see full alt table
StatusAccuracyProgram
67.0%
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (* a2 a2) (cos th)) (*.f64 a2 a2)))) #s(literal 1/2 binary64))
97.7%
(*.f64 (fma.f64 #s(approx (* (* a1 a1) (cos th)) (*.f64 a1 a1)) (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.5%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
67.0%
(*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶99.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2))) #s(literal 1/2 binary64))
15.2%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) #s(literal 1/2 binary64))
67.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal 1/2 binary64))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (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)))))
▶29.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
▶30.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
55.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 #s(approx (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
66.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
14.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
14.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
66.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
98.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
17.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
17.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
▶12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
28.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
29.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (fma.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (*.f64 th th) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
7.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 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))))
▶61.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
16.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
16.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.f64 (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))
Compiler

Compiled 1 807 to 1 443 computations (20.1% saved)

series42.0ms (0.9%)

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

9 calls:

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

rewrite228.0ms (4.9%)

Memory
3.3MiB live, 225.0MiB allocated; 63ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval51.0ms (1.1%)

Memory
9.7MiB live, 117.5MiB allocated; 18ms collecting garbage
Compiler

Compiled 7 245 to 2 161 computations (70.2% saved)

prune77.0ms (1.7%)

Memory
-18.8MiB live, 74.4MiB allocated; 7ms collecting garbage
Pruning

38 alts after pruning (33 fresh and 5 done)

PrunedKeptTotal
New42213435
Fresh62026
Picked325
Done033
Total43138469
Accuracy
100.0%
Counts
469 → 38
Alt Table
Click to see full alt table
StatusAccuracyProgram
67.0%
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (* a2 a2) (cos th)) (*.f64 a2 a2)))) #s(literal 1/2 binary64))
✓99.5%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶98.9%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) a2) a2)) #s(literal 1/2 binary64))
✓99.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2))) #s(literal 1/2 binary64))
60.7%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (*.f64 a2 a2))) #s(literal 1/2 binary64))
15.2%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) #s(literal 1/2 binary64))
67.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal 1/2 binary64))
66.4%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 #s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal 1/2 binary64))
30.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (*.f64 (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)) th) th (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (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)))))
54.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 #s(approx (* -1/2 (* (+ (* a2 a2) (* a1 a1)) (/ 1 (sqrt 2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
66.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
14.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
▶14.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
66.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
▶12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
98.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
17.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
17.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
✓12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
▶28.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
61.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
16.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
61.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
16.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
66.3%
#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) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
61.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (*.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 a2 a2))))
▶60.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 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
15.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a2 a2)) (*.f64 (/.f64 (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
13.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (* (+ (* a2 a2) (* a1 a1)) (/ 1 (sqrt 2)))) (* th th)) (* (+ (* a2 a2) (* a1 a1)) (/ 1 (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)))))
Compiler

Compiled 2 154 to 1 704 computations (20.9% saved)

series72.0ms (1.6%)

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

9 calls:

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

rewrite215.0ms (4.7%)

Memory
-17.2MiB live, 255.6MiB allocated; 33ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval65.0ms (1.4%)

Memory
-18.1MiB live, 133.6MiB allocated; 30ms collecting garbage
Compiler

Compiled 7 376 to 2 865 computations (61.2% saved)

prune60.0ms (1.3%)

Memory
43.6MiB live, 189.1MiB allocated; 11ms collecting garbage
Pruning

53 alts after pruning (46 fresh and 7 done)

PrunedKeptTotal
New50026526
Fresh82028
Picked325
Done055
Total51153564
Accuracy
100.0%
Counts
564 → 53
Alt Table
Click to see full alt table
StatusAccuracyProgram
67.0%
(*.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (* (* a2 a2) (cos th)) (*.f64 a2 a2)))) #s(literal 1/2 binary64))
✓99.5%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
✓98.9%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) a2) a2)) #s(literal 1/2 binary64))
60.3%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) a2) a2)) #s(literal 1/2 binary64))
60.4%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) a2) a2)) #s(literal 1/2 binary64))
99.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2)) #s(literal 1/2 binary64))
✓99.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2))) #s(literal 1/2 binary64))
66.4%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 #s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64))) a2) a2)) #s(literal 1/2 binary64))
15.2%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))) #s(literal 1/2 binary64))
67.0%
(*.f64 #s(approx (+ (* (* (* a1 a1) (cos th)) (sqrt 2)) (* (sqrt 2) (* (* a2 a2) (cos th)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))) #s(literal 1/2 binary64))
30.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 (*.f64 (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)) th) th (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (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)))))
54.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 #s(approx (* -1/2 (* (+ (* a2 a2) (* a1 a1)) (/ 1 (sqrt 2)))) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
66.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓67.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
13.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (*.f64 #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
6.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) (*.f64 a2 a2)) (*.f64 (*.f64 a1 a1) (*.f64 a1 a1))) #s(literal 1 binary64)) (*.f64 #s(approx (- (* a2 a2) (* a1 a1)) (neg.f64 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
66.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
✓12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
17.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (sqrt.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
14.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) 1) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2)) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
2.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) 1) (neg.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) a1))) (*.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1))
15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
98.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓15.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
17.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
17.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
✓12.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
38.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
32.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (fma.f64 (*.f64 a2 (/.f64 a2 (*.f64 a1 a1))) (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))))))))
38.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (+.f64 (/.f64 (/.f64 (*.f64 a2 a2) a1) a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
27.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 a1 a1) (/.f64 (+.f64 (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
27.5%
#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(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))))
27.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) #s(approx (/ (+ (/ (* a2 a2) (* a1 a1)) 1) (sqrt 2)) (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))))
43.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (*.f64 a1 (/.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
61.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
16.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
66.3%
#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) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))
60.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 (/.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))))) a2) a2)))
60.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 (/.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
66.3%
#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 #s(approx (+ (* (* th th) -1/2) 1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a2) a2)))
60.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 (*.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)))) a2) a2)))
15.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (*.f64 #s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) a2) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) a2)) (sqrt.f64 #s(literal 2 binary64)))) a2)))
66.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 #s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2)))
15.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (* th th)) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(approx (* (/ (+ (* (* th th) -1/2) 1) (sqrt 2)) (* a2 a2)) (*.f64 (/.f64 (*.f64 (*.f64 a2 th) (*.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
13.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (* -1/2 (* (+ (* a2 a2) (* a1 a1)) (/ 1 (sqrt 2)))) (* th th)) (* (+ (* a2 a2) (* a1 a1)) (/ 1 (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)))))
Compiler

Compiled 2 647 to 1 722 computations (34.9% saved)

regimes221.0ms (4.8%)

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

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

regimes297.0ms (6.4%)

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

8 calls:

59.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
53.0ms
(*.f64 a2 a2)
47.0ms
a1
43.0ms
a2
36.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
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)

regimes186.0ms (4%)

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

8 calls:

42.0ms
a1
28.0ms
(cos.f64 th)
21.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
20.0ms
(*.f64 a2 a2)
19.0ms
th
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)

regimes167.0ms (3.6%)

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

8 calls:

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

regimes182.0ms (3.9%)

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

8 calls:

47.0ms
a1
21.0ms
th
20.0ms
a2
19.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
19.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)

regimes138.0ms (3%)

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

8 calls:

19.0ms
a1
18.0ms
(cos.f64 th)
17.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)))
17.0ms
a2
17.0ms
(*.f64 a2 a2)
Results
AccuracySegmentsBranch
98.9%1th
98.9%1(*.f64 a2 a2)
98.9%1(*.f64 a1 a1)
98.9%1(cos.f64 th)
98.9%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
98.9%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
98.9%1a1
98.9%1a2
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes155.0ms (3.3%)

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

8 calls:

29.0ms
th
26.0ms
a1
19.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
17.0ms
(*.f64 a2 a2)
16.0ms
a2
Results
AccuracySegmentsBranch
67.0%1(*.f64 a2 a2)
69.0%2(*.f64 a1 a1)
77.2%2(cos.f64 th)
77.2%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
77.6%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
69.0%2a1
69.8%2a2
67.0%1th
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes44.0ms (1%)

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

7 calls:

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

Compiled 29 to 37 computations (-27.6% saved)

regimes55.0ms (1.2%)

Memory
13.7MiB live, 96.9MiB allocated; 28ms collecting garbage
Accuracy

Total -34.4b remaining (-159.6%)

Threshold costs -34.4b (-159.6%)

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

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

bsearch1.0ms (0%)

Memory
2.7MiB live, 2.8MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-2.819487253868828e-122
-6.618538417918041e-181
Compiler

Compiled 19 to 18 computations (5.3% saved)

derivations318.0ms (6.9%)

Memory
31.3MiB live, 311.6MiB allocated; 64ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 171 to 80 computations (53.2% saved)

preprocess160.0ms (3.5%)

Memory
-11.8MiB live, 218.1MiB allocated; 23ms collecting garbage
Remove

(abs th)

Compiler

Compiled 3 375 to 2 490 computations (26.2% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...