Migdal et al, Equation (64)

Time bar (total: 5.3s)

start0.0ms (0%)

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

analyze0.0ms (0%)

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

Compiled 21 to 14 computations (33.3% saved)

sample1.2s (22.5%)

Memory
49.0MiB live, 2 047.8MiB allocated; 275ms collecting garbage
Samples
878.0ms8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 640.0ms
ival-mult: 250.0ms (39.1% of total)
ival-cos: 200.0ms (31.3% of total)
ival-div: 78.0ms (12.2% of total)
ival-sqrt: 59.0ms (9.2% of total)
ival-add: 36.0ms (5.6% of total)
exact: 6.0ms (0.9% of total)
ival-true: 5.0ms (0.8% of total)
ival-assert: 3.0ms (0.5% of total)
adjust: 2.0ms (0.3% of total)
Bogosity

explain222.0ms (4.2%)

Memory
-13.0MiB live, 445.7MiB allocated; 109ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
00-0-a1
00-0-(*.f64 a1 a1)
00-0-(sqrt.f64 #s(literal 2 binary64))
00-0-th
00-0-#s(literal 2 binary64)
00-0-(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
00-0-(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
00-0-(+.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)))
00-0-(*.f64 a2 a2)
00-0-(cos.f64 th)
00-0-(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
00-0-a2
Confusion
Predicted +Predicted -
+00
-0256
Precision
0/0
Recall
0/0
Confusion?
Predicted +Predicted MaybePredicted -
+000
-00256
Precision?
0/0
Recall?
0/0
Freqs
test
numberfreq
0256
Total Confusion?
Predicted +Predicted MaybePredicted -
+000
-001
Precision?
0/0
Recall?
0/0
Samples
88.0ms512×0valid
Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 65.0ms
ival-sqrt: 26.0ms (39.8% of total)
ival-mult: 21.0ms (32.1% of total)
ival-cos: 12.0ms (18.4% of total)
ival-div: 3.0ms (4.6% of total)
ival-add: 2.0ms (3.1% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

preprocess228.0ms (4.3%)

Memory
20.6MiB live, 213.8MiB allocated; 37ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
040120
1163120
2593120
31539120
43028120
54447120
67176120
01219
02013
15213
217413
355113
4111213
5170613
6309013
7718313
0810012
Stop Event
1×iter limit
1×node limit
1×iter limit
1×node limit
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)))
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)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Symmetry

(abs th)

(abs a2)

(abs a1)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

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

Compiled 0 to 3 computations (-∞% saved)

prune0.0ms (0%)

Memory
1.1MiB live, 1.1MiB allocated; 0ms collecting garbage
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.6%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Compiler

Compiled 19 to 12 computations (36.8% saved)

series21.0ms (0.4%)

Memory
-4.9MiB live, 41.9MiB 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
3.0ms
th
@-inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
3.0ms
a2
@-inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
3.0ms
a1
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms
th
@inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms
a2
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)

simplify202.0ms (3.8%)

Memory
6.8MiB live, 247.3MiB allocated; 69ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0150852
1462820
22122751
08201703
Stop Event
1×iter limit
1×node limit
Counts
34 → 34
Calls
Call 1
Inputs
#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
#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))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 #s(hole binary64 a1))
#s(approx a1 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))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#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)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 #s(hole binary64 a2))
#s(approx 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)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#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))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(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))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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))) (fma.f64 (*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(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)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 th th))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #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)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#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)) (fma.f64 (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#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)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) #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)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th #s(hole binary64 th))
#s(approx th 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)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#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)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#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)) (fma.f64 (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (cos th) (cos.f64 th))

rewrite51.0ms (1%)

Memory
26.0MiB live, 108.3MiB allocated; 9ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01256
02050
17250
051449
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
12 → 118
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
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (pow.f64 a1 #s(literal 1 binary64)) (pow.f64 a1 #s(literal 1 binary64)))
(*.f64 (pow.f64 a1 #s(literal 1 binary64)) a1)
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(neg.f64 (*.f64 a1 (neg.f64 a1)))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
a1
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (pow.f64 a2 #s(literal 1 binary64)) (pow.f64 a2 #s(literal 1 binary64)))
(*.f64 (pow.f64 a2 #s(literal 1 binary64)) a2)
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 a2 (neg.f64 a2)))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
a2

eval23.0ms (0.4%)

Memory
13.1MiB live, 56.5MiB allocated; 6ms collecting garbage
Compiler

Compiled 4 617 to 537 computations (88.4% saved)

prune656.0ms (12.4%)

Memory
-168.5MiB live, 284.8MiB allocated; 1.1s collecting garbage
Pruning

15 alts after pruning (15 fresh and 0 done)

PrunedKeptTotal
New16915184
Fresh000
Picked101
Done000
Total17015185
Accuracy
100.0%
Counts
185 → 15
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.6%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
99.6%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
99.6%
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
99.3%
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
99.6%
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
▶99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
99.6%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2))
99.6%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 a2 a2)))
68.5%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
▶99.6%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
▶68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
▶58.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
99.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
58.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
98.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
Compiler

