Migdal et al, Equation (64)

Time bar (total: 5.9s)

start0.0ms (0%)

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

analyze1.0ms (0%)

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

Compiled 21 to 14 computations (33.3% saved)

sample1.1s (19%)

Memory
34.8MiB live, 1 005.7MiB allocated; 829ms collecting garbage
Samples
837.0ms8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 638.0ms
ival-cos: 446.0ms (69.9% of total)
ival-mult!: 139.0ms (21.8% of total)
ival-div!: 36.0ms (5.6% of total)
ival-add!: 16.0ms (2.5% of total)
adjust: 1.0ms (0.2% of total)
Bogosity

preprocess50.0ms (0.9%)

Memory
2.3MiB live, 47.2MiB allocated; 6ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 32 to 24 computations (25% saved)

series23.0ms (0.4%)

Memory
-17.7MiB live, 28.1MiB allocated; 4ms 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
5.0ms
a1
@-inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
3.0ms
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)

rewrite574.0ms (9.7%)

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

eval8.0ms (0.1%)

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

Compiled 841 to 320 computations (62% saved)

prune8.0ms (0.1%)

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

13 alts after pruning (12 fresh and 1 done)

PrunedKeptTotal
New631275
Fresh000
Picked011
Done000
Total631376
Accuracy
99.2%
Counts
76 → 13
Alt Table
Click to see full alt table
StatusAccuracyProgram
55.4%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a1) a1 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
98.7%
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
✓99.2%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
▶99.2%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
59.9%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
97.9%
(+.f64 #s(approx (/ (* (cos th) (* a1 a1)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
▶55.4%
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
▶9.0%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
▶43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
55.4%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
▶12.9%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
Compiler

Compiled 422 to 372 computations (11.8% saved)

series81.0ms (1.4%)

Memory
8.9MiB live, 101.3MiB allocated; 19ms collecting garbage
Counts
28 → 94
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.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))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(*.f64 (log.f64 a1) #s(literal 2 binary64))
(log.f64 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))
(fma.f64 a1 a1 (*.f64 a2 a2))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(*.f64 th th)
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 a1 a1)
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (cos.f64 th) #s(literal 2 binary64))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (exp (* (log a1) 2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (log a1) 2) #s(hole binary64 (* 2 (log a1))))
#s(approx (log a1) #s(hole binary64 (log a1)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a2 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (* 1/2 (* (pow a2 2) (cos th))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (* 1/2 (pow a2 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (+ (* 1/2 (pow a2 2)) (* (pow a1 2) (+ 1/2 (* -1/4 (pow th 2))))))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (pow a2 2))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (pow a1 2)) (* -1/4 (pow a2 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#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 (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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 (* (log a1) 2) #s(hole binary64 (* -2 (log (/ 1 a1)))))
#s(approx (log a1) #s(hole binary64 (* -1 (log (/ 1 a1)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a2 2) (cos th)) (pow a1 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* -1/4 (pow th 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (+ (* -1/4 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (+ (* -1/4 (pow th 2)) (* 1/2 (/ (pow a2 2) (pow a1 2)))))))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (pow a1 2))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (- (* -1/4 (/ (pow a2 2) (pow a1 2))) 1/4))))
#s(approx (* (log a1) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 a1)))))))
#s(approx (log a1) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 a1))))))
#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 (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (+ (* 1/2 (pow a1 2)) (* (pow a2 2) (+ 1/2 (* -1/4 (pow th 2))))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* -1/4 (pow th 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (+ (* -1/4 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (+ (* -1/4 (pow th 2)) (* 1/2 (/ (pow a1 2) (pow a2 2)))))))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (- (* -1/4 (/ (pow a1 2) (pow a2 2))) 1/4))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) #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)) (exp (* (log a1) 2))) #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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/48 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* 1/48 (* (pow a1 2) (pow th 2))))))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (pow th 2))) (* 1/48 (pow a1 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) 2) #s(hole binary64 1/2))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* -1/4 (pow th 2)))))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* (pow th 2) (- (* 1/48 (pow th 2)) 1/4)))))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* (pow th 2) (- (* (pow th 2) (+ 1/48 (* -1/1440 (pow th 2)))) 1/4)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
#s(approx (/ (cos th) 2) #s(hole binary64 (* 1/2 (cos th))))
Calls

9 calls:

TimeVariablePointExpression
32.0ms
a1
@0
((+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) -1/2 (* th th) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (cos th) 2))
22.0ms
a1
@-inf
((+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) -1/2 (* th th) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (cos th) 2))
9.0ms
a1
@inf
((+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) -1/2 (* th th) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (cos th) 2))
3.0ms
th
@inf
((+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) -1/2 (* th th) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (cos th) 2))
3.0ms
th
@-inf
((+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) -1/2 (* th th) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (cos th) 2))

rewrite761.0ms (12.9%)