Compiled 712 to 472 computations (33.7% saved)

series103.0ms (2%)

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

9 calls:

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

simplify171.0ms (3.2%)

Memory
10.8MiB live, 247.1MiB allocated; 27ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03313065
110012807
245932760
082492556
Stop Event
1×iter limit
1×node limit
Counts
103 → 103
Calls
Call 1
Inputs
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (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 (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow 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 (* (* a1 a1) (/ (cos th) (sqrt 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) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
Outputs
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 #s(hole binary64 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#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) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ a2 a1) (/.f64 a2 a1))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) 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) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#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) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx a2 #s(hole binary64 a2))
#s(approx a2 a2)
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (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) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th #s(hole binary64 th))
#s(approx th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#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)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) #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)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th)) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 th th)) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1 (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) th) th))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (/.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) th) th (*.f64 #s(literal -1/2 binary64) a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) a2)
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) th) th (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))

rewrite77.0ms (1.4%)

Memory
-37.4MiB live, 154.1MiB allocated; 13ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
031199
048176
1192176
01646176
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
23 → 427
Calls
Call 1
Inputs
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(cos.f64 th)
th
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
#s(literal 1 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
Outputs
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (cos.f64 th)) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a2 (cos.f64 th)) a2) (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (cos.f64 th) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (cos.f64 th)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (cos.f64 th)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (cos.f64 th)) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (cos.f64 th)) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 a2 (cos.f64 th)) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 a1 (*.f64 a1 (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 a2 (*.f64 a2 (cos.f64 th)) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)))
(+.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(/.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 a2 #s(literal 4 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 (*.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (+.f64 (pow.f64 a1 #s(literal 4 binary64)) (*.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (neg.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (neg.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (neg.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (+.f64 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (pow.f64 a2 #s(literal 1 binary64)) (pow.f64 a2 #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (pow.f64 a2 #s(literal 1 binary64)) (pow.f64 a2 #s(literal 1 binary64)) (*.f64 a1 a1))
(fma.f64 (pow.f64 a2 #s(literal 1 binary64)) a2 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (pow.f64 a2 #s(literal 1 binary64)) a2 (*.f64 a1 a1))
(fma.f64 (pow.f64 a1 #s(literal 1 binary64)) (pow.f64 a1 #s(literal 1 binary64)) (*.f64 a2 a2))
(fma.f64 (pow.f64 a1 #s(literal 1 binary64)) a1 (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (pow.f64 a1 #s(literal 4 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 a2)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (fabs.f64 a2)) (fabs.f64 a2)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a1 a1) (*.f64 a2 (neg.f64 a2)))
(+.f64 (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))) (/.f64 (pow.f64 a1 #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(+.f64 (*.f64 a2 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
a2
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (pow.f64 a1 #s(literal 1 binary64)) (pow.f64 a1 #s(literal 1 binary64)))
(*.f64 (pow.f64 a1 #s(literal 1 binary64)) a1)
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
a1
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (-.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (cos.f64 th)) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1)
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)))
(*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.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 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a1 a1)))
(*.f64 (*.f64 a1 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))))
(*.f64 a1 (*.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))))
(/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a1 a1)) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64))) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (*.f64 (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 1 binary64)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(+.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (*.f64 a1 a1)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 a2 (/.f64 (/.f64 a2 a1) a1) #s(literal 1 binary64))
(fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (/.f64 a2 a1))))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 a2 a1)))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 a1) (/.f64 (neg.f64 a2) a1)))
(+.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 a2) (neg.f64 a1))
(/.f64 a2 a1)
(neg.f64 (/.f64 (neg.f64 a2) a1))
#s(literal 1 binary64)
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (cos.f64 th)) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)) (*.f64 (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (neg.f64 a2) (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (cos.f64 th))
(*.f64 (cos.f64 th) a2)

eval72.0ms (1.4%)

Memory
32.6MiB live, 173.2MiB allocated; 15ms collecting garbage
Compiler

Compiled 19 407 to 1 676 computations (91.4% saved)

prune32.0ms (0.6%)

Memory
-1.0MiB live, 93.2MiB allocated; 5ms collecting garbage
Pruning

29 alts after pruning (27 fresh and 2 done)

PrunedKeptTotal
New65127678
Fresh10010
Picked325
Done000
Total66429693
Accuracy
100.0%
Counts
693 → 29
Alt Table
Click to see full alt table
StatusAccuracyProgram
97.0%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
▶99.6%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
99.6%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
✓99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
99.6%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
75.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1))) (sqrt.f64 #s(literal 2 binary64)))
98.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
58.3%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
98.1%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
99.6%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
68.4%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
▶98.1%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
98.1%
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
▶68.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
68.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
✓68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
14.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
56.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
14.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))))
52.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
▶57.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
▶14.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
Compiler

Compiled 1 591 to 994 computations (37.5% saved)

series144.0ms (2.7%)

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

9 calls:

TimeVariablePointExpression
32.0ms
a2
@0
((+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (cosh (asinh 1))) (* (cos th) a2) (cos th) th a2 (cosh (asinh 1)) (asinh 1) 1 (* (* a1 a1) (/ (cos th) (sqrt 2))) (* a1 a1) a1 (/ (cos th) (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (/ a2 a1) (/ a2 a1)) (/ a2 a1))
20.0ms
a1
@-inf
((+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (cosh (asinh 1))) (* (cos th) a2) (cos th) th a2 (cosh (asinh 1)) (asinh 1) 1 (* (* a1 a1) (/ (cos th) (sqrt 2))) (* a1 a1) a1 (/ (cos th) (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (/ a2 a1) (/ a2 a1)) (/ a2 a1))
20.0ms
a2
@inf
((+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (cosh (asinh 1))) (* (cos th) a2) (cos th) th a2 (cosh (asinh 1)) (asinh 1) 1 (* (* a1 a1) (/ (cos th) (sqrt 2))) (* a1 a1) a1 (/ (cos th) (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (/ a2 a1) (/ a2 a1)) (/ a2 a1))
17.0ms
a1
@0
((+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (cosh (asinh 1))) (* (cos th) a2) (cos th) th a2 (cosh (asinh 1)) (asinh 1) 1 (* (* a1 a1) (/ (cos th) (sqrt 2))) (* a1 a1) a1 (/ (cos th) (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (/ a2 a1) (/ a2 a1)) (/ a2 a1))
17.0ms
a2
@-inf
((+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (cosh (asinh 1))) (* (cos th) a2) (cos th) th a2 (cosh (asinh 1)) (asinh 1) 1 (* (* a1 a1) (/ (cos th) (sqrt 2))) (* a1 a1) a1 (/ (cos th) (sqrt 2)) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a2 a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (/ a2 a1) (/ a2 a1)) (/ a2 a1))

simplify217.0ms (4.1%)

Memory
25.4MiB live, 318.4MiB allocated; 74ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03542947
111152815
252242753
081042588
Stop Event
1×iter limit
1×node limit
Counts
94 → 94
Calls
Call 1
Inputs
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* 2 (/ (* (pow a2 2) (cos th)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (* (pow a2 2) (cos th)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* a1 (/ a1 (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (* 2 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 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))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (* 2 (/ (* a2 (cos th)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (* 2 (/ (cos th) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* (pow th 2) (+ (* -1 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* -1/2 (/ (pow a1 2) (sqrt 2))))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* (pow th 2) (+ (* -1 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/12 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* (pow th 2) (+ (* -1 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/12 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1/360 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* -1/720 (/ (pow a1 2) (sqrt 2))))))))))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (+ (* -1 (/ (* a2 (pow th 2)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (+ (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* 1/12 (/ (* a2 (pow th 2)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (+ (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1/360 (/ (* a2 (pow th 2)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* 1/12 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))))))))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow 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 (* (* a1 a1) (/ (cos th) (sqrt 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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
Outputs
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* 2 (/ (* (pow a2 2) (cos th)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (* (pow a2 2) (cos th)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 #s(hole binary64 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 (/ a1 (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* a1 (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (* (/ a2 a1) (/ a2 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ a2 a1) (/.f64 a2 a1))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (* 2 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))) (/ (cos th) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 #s(literal 2 binary64) (*.f64 a1 a1)) (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (* 2 (/ (* a2 (cos th)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 th)) a2) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx a2 #s(hole binary64 a2))
#s(approx a2 a2)
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* a2 (/ a2 (sqrt 2))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (* 2 (/ (cos th) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 (cos.f64 th) (*.f64 a2 a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (/.f64 (*.f64 #s(literal 2 binary64) (cos.f64 th)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 (/ a1 (sqrt 2))) (* a2 (/ a2 (sqrt 2)))) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 (*.f64 (*.f64 #s(literal 2 binary64) a2) a2) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* (pow th 2) (+ (* -1 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* -1/2 (/ (pow a1 2) (sqrt 2))))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (-.f64 (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) a2) a2 (*.f64 (*.f64 th th) (*.f64 (neg.f64 a2) a2))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 th (/.f64 th (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* (pow th 2) (+ (* -1 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/12 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) a2) a2 (*.f64 (*.f64 th th) (*.f64 (neg.f64 a2) a2))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (*.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (/.f64 (*.f64 (*.f64 #s(literal 1/12 binary64) a2) a2) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th))) (*.f64 th th)))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* 2 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* (pow th 2) (+ (* -1 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/12 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1/360 (/ (pow a2 2) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* -1/720 (/ (pow a1 2) (sqrt 2))))))))))) (/ (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (cosh (asinh 1))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) a2) a2 (*.f64 (*.f64 th th) (*.f64 (neg.f64 a2) a2))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1 (-.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) a2) a2 (*.f64 (*.f64 #s(literal -1/360 binary64) (*.f64 a2 a2)) (*.f64 th th))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/720 binary64) (*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 th th))))) (*.f64 th th) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1)) (*.f64 th th)))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2)))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) (/.f64 (*.f64 #s(literal 2 binary64) a2) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (+ (* -1 (/ (* a2 (pow th 2)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) (/.f64 (fma.f64 (neg.f64 a2) (*.f64 th th) (*.f64 #s(literal 2 binary64) a2)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (+ (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* 1/12 (/ (* a2 (pow th 2)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) (/.f64 (+.f64 (fma.f64 (neg.f64 a2) (*.f64 th th) (*.f64 #s(literal 2 binary64) a2)) (*.f64 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/12 binary64)) (*.f64 th th))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) #s(hole binary64 (+ (* 2 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* (pow th 2) (+ (* -1/360 (/ (* a2 (pow th 2)) (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))) (* 1/12 (/ a2 (+ 1 (+ (sqrt 2) (/ 1 (+ 1 (sqrt 2))))))))))))))
#s(approx (/ (* (cos th) a2) (cosh (asinh 1))) (+.f64 (/.f64 (fma.f64 (neg.f64 a2) (*.f64 th th) (*.f64 #s(literal 2 binary64) a2)) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 #s(literal 1/12 binary64) a2 (*.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/360 binary64))) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) a2)
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) th) th (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th #s(hole binary64 th))
#s(approx th th)
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#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)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) #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)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+.f64 (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+.f64 (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) th) th) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) th) th) (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1 (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) th) th))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))

rewrite124.0ms (2.3%)

Memory
19.4MiB live, 124.4MiB allocated; 65ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
044312
066273
1235268
01856258
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
31 → 299
Calls
Call 1
Inputs
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(asinh.f64 #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
(*.f64 a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(/.f64 a2 a1)
Outputs
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a2 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 3 binary64)) (fma.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 (*.f64 a1 a1) (*.f64 a2 a2))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (neg.f64 a2) (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (cos.f64 th))
(*.f64 (cos.f64 th) a2)
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
a2
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (+.f64 (exp.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))) (exp.f64 (neg.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))
(cosh.f64 (neg.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))))
(cosh.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (exp.f64 (asinh.f64 #s(literal 1 binary64))) #s(literal 2 binary64)) (/.f64 (exp.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))) #s(literal 2 binary64)))
(asinh.f64 #s(literal 1 binary64))
(log1p.f64 (sqrt.f64 #s(literal 2 binary64)))
(log.f64 (exp.f64 (asinh.f64 #s(literal 1 binary64))))
#s(literal 1 binary64)
(*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (pow.f64 a1 #s(literal 1 binary64)) (pow.f64 a1 #s(literal 1 binary64)))
(*.f64 (pow.f64 a1 #s(literal 1 binary64)) a1)
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
a1
(*.f64 (/.f64 (cos.f64 th) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (+.f64 (exp.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))) (exp.f64 (neg.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))))) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))
(cosh.f64 (neg.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))))
(cosh.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (exp.f64 (asinh.f64 #s(literal 1 binary64))) #s(literal 2 binary64)) (/.f64 (exp.f64 (neg.f64 (asinh.f64 #s(literal 1 binary64)))) #s(literal 2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(*.f64 (/.f64 (*.f64 a1 a1) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 a1 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 a1 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64))) (*.f64 (+.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))) (pow.f64 a2 #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 (neg.f64 (neg.f64 a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (neg.f64 (neg.f64 a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (neg.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 3 binary64)) (fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(literal 3 binary64)) (fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (-.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) (pow.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(+.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (neg.f64 (neg.f64 a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 (*.f64 a2 a2) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 (neg.f64 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 a2 (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (pow.f64 a2 #s(literal 1 binary64)) (pow.f64 a2 #s(literal 1 binary64)))
(*.f64 (pow.f64 a2 #s(literal 1 binary64)) a2)
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(neg.f64 (*.f64 a2 (neg.f64 a2)))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1)
(*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))
(*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 (*.f64 a1 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(*.f64 a1 (*.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1)) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(*.f64 (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)))
(*.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)))
(*.f64 (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1))
(*.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))))
(*.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))))
(*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 a2 a1))
(*.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)))
(*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1))
(*.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (*.f64 a1 a1)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)))
(*.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)))
(*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(*.f64 a2 (/.f64 (/.f64 a2 a1) a1))
(*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))
(pow.f64 (/.f64 (neg.f64 a2) a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 2 binary64))
(pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 a2 a2) (neg.f64 a1)) (neg.f64 a1))
(/.f64 (/.f64 (*.f64 a2 a2) (fabs.f64 a1)) (fabs.f64 a1))
(/.f64 (*.f64 (*.f64 (/.f64 a2 a1) a2) #s(literal 1 binary64)) a1)
(/.f64 (*.f64 (*.f64 a2 a2) #s(literal 1 binary64)) (*.f64 a1 a1))
(/.f64 (*.f64 (neg.f64 a2) (/.f64 a2 a1)) (neg.f64 a1))
(/.f64 (*.f64 (/.f64 a2 a1) (neg.f64 a2)) (neg.f64 a1))
(/.f64 (neg.f64 (*.f64 (/.f64 a2 a1) a2)) (neg.f64 a1))
(/.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a1) a1))
(/.f64 (*.f64 a2 (neg.f64 a2)) (*.f64 (neg.f64 a1) a1))
(/.f64 (neg.f64 (*.f64 a2 a2)) (*.f64 (neg.f64 a1) a1))
(/.f64 (*.f64 (/.f64 a2 a1) a2) a1)
(/.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(neg.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 a2 a1)))
(neg.f64 (*.f64 (/.f64 a2 a1) (/.f64 (neg.f64 a2) a1)))
(fabs.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 a2 a1)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 a2) (neg.f64 a1))
(/.f64 a2 a1)
(neg.f64 (/.f64 (neg.f64 a2) a1))

eval58.0ms (1.1%)

Memory
4.7MiB live, 93.7MiB allocated; 15ms collecting garbage
Compiler

Compiled 18 315 to 1 529 computations (91.7% saved)

prune134.0ms (2.5%)

Memory
-36.1MiB live, 67.3MiB allocated; 143ms collecting garbage
Pruning

31 alts after pruning (26 fresh and 5 done)

PrunedKeptTotal
New5026508
Fresh22022
Picked235
Done022
Total50631537
Accuracy
100.0%
Counts
537 → 31
Alt Table
Click to see full alt table
StatusAccuracyProgram
97.0%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
97.0%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
99.6%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
✓99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
▶99.6%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
▶75.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1))) (sqrt.f64 #s(literal 2 binary64)))
98.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
58.3%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
▶98.1%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
99.6%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
✓98.1%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
58.3%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.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))))
68.4%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
98.1%
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
✓68.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
68.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
✓68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
14.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
56.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
14.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
52.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
44.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
▶44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
▶68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
✓14.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
Compiler

Compiled 1 693 to 1 060 computations (37.4% saved)

series40.0ms (0.8%)

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

9 calls:

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

simplify161.0ms (3.1%)

Memory
6.1MiB live, 184.2MiB allocated; 35ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03402739
110212584
246462560
082912377
Stop Event
1×iter limit
1×node limit
Counts
107 → 107
Calls
Call 1
Inputs
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ a1 (sqrt 2)) a1) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) a1)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (* a1 (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (* -1 (* a1 (- (* -1 (/ (pow a2 2) (pow a1 2))) 1)))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (+ a1 (/ (pow a2 2) a1))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 a1) (/ a1 (pow a2 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow 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 (* (* a1 a1) (/ (cos th) (sqrt 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) a2) a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
Outputs
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx (/ a1 a2) (/.f64 a1 a2))
#s(approx a1 #s(hole binary64 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (* (/ a2 a1) (/ a2 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ a2 a1) (/.f64 a2 a1))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ a1 (sqrt 2)) a1) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ a1 (sqrt 2)) a1) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ a1 (sqrt 2)) #s(hole binary64 (/ a1 (sqrt 2))))
#s(approx (/ a1 (sqrt 2)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) (*.f64 a2 a2))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (/ (pow a2 2) a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (*.f64 (/.f64 a2 a1) a2))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) (*.f64 a1 a1))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1)
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (* a1 (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (* -1 (* a1 (- (* -1 (/ (pow a2 2) (pow a1 2))) 1)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (*.f64 (neg.f64 a1) (fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 a2 a1) #s(literal -1 binary64))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx a2 #s(hole binary64 a2))
#s(approx a2 a2)
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* a2 (/ a2 (sqrt 2))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (* (cos th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a2) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (+ a1 (/ (pow a2 2) a1))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (fma.f64 (/.f64 a2 a1) a2 a1))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 (/.f64 a1 a2) a1) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) 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)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) a1) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 a1) (/ a1 (pow a2 2))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (*.f64 (+.f64 (/.f64 (/.f64 a1 a2) a2) (/.f64 #s(literal 1 binary64) a1)) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (/.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (+.f64 (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#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) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th #s(hole binary64 th))
#s(approx th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (/.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (+.f64 (/.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th)) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 th th)) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+.f64 (/.f64 (fma.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1)) (*.f64 th th))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) th) th))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1)) (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a1 a1)) (*.f64 th th) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (/.f64 (fma.f64 (*.f64 th th) (*.f64 #s(literal -1/720 binary64) (*.f64 a1 a1)) (*.f64 #s(literal 1/24 binary64) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (cos th) a2) a2) (*.f64 a2 a2))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) th) th (*.f64 a2 a2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) th) th (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2))) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/720 binary64) a2) a2) (pow.f64 th #s(literal 4 binary64)) (fma.f64 (*.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 a2 a2)) th) th (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)))) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) a2)
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) th) th (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))

rewrite75.0ms (1.4%)

Memory
-14.4MiB live, 85.7MiB allocated; 17ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
051452
076418
1231418
01685406
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
36 → 267
Calls
Call 1
Inputs
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2))))
(cos.f64 th)
th
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(*.f64 a2 a2)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
(*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(/.f64 a2 a1)
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2))
(*.f64 (*.f64 (cos.f64 th) a2) a2)
(*.f64 (cos.f64 th) a2)
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1))
(*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1)
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
Outputs
(*.f64 (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))) (cos.f64 th))
(*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2)))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (neg.f64 a2)) (neg.f64 a2))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (fabs.f64 a2)) (fabs.f64 a2))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) a2) a2)
(*.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64))))
(*.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64))))
(*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2))
(*.f64 (*.f64 a2 a2) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)))
(*.f64 a2 (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64)) a2))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (*.f64 a2 a2)) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 a2 a2)) (-.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 (*.f64 a2 a2) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal -1 binary64))) (-.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 #s(literal 1 binary64) (*.f64 a2 a2)))
(fma.f64 #s(literal 1 binary64) (*.f64 a2 a2) (*.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))
(fma.f64 (*.f64 a2 a2) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal 1 binary64)))
(fma.f64 (*.f64 a2 a2) #s(literal 1 binary64) (*.f64 (*.f64 a2 a2) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))))
(+.f64 (*.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 #s(literal 1 binary64) (*.f64 a2 a2)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 a2 a2)) (*.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a2 a2) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 a2 a2) #s(literal 1 binary64)) (*.f64 (*.f64 a2 a2) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal -1 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal -1 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (neg.f64 a1) a2) #s(literal 1 binary64)) (*.f64 (/.f64 (neg.f64 a1) a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64)) (*.f64 (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (*.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (/.f64 a1 a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a1) (fabs.f64 a2)) (/.f64 (neg.f64 a1) (fabs.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a1) (neg.f64 a2)) (/.f64 (fabs.f64 a1) (neg.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a1) a2) (/.f64 (fabs.f64 a1) a2) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 (fabs.f64 a2)) (/.f64 a1 (fabs.f64 a2)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a1 a2))) (neg.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a1 a2))) (fabs.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a1 a2) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a1) a2) (*.f64 (/.f64 (neg.f64 a1) a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a1) a2) (/.f64 (neg.f64 a1) a2) #s(literal 1 binary64))
(fma.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (*.f64 a2 a2)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a1 a2)) (*.f64 (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a1 a2)) (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (*.f64 a2 a2)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 a2) (*.f64 (/.f64 a1 a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(fma.f64 a1 (/.f64 (/.f64 a1 a2) a2) #s(literal 1 binary64))
(fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fabs.f64 (/.f64 a1 a2))) (fabs.f64 (/.f64 a1 a2))))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (neg.f64 a1) a2) (/.f64 a1 a2)))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a1 a2) (/.f64 (neg.f64 a1) a2)))
(+.f64 (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)))))
(+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a2)))
(/.f64 (neg.f64 a1) (neg.f64 a2))
(/.f64 a1 a2)
(neg.f64 (/.f64 (neg.f64 a1) a2))
a1
a2
#s(literal 1 binary64)
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (pow.f64 a2 #s(literal 1 binary64)) (pow.f64 a2 #s(literal 1 binary64)))
(*.f64 (pow.f64 a2 #s(literal 1 binary64)) a2)
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(neg.f64 (*.f64 a2 (neg.f64 a2)))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 (neg.f64 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(*.f64 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)) #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(*.f64 (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)))
(*.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)))
(*.f64 (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1))
(*.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))))
(*.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))))
(*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 a2 a1))
(*.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (*.f64 a1 a1)))
(*.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)))
(*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1))
(*.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)))
(*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))
(*.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(*.f64 a2 (/.f64 (/.f64 a2 a1) a1))
(*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))
(pow.f64 (/.f64 (neg.f64 a2) a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 2 binary64))
(pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 a2 a2) (neg.f64 a1)) (neg.f64 a1))
(/.f64 (/.f64 (*.f64 a2 a2) (fabs.f64 a1)) (fabs.f64 a1))
(/.f64 (*.f64 (*.f64 (/.f64 a2 a1) a2) #s(literal 1 binary64)) a1)
(/.f64 (*.f64 (neg.f64 a2) (/.f64 a2 a1)) (neg.f64 a1))
(/.f64 (*.f64 (/.f64 a2 a1) (neg.f64 a2)) (neg.f64 a1))
(/.f64 (*.f64 (*.f64 a2 a2) #s(literal 1 binary64)) (*.f64 a1 a1))
(/.f64 (neg.f64 (*.f64 (/.f64 a2 a1) a2)) (neg.f64 a1))
(/.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a1) a1))
(/.f64 (*.f64 a2 (neg.f64 a2)) (*.f64 (neg.f64 a1) a1))
(/.f64 (neg.f64 (*.f64 a2 a2)) (*.f64 (neg.f64 a1) a1))
(/.f64 (*.f64 (/.f64 a2 a1) a2) a1)
(/.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(neg.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 a2 a1)))
(neg.f64 (*.f64 (/.f64 a2 a1) (/.f64 (neg.f64 a2) a1)))
(fabs.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 a2 a1)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 a2) (neg.f64 a1))
(/.f64 a2 a1)
(neg.f64 (/.f64 (neg.f64 a2) a1))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(*.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 a1 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 (cos.f64 th)) a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(*.f64 (*.f64 (cos.f64 th) (neg.f64 a2)) (neg.f64 a2))
(*.f64 (*.f64 (cos.f64 th) (fabs.f64 a2)) (fabs.f64 a2))
(*.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (cos.f64 th)))
(*.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (cos.f64 th)))
(*.f64 (*.f64 a2 (cos.f64 th)) a2)
(*.f64 (*.f64 a2 a2) (cos.f64 th))
(*.f64 a2 (*.f64 a2 (cos.f64 th)))
(*.f64 (cos.f64 th) (*.f64 a2 a2))
(*.f64 a2 (cos.f64 th))
(*.f64 (cos.f64 th) a2)
(*.f64 (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)) (cos.f64 th))
(*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1) a1)
(*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)))
(*.f64 a1 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (*.f64 a1 a1)) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) a1)
(*.f64 a1 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) a1) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) a1) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 a1 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (*.f64 a1 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64))) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1 (*.f64 #s(literal 1 binary64) a1))
(fma.f64 #s(literal 1 binary64) a1 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1))
(fma.f64 a1 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 a1 #s(literal 1 binary64)))
(fma.f64 a1 #s(literal 1 binary64) (*.f64 a1 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(+.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1) (*.f64 #s(literal 1 binary64) a1))
(+.f64 (*.f64 #s(literal 1 binary64) a1) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1))
(+.f64 (*.f64 a1 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 #s(literal 1 binary64)))
(+.f64 (*.f64 a1 #s(literal 1 binary64)) (*.f64 a1 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64))) (neg.f64 (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal -1 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (*.f64 a1 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 a2 (/.f64 (/.f64 a2 a1) a1) #s(literal 1 binary64))
(fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (/.f64 a2 a1))))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 a2 a1)))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 a2 a1) (/.f64 (neg.f64 a2) a1)))
(+.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))

eval49.0ms (0.9%)

Memory
43.1MiB live, 87.7MiB allocated; 6ms collecting garbage
Compiler

Compiled 16 787 to 1 909 computations (88.6% saved)

prune46.0ms (0.9%)

Memory
-10.4MiB live, 80.3MiB allocated; 11ms collecting garbage
Pruning

35 alts after pruning (27 fresh and 8 done)

PrunedKeptTotal
New45712469
Fresh61521
Picked235
Done055
Total46535500
Accuracy
100.0%
Counts
500 → 35
Alt Table
Click to see full alt table
StatusAccuracyProgram
97.0%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
99.6%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
✓99.6%
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
93.8%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a1 (/.f64 a1 (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
64.0%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) a1) a1))) (sqrt.f64 #s(literal 2 binary64)))
87.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) a1) (*.f64 (/.f64 a2 a1) a2)) a1))) (sqrt.f64 #s(literal 2 binary64)))
98.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
✓98.1%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
98.1%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (cosh.f64 (asinh.f64 #s(literal 1 binary64))))
56.6%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
68.4%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 #s(approx (* (cos th) a2) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
29.0%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (* (* (cos th) a2) a2) (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) th) th (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
99.6%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
✓98.1%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
58.3%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.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))))
68.4%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
98.1%
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
✓68.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
68.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
✓68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
14.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
56.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
14.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
52.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (/.f64 (*.f64 (/.f64 a2 a1) a2) a1)) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (/.f64 (*.f64 a2 a2) (*.f64 a1 a1))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
✓44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
32.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
44.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
✓68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
68.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))))
✓14.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
Compiler