Memory
-5.7MiB live, 553.3MiB allocated; 142ms collecting garbage
Counts
122 → 238
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.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))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(*.f64 (log.f64 a1) #s(literal 2 binary64))
(log.f64 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))
(fma.f64 a1 a1 (*.f64 a2 a2))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(*.f64 th th)
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 a1 a1)
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (cos.f64 th) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (exp (* (log a1) 2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (log a1) 2) #s(hole binary64 (* 2 (log a1))))
#s(approx (log a1) #s(hole binary64 (log a1)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a2 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (* 1/2 (* (pow a2 2) (cos th))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (* 1/2 (pow a2 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (+ (* 1/2 (pow a2 2)) (* (pow a1 2) (+ 1/2 (* -1/4 (pow th 2))))))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (pow a2 2))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (pow a1 2)) (* -1/4 (pow a2 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#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 (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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 (* (log a1) 2) #s(hole binary64 (* -2 (log (/ 1 a1)))))
#s(approx (log a1) #s(hole binary64 (* -1 (log (/ 1 a1)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a2 2) (cos th)) (pow a1 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* -1/4 (pow th 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (+ (* -1/4 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (+ (* -1/4 (pow th 2)) (* 1/2 (/ (pow a2 2) (pow a1 2)))))))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (pow a1 2))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (- (* -1/4 (/ (pow a2 2) (pow a1 2))) 1/4))))
#s(approx (* (log a1) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 a1)))))))
#s(approx (log a1) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 a1))))))
#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 (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (+ (* 1/2 (pow a1 2)) (* (pow a2 2) (+ 1/2 (* -1/4 (pow th 2))))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* -1/4 (pow th 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (+ (* -1/4 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (+ (* -1/4 (pow th 2)) (* 1/2 (/ (pow a1 2) (pow a2 2)))))))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (- (* -1/4 (/ (pow a1 2) (pow a2 2))) 1/4))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) (* (/ (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)) (exp (* (log a1) 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (exp (* (log a1) 2))) #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)) (exp (* (log a1) 2))) #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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/48 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* 1/48 (* (pow a1 2) (pow th 2))))))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (pow th 2))) (* 1/48 (pow a1 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) 2) #s(hole binary64 1/2))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* -1/4 (pow th 2)))))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* (pow th 2) (- (* 1/48 (pow th 2)) 1/4)))))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* (pow th 2) (- (* (pow th 2) (+ 1/48 (* -1/1440 (pow th 2)))) 1/4)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (* th th)) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
#s(approx (/ (cos th) 2) #s(hole binary64 (* 1/2 (cos th))))
Outputs
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a2 a2)))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (*.f64 #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a1 a1) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a2 a2) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a2) a2 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a1 a1))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) #s(literal -2 binary64))
(/.f64 (cos.f64 th) #s(literal 2 binary64))
(/.f64 (neg.f64 (cos.f64 th)) #s(literal -2 binary64))
(cos.f64 th)
(cos.f64 (neg.f64 th))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
th
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 a1 a1)
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))
(exp.f64 (log.f64 (*.f64 a1 a1)))
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (log.f64 a1))
(*.f64 (log.f64 a1) #s(literal 2 binary64))
(+.f64 (log.f64 a1) (log.f64 a1))
(log.f64 (*.f64 a1 a1))
(log.f64 a1)
a1
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a2 a2))
(*.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a2) a2)
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal -2 binary64))
(*.f64 a2 a2)
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(pow.f64 a2 #s(literal 2 binary64))
a2
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (*.f64 a1 a1) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (*.f64 #s(literal 2 binary64) #s(literal 2 binary64)))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -2 binary64))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(/.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 (pow.f64 (*.f64 a1 a1) #s(literal 3 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 3 binary64))) (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 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 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 (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 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a1 a1))
(fma.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a2 a2))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(+.f64 (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(+.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th))) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))) (-.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) #s(literal 3 binary64)) (pow.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) (-.f64 (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))))
(fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 th th)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal -1/2 binary64))
(+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.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)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))))))
(/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal -1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal -1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(neg.f64 #s(literal 1/2 binary64))
(*.f64 th th)
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 (pow.f64 th (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 th (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(pow.f64 th #s(literal 2 binary64))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a1 a1))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) #s(literal -2 binary64))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 (cos.f64 th) (*.f64 a1 a1))
(*.f64 a1 (*.f64 a1 (cos.f64 th)))
(*.f64 a1 a1)
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))
(exp.f64 (log.f64 (*.f64 a1 a1)))
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a2 a2)))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 a2 a2) (cos.f64 th)))) (*.f64 #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a1 a1) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a2 a2) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a2) a2 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(/.f64 (cos.f64 th) #s(literal 2 binary64))
(/.f64 (neg.f64 (cos.f64 th)) #s(literal -2 binary64))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (log (* a1 a1)) (log.f64 (*.f64 a1 a1)))
#s(approx (log a1) (log.f64 a1))
#s(approx a1 a1)
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (fma.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal -1/4 binary64) (fma.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (* (* a1 a1) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 #s(literal 2 binary64) (*.f64 a1 a1))) (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (log (* a1 a1)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 a1))))
#s(approx (log a1) (neg.f64 (neg.f64 (log.f64 a1))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) (*.f64 a1 a1)) #s(literal -1/4 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))))) (*.f64 a1 a1)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)) (*.f64 a1 a1)) #s(literal 1/4 binary64)) (*.f64 a1 a1)))
#s(approx (log (* a1 a1)) (*.f64 #s(literal 2 binary64) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) a1))) (log.f64 #s(literal -1 binary64)))))
#s(approx (log a1) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) a1))) (log.f64 #s(literal -1 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/4 binary64) (fma.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal -1/4 binary64) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))) (*.f64 a2 a2)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/4 binary64)) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
#s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 th th) #s(literal 2 binary64)) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 th th) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1 binary64) #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 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/1440 binary64) (*.f64 th th)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(literal 1/48 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (* th th) (*.f64 th th))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/1440 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/48 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (* a1 a1) (cos th)) (*.f64 a1 a1))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 a1 a1 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (*.f64 a1 a1)))))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (/ (cos th) 2) #s(literal 1/2 binary64))
#s(approx (/ (cos th) 2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 #s(literal 1/48 binary64) (*.f64 th th)) #s(literal 1/4 binary64)) (*.f64 th th) #s(literal 1/2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 th th) #s(literal 1/48 binary64)) (*.f64 th th)) #s(literal 1/4 binary64)) (*.f64 th th) #s(literal 1/2 binary64)))
#s(approx (/ (cos th) 2) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/4 binary64)))
#s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th)))
#s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th)))

eval27.0ms (0.5%)

Memory
-12.1MiB live, 32.5MiB allocated; 5ms collecting garbage
Compiler

Compiled 3 149 to 979 computations (68.9% saved)

prune17.0ms (0.3%)

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

24 alts after pruning (23 fresh and 1 done)

PrunedKeptTotal
New25220272
Fresh437
Picked505
Done011
Total26124285
Accuracy
99.2%
Counts
285 → 24
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶98.7%
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
55.4%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
✓99.2%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
▶43.5%
(+.f64 (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2)))
97.9%
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
55.4%
(*.f64 #s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (fma.f64 a1 a1 (*.f64 a2 a2)))
43.5%
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
55.4%
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
12.9%
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
10.2%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
▶43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) #s(literal 2 binary64)))
43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
6.8%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))) #s(literal 2 binary64)))
11.8%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
12.9%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 a1 (*.f64 a1 (cos.f64 th))) #s(literal 2 binary64)))
▶35.3%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
▶11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
40.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
14.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
Compiler

Compiled 920 to 806 computations (12.4% saved)

series71.0ms (1.2%)

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

9 calls:

TimeVariablePointExpression
28.0ms
a1
@inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) a1 (cos th) th 2 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* 1/2 (* a1 a1)) 1/2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (/ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) (* (/ (cos th) 2) (exp (* (log a1) 2))) (/ (cos th) 2) (/ -1 -2) -1 -2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) (* (/ (cos th) 2) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)))
12.0ms
a1
@-inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) a1 (cos th) th 2 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* 1/2 (* a1 a1)) 1/2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (/ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) (* (/ (cos th) 2) (exp (* (log a1) 2))) (/ (cos th) 2) (/ -1 -2) -1 -2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) (* (/ (cos th) 2) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)))
9.0ms
a1
@0
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) a1 (cos th) th 2 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* 1/2 (* a1 a1)) 1/2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (/ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) (* (/ (cos th) 2) (exp (* (log a1) 2))) (/ (cos th) 2) (/ -1 -2) -1 -2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) (* (/ (cos th) 2) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)))
4.0ms
a2
@inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) a1 (cos th) th 2 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* 1/2 (* a1 a1)) 1/2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (/ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) (* (/ (cos th) 2) (exp (* (log a1) 2))) (/ (cos th) 2) (/ -1 -2) -1 -2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) (* (/ (cos th) 2) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)))
3.0ms
a2
@-inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* a1 a1) (cos th)) (* a1 a1) a1 (cos th) th 2 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* 1/2 (* a1 a1)) 1/2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (/ (* a1 a1) (* a2 a2)) (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) (* (/ (cos th) 2) (exp (* (log a1) 2))) (/ (cos th) 2) (/ -1 -2) -1 -2 (exp (* (log a1) 2)) (* (log a1) 2) (log a1) (* (/ (cos th) 2) (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)))

rewrite865.0ms (14.6%)