Compiled 2 871 to 903 computations (68.5% saved)

regimes149.0ms (2.8%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes118.0ms (2.2%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes88.0ms (1.7%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes66.0ms (1.2%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes66.0ms (1.3%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes59.0ms (1.1%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes53.0ms (1%)

Memory
10.7MiB live, 105.7MiB allocated; 8ms collecting garbage
Counts
24 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 #s(approx (* (cos th) a2) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.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 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (* (* (cos th) a2) a2) (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 a2 a2)) th) th (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (/.f64 (*.f64 (/.f64 a2 a1) a2) a1)) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1))) (*.f64 (*.f64 a1 a1) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
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
a1
6.0ms
th
6.0ms
a2
6.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
98.1%1(*.f64 a1 a1)
98.1%1a1
98.1%1(*.f64 a2 a2)
98.1%1(cos.f64 th)
98.1%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
98.1%1(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
98.1%1a2
98.1%1th
Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes49.0ms (0.9%)

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

8 calls:

7.0ms
a1
7.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
6.0ms
a2
6.0ms
th
6.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
76.7%2(cos.f64 th)
76.7%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
68.5%1th
68.5%1(*.f64 a1 a1)
77.1%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
68.5%1a1
68.5%1(*.f64 a2 a2)
68.5%1a2
Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes5.0ms (0.1%)

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

1 calls:

4.0ms
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Results
AccuracySegmentsBranch
77.1%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 19 to 12 computations (36.8% saved)

regimes23.0ms (0.4%)

Memory
0.0MiB live, 48.3MiB allocated; 5ms collecting garbage
Counts
8 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 #s(approx (* (cos th) a2) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes19.0ms (0.4%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes12.0ms (0.2%)

Memory
-18.1MiB live, 26.6MiB allocated; 5ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory
1.2MiB live, 1.2MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.0758827092556034e-115
-3.1973294288759866e-165
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.9MiB live, 0.9MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-1.0758827092556034e-115
-3.1973294288759866e-165
Compiler

Compiled 22 to 18 computations (18.2% saved)

simplify45.0ms (0.9%)

Memory
-5.1MiB live, 40.8MiB allocated; 6ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
073364
1127358
2302358
3736358
41401358
53813358
Stop Event
1×node limit
Calls
Call 1
Inputs
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -554533938824163/5545339388241629719156828368286167406872874150751633150340959161229242615611251246079948812208279156194782421922807143657948315648 binary64)) (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -554533938824163/5545339388241629719156828368286167406872874150751633150340959161229242615611251246079948812208279156194782421922807143657948315648 binary64)) (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
Outputs
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -554533938824163/5545339388241629719156828368286167406872874150751633150340959161229242615611251246079948812208279156194782421922807143657948315648 binary64)) (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -554533938824163/5545339388241629719156828368286167406872874150751633150340959161229242615611251246079948812208279156194782421922807143657948315648 binary64)) (*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))

derivations340.0ms (6.4%)

Memory
14.8MiB live, 344.9MiB allocated; 56ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 400 to 69 computations (82.8% saved)

preprocess94.0ms (1.8%)

Memory
19.6MiB live, 157.9MiB allocated; 36ms collecting garbage
Remove

(abs a1)

(abs th)

Compiler

Compiled 1 294 to 522 computations (59.7% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...