Memory
22.3MiB live, 532.8MiB allocated; 124ms collecting garbage
Counts
144 → 242
Calls
Call 1
Inputs
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 a1 a1)
a1
(cos.f64 th)
th
#s(literal 2 binary64)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 a2 a2)
a2
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
#s(literal 1/2 binary64)
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64))
(/.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2)))
(*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64)))
(/.f64 #s(literal -1 binary64) #s(literal -2 binary64))
#s(literal -1 binary64)
#s(literal -2 binary64)
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(*.f64 (log.f64 a1) #s(literal 2 binary64))
(log.f64 a1)
(*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) #s(literal 2 binary64))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(exp.f64 (log.f64 a1))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a2 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (* 1/2 (* (pow a2 2) (cos th))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (* 1/2 (* a1 a1)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 1/2))
#s(approx (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (* a1 a1) (* a2 a2)) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a2 2) (cos th)))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (* 1/2 (* (pow a2 2) (cos th))))))
#s(approx (* (/ (cos th) 2) (exp (* (log a1) 2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (exp (* (log a1) 2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (log a1) 2) #s(hole binary64 (* 2 (log a1))))
#s(approx (log a1) #s(hole binary64 (log a1)))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (exp (log a1)) #s(hole binary64 a1))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a2 2) (cos th)) (pow a1 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (/ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (/ 1 (pow a1 2))) (* 1/2 (/ 1 (pow a2 2)))))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a2 2) (cos th)) (pow a1 2)))))))
#s(approx (* (log a1) 2) #s(hole binary64 (* -2 (log (/ 1 a1)))))
#s(approx (log a1) #s(hole binary64 (* -1 (log (/ 1 a1)))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (log a1) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 a1)))))))
#s(approx (log a1) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 a1))))))
#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 (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (/ (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2))) (pow a2 2))))
#s(approx (* (/ (cos th) 2) (* a2 a2)) #s(hole binary64 (* 1/2 (* (pow a2 2) (cos th)))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2))) (/ (cos th) (sqrt 2))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (+ (* 1/2 (/ (* a1 a1) (* a2 a2))) 1/2) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2)))))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) 2) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* -1/4 (pow a1 2)))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* 1/48 (pow a1 2)) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* 1/48 (pow a1 2)) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a2 2) (sqrt 2))) (* -1/1440 (pow a1 2)))))))))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* 1/48 (* (pow a1 2) (pow th 2))))))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (pow th 2))) (* 1/48 (pow a1 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 (* (/ (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 (/ 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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/48 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* -1/4 (pow a2 2))))))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (+ (* -1/4 (pow a2 2)) (* (pow th 2) (+ (* 1/48 (pow a1 2)) (* 1/48 (pow a2 2)))))))))))
#s(approx (+ (* (/ (cos th) 2) (exp (* (log a1) 2))) (* (/ (cos th) 2) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (+ (* -1/4 (pow a2 2)) (* (pow th 2) (+ (* 1/48 (pow a1 2)) (+ (* 1/48 (pow a2 2)) (* (pow th 2) (+ (* -1/1440 (pow a1 2)) (* -1/1440 (pow a2 2))))))))))))))
#s(approx (* (/ (cos th) 2) (exp (* (log a1) 2))) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* (/ (cos th) 2) (exp (* (log a1) 2))) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (* (/ (cos th) 2) (exp (* (log a1) 2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* 1/48 (* (pow a1 2) (pow th 2))))))))
#s(approx (* (/ (cos th) 2) (exp (* (log a1) 2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (pow th 2))) (* 1/48 (pow a1 2)))))))))
#s(approx (/ (cos th) 2) #s(hole binary64 1/2))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* -1/4 (pow th 2)))))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* (pow th 2) (- (* 1/48 (pow th 2)) 1/4)))))
#s(approx (/ (cos th) 2) #s(hole binary64 (+ 1/2 (* (pow th 2) (- (* (pow th 2) (+ 1/48 (* -1/1440 (pow th 2)))) 1/4)))))
#s(approx (* (/ (cos th) 2) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (* (/ (cos th) 2) (* a2 a2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (* 1/2 (pow a2 2)))))
#s(approx (* (/ (cos th) 2) (* a2 a2)) #s(hole binary64 (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/4 (pow a2 2)) (* 1/48 (* (pow a2 2) (pow th 2))))))))
#s(approx (* (/ (cos th) 2) (* a2 a2)) #s(hole binary64 (+ (* 1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/4 (pow a2 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a2 2) (pow th 2))) (* 1/48 (pow a2 2)))))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (cos th) 2) #s(hole binary64 (* 1/2 (cos th))))
Outputs
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a2 a2)))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #s(literal 2 binary64))
(fma.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a2 a2) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a2) a2 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a1 a1) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th))) #s(literal -2 binary64))
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 (cos.f64 th) (*.f64 a1 a1))
(*.f64 a1 (*.f64 a1 (cos.f64 th)))
(*.f64 a1 a1)
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))
(exp.f64 (log.f64 (*.f64 a1 a1)))
(pow.f64 a1 #s(literal 2 binary64))
a1
(+.f64 (cosh.f64 (log.f64 a1)) (sinh.f64 (log.f64 a1)))
(exp.f64 (log.f64 a1))
(cos.f64 th)
(cos.f64 (neg.f64 th))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
th
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -2 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a2 a2))
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(*.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a2) a2)
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal -2 binary64))
(/.f64 (cos.f64 th) #s(literal 2 binary64))
(/.f64 (neg.f64 (cos.f64 th)) #s(literal -2 binary64))
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -2 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 a2 a2)
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(pow.f64 a2 #s(literal 2 binary64))
a2
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
(*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -1/2 binary64))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))
(*.f64 (*.f64 a2 a2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (*.f64 a2 a2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 a2 a2) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (*.f64 a2 a2)))
(fma.f64 #s(literal 1/2 binary64) (*.f64 a2 a2) (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(fma.f64 (*.f64 a2 a2) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (*.f64 a2 a2)))
(fma.f64 (*.f64 a2 a2) #s(literal 1/2 binary64) (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))) (-.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) #s(literal 1/4 binary64)) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (-.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64))
(fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(*.f64 (/.f64 a1 a2) (/.f64 a1 a2))
(*.f64 a1 (/.f64 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(/.f64 (/.f64 (*.f64 a1 a1) a2) a2)
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (*.f64 a2 a2)))
(+.f64 (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2)))
(*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a1 a1))
#s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64)))
(/.f64 #s(literal -1 binary64) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal -1 binary64))
#s(literal -1 binary64)
(neg.f64 #s(literal 1 binary64))
#s(literal -2 binary64)
(neg.f64 #s(literal 2 binary64))
(*.f64 a1 a1)
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))
(exp.f64 (log.f64 (*.f64 a1 a1)))
(pow.f64 a1 #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (log.f64 a1))
(*.f64 (log.f64 a1) #s(literal 2 binary64))
(+.f64 (log.f64 a1) (log.f64 a1))
(log.f64 (*.f64 a1 a1))
(log.f64 a1)
(*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 2 binary64))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -2 binary64))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(/.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 (pow.f64 (*.f64 a1 a1) #s(literal 3 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 3 binary64))) (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 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a1 a1))
(fma.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a2 a2))
a1
(+.f64 (cosh.f64 (log.f64 a1)) (sinh.f64 (log.f64 a1)))
(exp.f64 (log.f64 a1))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (* (* a1 a1) (cos th)) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* 1/2 (* a1 a1)) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (* a2 a2) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (* (* a2 a2) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2)))) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
#s(approx (/ (* a1 a1) (* a2 a2)) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (log (* a1 a1)) (log.f64 (*.f64 a1 a1)))
#s(approx (log a1) (log.f64 a1))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/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)
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 #s(literal 2 binary64) (*.f64 a1 a1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (*.f64 a1 a1)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (* (* a2 a2) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2)))) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (* a2 a2) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2)))) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (log (* a1 a1)) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 a1))))
#s(approx (log a1) (neg.f64 (neg.f64 (log.f64 a1))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (log (* a1 a1)) (*.f64 #s(literal 2 binary64) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) a1))) (log.f64 #s(literal -1 binary64)))))
#s(approx (log a1) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) a1))) (log.f64 #s(literal -1 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (* (* a2 a2) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2)))) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 a1 a1) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 a1 a1) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 a1 a1) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 a1 a1) (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/1440 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (* a1 a1) (cos th)) (*.f64 a1 a1))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 a1 a1 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (*.f64 a1 a1)))))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (* (* a1 a1) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (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 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 th th) #s(literal 2 binary64)) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 th th) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/4 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) #s(literal 1/48 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 #s(literal -1/4 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/1440 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 #s(literal 1/48 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal 1/48 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 #s(literal 1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/4 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/48 binary64) (*.f64 (*.f64 #s(literal -1/1440 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/1440 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (cos th) 2) #s(literal 1/2 binary64))
#s(approx (/ (cos th) 2) (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/48 binary64)) #s(literal 1/4 binary64)) (*.f64 th th) #s(literal 1/2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/1440 binary64) #s(literal 1/48 binary64)) (*.f64 th th)) #s(literal 1/4 binary64)) (*.f64 th th) #s(literal 1/2 binary64)))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal -1/1440 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 a2 a2))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (cos th) 2) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
#s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th)))

eval28.0ms (0.5%)

Memory
-8.3MiB live, 37.6MiB allocated; 6ms collecting garbage
Compiler

Compiled 2 451 to 1 032 computations (57.9% saved)

prune61.0ms (1%)

Memory
-25.6MiB live, 42.9MiB allocated; 31ms collecting garbage
Pruning

31 alts after pruning (30 fresh and 1 done)

PrunedKeptTotal
New22316239
Fresh41418
Picked505
Done011
Total23231263
Accuracy
99.3%
Counts
263 → 31
Alt Table
Click to see full alt table
StatusAccuracyProgram
56.3%
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
64.1%
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(approx (cos th) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
55.4%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
✓99.2%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
▶98.7%
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
97.9%
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
55.4%
(*.f64 #s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (fma.f64 a1 a1 (*.f64 a2 a2)))
43.5%
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
55.4%
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
12.9%
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
▶10.2%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
▶64.4%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
6.8%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))) #s(literal 2 binary64)))
11.8%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
12.9%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 a1 (*.f64 a1 (cos.f64 th))) #s(literal 2 binary64)))
43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
▶39.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
35.3%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)))
11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
2.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2))))
23.4%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1))) (*.f64 a2 a2))))
▶43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1))))))
11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (*.f64 a1 a1))))))
40.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
14.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
Compiler

Compiled 1 278 to 1 106 computations (13.5% saved)

series69.0ms (1.2%)

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

9 calls:

TimeVariablePointExpression
17.0ms
a1
@0
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* 1/2 (* a1 a1)) (cos th)) (* 1/2 (* a1 a1)) 1/2 (* a1 a1) a1 (cos th) th (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) 2 (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a1 (/ a1 (* a2 a2))) (/ a1 (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) (* -1/2 (+ (* a1 a1) (* a2 a2))) -1/2 (+ (* a1 a1) (* a2 a2)) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)) (log a1))
13.0ms
a1
@-inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* 1/2 (* a1 a1)) (cos th)) (* 1/2 (* a1 a1)) 1/2 (* a1 a1) a1 (cos th) th (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) 2 (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a1 (/ a1 (* a2 a2))) (/ a1 (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) (* -1/2 (+ (* a1 a1) (* a2 a2))) -1/2 (+ (* a1 a1) (* a2 a2)) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)) (log a1))
12.0ms
a1
@inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* 1/2 (* a1 a1)) (cos th)) (* 1/2 (* a1 a1)) 1/2 (* a1 a1) a1 (cos th) th (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) 2 (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a1 (/ a1 (* a2 a2))) (/ a1 (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) (* -1/2 (+ (* a1 a1) (* a2 a2))) -1/2 (+ (* a1 a1) (* a2 a2)) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)) (log a1))
7.0ms
a2
@inf
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* 1/2 (* a1 a1)) (cos th)) (* 1/2 (* a1 a1)) 1/2 (* a1 a1) a1 (cos th) th (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) 2 (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a1 (/ a1 (* a2 a2))) (/ a1 (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) (* -1/2 (+ (* a1 a1) (* a2 a2))) -1/2 (+ (* a1 a1) (* a2 a2)) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)) (log a1))
4.0ms
a2
@0
((+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* a1 a1) (cos th)) 2) (* (* 1/2 (* a1 a1)) (cos th)) (* 1/2 (* a1 a1)) 1/2 (* a1 a1) a1 (cos th) th (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (sqrt 2) 2 (* a2 a2) a2 (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a1 (/ a1 (* a2 a2))) (/ a1 (* a2 a2)) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) (* -1/2 (+ (* a1 a1) (* a2 a2))) -1/2 (+ (* a1 a1) (* a2 a2)) (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (exp (log a1)) (log a1))

rewrite818.0ms (13.8%)

Memory
-8.6MiB live, 363.4MiB allocated; 80ms collecting garbage
Counts
162 → 277
Calls
Call 1
Inputs
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
#s(literal 1/2 binary64)
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a2 a2)
a2
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
(*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))
(fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))
(*.f64 a1 (/.f64 a1 (*.f64 a2 a2)))
(/.f64 a1 (*.f64 a2 a2))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th)
(/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64))
(*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(literal -1/2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(exp.f64 (log.f64 a1))
(log.f64 a1)
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (* 1/2 (* a1 a1)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a2 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (cos th))) (* 1/2 (* (pow a2 2) (cos th))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(hole binary64 1/2))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(hole binary64 (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a2 2))))
#s(approx (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2)))))
#s(approx (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) #s(hole binary64 1/2))
#s(approx (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) #s(hole binary64 (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* a1 (/ a1 (* a2 a2))) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (/ a1 (* a2 a2)) #s(hole binary64 (/ a1 (pow a2 2))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (* 1/2 (pow a2 2)))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a2 2) (pow th 2))) (+ (* 1/2 (pow a2 2)) (* (pow a1 2) (+ 1/2 (* -1/4 (pow th 2))))))))
#s(approx (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) #s(hole binary64 (* -1/4 (* (pow a2 2) th))))
#s(approx (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) th)) (* -1/4 (* (pow a2 2) th)))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) #s(hole binary64 (* -1/4 (pow a2 2))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) #s(hole binary64 (+ (* -1/4 (pow a1 2)) (* -1/4 (pow a2 2)))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* -1/2 (pow a2 2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))))
#s(approx (+ (* 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 (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (exp (log a1)) #s(hole binary64 a1))
#s(approx (log a1) #s(hole binary64 (log a1)))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (pow a1 2) (cos th)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a2 2) (cos th)) (pow a1 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(hole binary64 (* 1/2 (/ (pow a1 2) (pow a2 2)))))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (/ 1 (pow a1 2))) (* 1/2 (/ 1 (pow a2 2)))))))
#s(approx (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* 1/2 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) #s(hole binary64 (* 1/2 (/ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (/ 1 (pow a1 2))) (* 1/2 (/ 1 (pow a2 2)))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (* -1/4 (pow th 2))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a1 2) (+ 1/2 (+ (* -1/4 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (+ (* -1/4 (pow th 2)) (* 1/2 (/ (pow a2 2) (pow a1 2)))))))))
#s(approx (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) #s(hole binary64 (* -1/4 (* (pow a1 2) th))))
#s(approx (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) #s(hole binary64 (* (pow a1 2) (+ (* -1/4 th) (* -1/4 (/ (* (pow a2 2) th) (pow a1 2)))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) #s(hole binary64 (* -1/4 (pow a1 2))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) #s(hole binary64 (* (pow a1 2) (- (* -1/4 (/ (pow a2 2) (pow a1 2))) 1/4))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* -1/2 (pow a1 2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (- (* -1/2 (/ (pow a2 2) (pow a1 2))) 1/2))))
#s(approx (+ (* 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 (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (log a1) #s(hole binary64 (* -1 (log (/ 1 a1)))))
#s(approx (log a1) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 a1))))))
#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 (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(hole binary64 (/ (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2))) (pow a2 2))))
#s(approx (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) #s(hole binary64 (/ (+ (* 1/2 (pow a1 2)) (* 1/2 (pow a2 2))) (pow a2 2))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (+ (* 1/2 (pow a1 2)) (* (pow a2 2) (+ 1/2 (* -1/4 (pow th 2))))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2))) (/ (cos th) (sqrt 2))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (cos th)) (* 1/2 (/ (* (pow a1 2) (cos th)) (pow a2 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (+ (* 1/2 (* a1 (/ a1 (* a2 a2)))) 1/2) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* 1/2 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (* -1/4 (pow th 2))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow a2 2) (+ 1/2 (+ (* -1/4 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (+ (* -1/4 (pow th 2)) (* 1/2 (/ (pow a1 2) (pow a2 2)))))))))
#s(approx (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) #s(hole binary64 (* (pow a2 2) (+ (* -1/4 th) (* -1/4 (/ (* (pow a1 2) th) (pow a2 2)))))))
#s(approx (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) #s(hole binary64 (* (pow a2 2) (- (* -1/4 (/ (pow a1 2) (pow a2 2))) 1/4))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (- (* -1/2 (/ (pow a1 2) (pow a2 2))) 1/2))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (exp (log a1)) (exp (log a1))) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* -1/4 (pow a1 2)))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* 1/48 (pow a1 2)) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (/ (* (* a1 a1) (cos th)) 2) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* 1/48 (pow a1 2)) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a2 2) (sqrt 2))) (* -1/1440 (pow a1 2)))))))))) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* 1/48 (* (pow a1 2) (pow th 2))))))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (pow th 2))) (* 1/48 (pow a1 2)))))))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) #s(hole binary64 (* 1/2 (pow a1 2))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) #s(hole binary64 (+ (* -1/4 (* (pow a1 2) (pow th 2))) (* 1/2 (pow a1 2)))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* 1/48 (* (pow a1 2) (pow th 2))))))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) #s(hole binary64 (+ (* 1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/4 (pow a1 2)) (* (pow th 2) (+ (* -1/1440 (* (pow a1 2) (pow th 2))) (* 1/48 (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 (* (/ (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 (/ 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) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/48 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* 1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/2 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) #s(hole binary64 (* -1/4 (* th (+ (pow a1 2) (pow a2 2))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/2 (* (cos th) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* -1/4 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* (/ (* -1/2 (+ (* a1 a1) (* a2 a2))) 2) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) #s(hole binary64 (* (pow th 2) (+ (* -1/4 (+ (pow a1 2) (pow a2 2))) (* 1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
Outputs
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
(*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))
(*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a1 a1) (cos.f64 th)))
(*.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)
(*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) #s(literal 1 binary64))
(neg.f64 #s(literal -1/2 binary64))
(*.f64 a1 a1)
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(exp.f64 (+.f64 (log.f64 a1) (log.f64 a1)))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(pow.f64 a1 #s(literal 2 binary64))
a1
(+.f64 (cosh.f64 (log.f64 a1)) (sinh.f64 (log.f64 a1)))
(exp.f64 (log.f64 a1))
(cos.f64 th)
(cos.f64 (neg.f64 th))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
th
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (*.f64 a2 a2))
(*.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a2) a2)
(/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th))) (neg.f64 #s(literal 2 binary64)))
(/.f64 (cos.f64 th) #s(literal 2 binary64))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(+.f64 #s(literal 1 binary64) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 a2 a2)
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(pow.f64 a2 #s(literal 2 binary64))
a2
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
(*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))
(*.f64 (*.f64 a2 a2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (*.f64 a2 a2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 a2 a2) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (*.f64 a2 a2)))
(fma.f64 #s(literal 1/2 binary64) (*.f64 a2 a2) (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(fma.f64 (*.f64 a2 a2) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (*.f64 a2 a2)))
(fma.f64 (*.f64 a2 a2) #s(literal 1/2 binary64) (*.f64 (*.f64 a2 a2) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))) (-.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) #s(literal 1/4 binary64)) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) (-.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64))
(fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (*.f64 #s(literal 1/2 binary64) a1) (/.f64 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64))
(fma.f64 (/.f64 #s(literal 1/2 binary64) a2) (/.f64 (*.f64 a1 a1) a2) #s(literal 1/2 binary64))
(*.f64 a1 (/.f64 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 a1 (*.f64 a2 a2)) a1)
(/.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(/.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (*.f64 a2 a2)))
(/.f64 a1 (*.f64 a2 a2))
(/.f64 (/.f64 a1 a2) a2)
(/.f64 (neg.f64 a1) (neg.f64 (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(+.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th))
(+.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th)) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))) (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) #s(literal 3 binary64)) (pow.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) (-.f64 (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))))
(fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(fma.f64 th (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th)
(*.f64 th (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) th) #s(literal 2 binary64))
(*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 #s(literal 2 binary64)))
(*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))
(+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)))
(-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a2 a2) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a1 a1) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)))
(fma.f64 (*.f64 a2 a2) #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)))
#s(literal -1/2 binary64)
(neg.f64 #s(literal 1/2 binary64))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(/.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 (pow.f64 (*.f64 a1 a1) #s(literal 3 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 3 binary64))) (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 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a1 a1))
(fma.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a2 a2))
(+.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 a1 a1) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (*.f64 #s(literal 2 binary64) #s(literal 2 binary64)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 a1 a1) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (*.f64 #s(literal 2 binary64) #s(literal 2 binary64)))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(/.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 (pow.f64 (*.f64 a1 a1) #s(literal 3 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 3 binary64))) (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 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a2 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a1 a1))
(fma.f64 (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 a1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (*.f64 a2 a2))
a1
(+.f64 (cosh.f64 (log.f64 a1)) (sinh.f64 (log.f64 a1)))
(exp.f64 (log.f64 a1))
(log.f64 a1)
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* 1/2 (* a1 a1)) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a2 a2) (cos.f64 th))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)))
#s(approx (/ (* a1 a1) (* a2 a2)) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)))
#s(approx (/ a1 (* a2 a2)) (/.f64 a1 (*.f64 a2 a2)))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (fma.f64 #s(literal 1/2 binary64) (*.f64 a2 a2) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)) (*.f64 th th))))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)) (*.f64 th th) (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)))))
#s(approx (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) (*.f64 (*.f64 (*.f64 a2 a2) th) #s(literal -1/4 binary64)))
#s(approx (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) th) #s(literal -1/4 binary64)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx a1 a1)
#s(approx (log a1) (log.f64 a1))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 #s(literal 2 binary64) (*.f64 a1 a1))) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (*.f64 a1 a1)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1)))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) (*.f64 a1 a1)) #s(literal -1/4 binary64) (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1))))) (*.f64 a1 a1)))
#s(approx (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) (*.f64 (*.f64 (*.f64 a1 a1) th) #s(literal -1/4 binary64)))
#s(approx (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 th (/.f64 (*.f64 (*.f64 a2 a2) th) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2)) (*.f64 a1 a1)) #s(literal 1/4 binary64)) (*.f64 a1 a1)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) (*.f64 a1 a1)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 #s(literal 2 binary64) (*.f64 a1 a1))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (log a1) (neg.f64 (neg.f64 (log.f64 a1))))
#s(approx (log a1) (+.f64 (neg.f64 (log.f64 (/.f64 #s(literal -1 binary64) a1))) (log.f64 #s(literal -1 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 th th) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 th) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (* (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (* a2 a2)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal -1/4 binary64) (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))))) (*.f64 a2 a2)))
#s(approx (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) (*.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 th (/.f64 (*.f64 (*.f64 a1 a1) th) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/4 binary64)) (*.f64 a2 a2)))
#s(approx (* -1/2 (+ (* a1 a1) (* a2 a2))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 a1 a1) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 a1 a1) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) a1) a1 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal 1/48 binary64) (*.f64 a1 a1) (fma.f64 (fma.f64 #s(literal -1/1440 binary64) (*.f64 a1 a1) (/.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64)))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (* a1 a1) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/1440 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (* 1/2 (* a1 a1)) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (*.f64 a1 a1)) #s(literal -1/1440 binary64) (*.f64 #s(literal 1/48 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (*.f64 a1 a1))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#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 (-.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (* a2 a2)) 2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 th th) (*.f64 a2 a2)) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
#s(approx (/ (cos th) 2) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))
#s(approx (/ (cos th) 2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 th th) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 2 binary64)) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
#s(approx (/ (cos th) 2) (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 th th) #s(literal 2 binary64)) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) #s(literal 2 binary64))) (*.f64 th th)) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/4 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/48 binary64) (*.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/1440 binary64) (*.f64 #s(literal 1/48 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal -1/4 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/4 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) th) #s(literal -1/4 binary64)))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (cos th) 2) (/.f64 (cos.f64 th) #s(literal 2 binary64)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (*.f64 (*.f64 th th) #s(literal -1/4 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/4 binary64) (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th)))

eval59.0ms (1%)

Memory
8.2MiB live, 52.7MiB allocated; 19ms collecting garbage
Compiler

Compiled 3 084 to 1 240 computations (59.8% saved)

prune30.0ms (0.5%)

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

33 alts after pruning (28 fresh and 5 done)

PrunedKeptTotal
New2389247
Fresh61925
Picked145
Done011
Total24533278
Accuracy
99.3%
Counts
278 → 33
Alt Table
Click to see full alt table
StatusAccuracyProgram
56.3%
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
55.4%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
✓99.2%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
43.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.4%
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
✓98.7%
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
64.1%
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
97.9%
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
55.4%
(*.f64 #s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (fma.f64 a1 a1 (*.f64 a2 a2)))
43.5%
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
55.4%
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
12.9%
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
10.2%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) #s(literal 2 binary64))))
12.0%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) #s(literal 2 binary64))))
10.2%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
✓64.4%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
6.8%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))) #s(literal 2 binary64)))
11.8%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
12.9%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 a1 (*.f64 a1 (cos.f64 th))) #s(literal 2 binary64)))
43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) a2) (/.f64 (*.f64 a1 a1) a2) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
✓39.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
35.3%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)))
11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
2.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2))))
23.4%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1))) (*.f64 a2 a2))))
✓43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
43.5%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))))
11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1))))))
11.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (*.f64 a1 a1))))))
40.7%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
14.6%
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1))))
Compiler

Compiled 1 303 to 885 computations (32.1% saved)

regimes167.0ms (2.8%)

Memory
-18.1MiB live, 120.8MiB allocated; 36ms collecting garbage
Counts
58 → 1
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) a2) (/.f64 (*.f64 a1 a1) a2) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (*.f64 a1 a1))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(approx (cos th) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) #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) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1))) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 a1 (*.f64 a1 (cos.f64 th))) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 #s(approx (/ (* (cos th) (* a1 a1)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.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))) (*.f64 a1 a1)) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a1) a1 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.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))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.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))) (+.f64 (cosh.f64 (log.f64 (*.f64 a1 a1))) (sinh.f64 (log.f64 (*.f64 a1 a1))))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Outputs
(+.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)))
Calls

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

regimes205.0ms (3.5%)

Memory
-24.6MiB live, 113.2MiB allocated; 107ms collecting garbage
Counts
54 → 1
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) a2) (/.f64 (*.f64 a1 a1) a2) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (*.f64 a1 a1))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(approx (cos th) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) #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) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(approx (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 #s(literal -1/4 binary64) (*.f64 a2 a2))) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (/.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))) (*.f64 a1 a1))) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 a1 a1) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (*.f64 a2 a2))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 #s(approx (/ (cos th) 2) (/.f64 #s(literal -1 binary64) #s(literal -2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1))))))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (cos.f64 th) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (/ (* (+ (* a1 a1) (* a2 a2)) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 a1 (*.f64 a1 (cos.f64 th))) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (/ (cos th) 2) (*.f64 #s(literal 1/2 binary64) (cos.f64 th))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (*.f64 (*.f64 a1 a1) (sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 #s(approx (/ (* (cos th) (* a1 a1)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (/.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.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))) (*.f64 a1 a1)) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) #s(approx (/ (* (cos th) (* a2 a2)) 2) (/.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) #s(literal 2 binary64)) a1) a1 (/.f64 (*.f64 (*.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Outputs
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (cos.f64 th))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Calls

8 calls:

79.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
30.0ms
(*.f64 a2 a2)
22.0ms
a1
17.0ms
th
14.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
98.7%1(*.f64 a1 a1)
98.7%1(cos.f64 th)
98.7%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
98.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)))
98.7%1a1
98.7%1th
98.7%1(*.f64 a2 a2)
98.7%1a2
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes147.0ms (2.5%)

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

8 calls:

33.0ms
a1
23.0ms
a2
20.0ms
(*.f64 a2 a2)
15.0ms
(*.f64 a1 a1)
15.0ms
th
Results
AccuracySegmentsBranch
97.9%1(*.f64 a2 a2)
97.9%1(cos.f64 th)
97.9%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
97.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)))
97.9%1a2
97.9%1th
97.9%1(*.f64 a1 a1)
97.9%1a1
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes143.0ms (2.4%)

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

8 calls:

49.0ms
(*.f64 a1 a1)
19.0ms
a1
14.0ms
(*.f64 a2 a2)
12.0ms
th
12.0ms
a2
Results
AccuracySegmentsBranch
73.9%2(*.f64 a2 a2)
68.9%2(*.f64 a1 a1)
76.6%2(cos.f64 th)
76.6%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
68.9%2a1
73.9%2a2
76.3%2th
76.4%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes28.0ms (0.5%)

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

2 calls:

14.0ms
(cos.f64 th)
12.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
76.6%2(cos.f64 th)
76.6%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Compiler

Compiled 7 to 11 computations (-57.1% saved)

regimes26.0ms (0.4%)

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

2 calls:

13.0ms
(cos.f64 th)
10.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
76.6%2(cos.f64 th)
76.6%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Compiler

Compiled 7 to 11 computations (-57.1% saved)

regimes43.0ms (0.7%)

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

4 calls:

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

Compiled 24 to 26 computations (-8.3% saved)

regimes38.0ms (0.6%)

Memory
21.7MiB live, 21.7MiB allocated; 0ms collecting garbage
Counts
22 → 2
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) a2) (/.f64 (*.f64 a1 a1) a2) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (*.f64 a1 a1))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(approx (cos th) #s(literal 1 binary64))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (/.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 2 binary64)) th) th (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) #s(literal 2 binary64))))
Outputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
(+.f64 #s(approx (/ (* (* a1 a1) (cos th)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) #s(approx (cos th) #s(literal 1 binary64)))) (*.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Calls

3 calls:

22.0ms
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
7.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
7.0ms
(cos.f64 th)
Results
AccuracySegmentsBranch
73.8%2(cos.f64 th)
73.8%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
74.0%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Compiler

Compiled 23 to 23 computations (0% saved)

regimes47.0ms (0.8%)

Memory
-35.1MiB live, 56.8MiB allocated; 7ms collecting garbage
Counts
18 → 2
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (/ (+ (* a1 a1) (* a2 a2)) 2) (* (/ (* (* -1/2 (+ (* a1 a1) (* a2 a2))) th) 2) th)) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/4 binary64) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 a1 (/.f64 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) a2) (/.f64 (*.f64 a1 a1) a2) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (*.f64 a1 a1))))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))))
Outputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a2 a2) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
Calls

8 calls:

8.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)))
7.0ms
th
6.0ms
a1
5.0ms
a2
5.0ms
(cos.f64 th)
Results
AccuracySegmentsBranch
45.2%2th
46.7%2(*.f64 a1 a1)
46.7%2a1
53.3%2(cos.f64 th)
53.3%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
43.5%1(*.f64 a2 a2)
45.9%2a2
53.4%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Compiler

Compiled 30 to 40 computations (-33.3% saved)

regimes8.0ms (0.1%)

Memory
18.8MiB live, 18.8MiB allocated; 0ms collecting garbage
Counts
7 → 2
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
Outputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (+ (* (* (* -1/2 (/ (+ (* a1 a1) (* a2 a2)) 2)) th) th) (/ (+ (* a1 a1) (* a2 a2)) 2)) (*.f64 (*.f64 a1 a1) (fma.f64 #s(literal -1/4 binary64) (*.f64 th th) #s(literal 1/2 binary64)))))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
Calls

3 calls:

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

Compiled 23 to 23 computations (0% saved)

regimes18.0ms (0.3%)

Memory
-19.7MiB live, 25.9MiB allocated; 2ms collecting garbage
Counts
6 → 1
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)))
Outputs
(*.f64 #s(approx (/ (cos th) 2) #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
Calls

7 calls:

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

Compiled 28 to 36 computations (-28.6% saved)

regimes15.0ms (0.2%)

Memory
32.4MiB live, 32.4MiB allocated; 0ms collecting garbage
Counts
4 → 1
Calls
Call 1
Inputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(approx (+ 1/2 (/ (* 1/2 (* a1 a1)) (* a2 a2))) #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) a1) a1)))
Outputs
#s(approx (* (/ (cos th) 2) (+ (* a1 a1) (* a2 a2))) #s(approx (/ (+ (* a1 a1) (* a2 a2)) 2) (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2))))
Calls

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

regimes32.0ms (0.5%)

Memory
-28.1MiB live, 21.7MiB allocated; 17ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

8 calls:

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

Compiled 30 to 40 computations (-33.3% saved)

bsearch1.0ms (0%)

Memory
0.9MiB live, 0.9MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.4899672175196002
0.5040334650327635
Compiler

Compiled 18 to 18 computations (0% saved)

bsearch0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.4899672175196002
0.5040334650327635
Compiler

Compiled 18 to 18 computations (0% saved)

bsearch0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.4899672175196002
0.5040334650327635
Compiler

Compiled 18 to 18 computations (0% saved)

bsearch0.0ms (0%)

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

Compiled 19 to 18 computations (5.3% saved)

bsearch0.0ms (0%)

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

Compiled 19 to 18 computations (5.3% saved)

bsearch0.0ms (0%)

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

Compiled 19 to 18 computations (5.3% saved)

bsearch0.0ms (0%)

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

Compiled 19 to 18 computations (5.3% saved)

derivations4.0ms (0.1%)

Memory
7.7MiB live, 7.7MiB allocated; 0ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 175 to 82 computations (53.1% saved)

preprocess318.0ms (5.4%)

Memory
21.8MiB live, 405.0MiB allocated; 76ms collecting garbage
Remove

(sort a1 a2)

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 5 771 to 4 378 computations (24.1% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...