Migdal et al, Equation (64)

Time bar (total: 5.0s)

start0.0ms (0%)

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

analyze1.0ms (0%)

Memory
1.3MiB live, 1.3MiB 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.4s (27.2%)

Memory
39.9MiB live, 1 202.3MiB allocated; 1.1s collecting garbage
Samples
1.0s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 432.0ms
ival-cos: 235.0ms (54.3% of total)
ival-mult!: 139.0ms (32.1% of total)
ival-div!: 39.0ms (9% of total)
ival-add!: 17.0ms (3.9% of total)
adjust: 2.0ms (0.5% of total)
Bogosity

explain256.0ms (5.1%)

Memory
12.2MiB live, 206.5MiB allocated; 23ms 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
97.0ms512×0valid
Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 26.0ms
ival-cos: 11.0ms (42.3% of total)
ival-mult!: 11.0ms (42.3% of total)
ival-div!: 2.0ms (7.7% of total)
ival-add!: 1.0ms (3.8% of total)
adjust: 0.0ms (0% of total)

preprocess246.0ms (4.9%)

Memory
6.7MiB live, 195.7MiB allocated; 15ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
041133
1163133
2595133
31542133
43030133
54451133
67243133
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 a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

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

Compiled 0 to 3 computations (-∞% saved)

prune0.0ms (0%)

Memory
0.7MiB live, 0.7MiB 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)

series41.0ms (0.8%)

Memory
-6.4MiB live, 39.7MiB allocated; 5ms 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
17.0ms
th
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
6.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)
4.0ms
th
@inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
3.0ms
a1
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms
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)

rewrite198.0ms (3.9%)

Memory
30.3MiB live, 265.3MiB allocated; 35ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval21.0ms (0.4%)

Memory
-7.1MiB live, 38.8MiB allocated; 3ms collecting garbage
Compiler

Compiled 4 786 to 594 computations (87.6% saved)

prune47.0ms (0.9%)

Memory
-37.6MiB live, 19.8MiB allocated; 7ms collecting garbage
Pruning

13 alts after pruning (13 fresh and 0 done)

PrunedKeptTotal
New17413187
Fresh000
Picked101
Done000
Total17513188
Accuracy
100.0%
Counts
188 → 13
Alt Table
Click to see full alt table
StatusAccuracyProgram
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 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
▶99.6%
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
▶99.7%
(/.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 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
70.0%
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (*.f64 a2 a2)))
99.6%
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
32.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
32.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) (/.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)))))
▶70.1%
#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))))
57.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
▶99.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.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)))
▶98.8%
#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 714 to 434 computations (39.2% saved)

series55.0ms (1.1%)

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

9 calls:

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

rewrite209.0ms (4.1%)

Memory
36.9MiB live, 268.1MiB allocated; 22ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval107.0ms (2.1%)

Memory
-5.7MiB live, 141.3MiB allocated; 14ms collecting garbage
Compiler

Compiled 19 312 to 1 890 computations (90.2% saved)

prune44.0ms (0.9%)

Memory
8.7MiB live, 107.8MiB allocated; 23ms collecting garbage
Pruning

26 alts after pruning (24 fresh and 2 done)

PrunedKeptTotal
New54323566
Fresh718
Picked325
Done000
Total55326579
Accuracy
100.0%
Counts
579 → 26
Alt Table
Click to see full alt table
StatusAccuracyProgram
99.5%
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
97.7%
(/.f64 (fma.f64 (*.f64 #s(approx (* (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
32.4%
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th)))) #s(literal 2 binary64))
32.4%
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th)))) #s(literal 2 binary64))
▶32.5%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
32.4%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
98.8%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
▶99.6%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
70.0%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
98.8%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
32.4%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
32.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 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)))))
69.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
▶70.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
✓70.1%
#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))))
▶29.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
69.6%
#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))))
▶13.1%
#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))))
57.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
66.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
66.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
98.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
✓98.8%
#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)))))
65.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))))
66.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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)))))
69.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
Compiler

Compiled 1 916 to 1 109 computations (42.1% saved)

series55.0ms (1.1%)

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

9 calls:

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

rewrite226.0ms (4.5%)

Memory
12.6MiB live, 329.2MiB allocated; 56ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
05145412
05634854
131704790
086314685
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
180 → 502
Calls
Call 1
Inputs
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(cos.f64 th)
th
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
#s(literal 1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1)))
(*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))
(+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64))
(/.f64 (*.f64 a2 a2) (*.f64 a1 a1))
#s(literal 1 binary64)
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th)))
#s(literal -1/2 binary64)
(*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))
(*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(literal 1/24 binary64)
(*.f64 th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
(fma.f64 a2 a2 (*.f64 a1 a1))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ (* a2 a2) (* a1 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) 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) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* 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 (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))) (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2)))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a2 2)) (+ (* 1/24 (* (pow a2 2) (pow th 2))) (* (pow a1 2) (- (* 1/24 (pow th 2)) 1/2))))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) #s(hole binary64 (* 1/24 (* (pow a2 2) (pow th 2)))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) #s(hole binary64 (+ (* 1/24 (* (pow a1 2) (pow th 2))) (* 1/24 (* (pow a2 2) (pow th 2))))))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/24 (pow a2 2))))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a2 2) (sqrt 1/2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 1))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) 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) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2))))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ 1 (+ (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)) (+ (/ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a1 2)) (/ (pow a2 2) (pow a1 2))))))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* (pow a1 2) (- (* 1/24 (pow th 2)) 1/2))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* (pow a1 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (+ (* 1/24 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (* 1/24 (pow th 2)))) 1/2))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) #s(hole binary64 (* 1/24 (* (pow a1 2) (pow th 2)))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) #s(hole binary64 (* (pow a1 2) (+ (* 1/24 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (* 1/24 (pow th 2))))))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/24 (pow a1 2))))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ 1/24 (* 1/24 (/ (pow a2 2) (pow a1 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a1 2) (sqrt 1/2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a2 2) (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))) (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2)))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (+ (* 1/24 (* (pow a1 2) (pow th 2))) (* (pow a2 2) (- (* 1/24 (pow th 2)) 1/2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) 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) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2))))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ 1 (+ (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)) (+ (/ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a2 2)) (/ (pow a1 2) (pow a2 2))))))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* (pow a2 2) (- (* 1/24 (pow th 2)) 1/2))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* (pow a2 2) (- (+ (* -1/2 (/ (pow a1 2) (pow a2 2))) (+ (* 1/24 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (* 1/24 (pow th 2)))) 1/2))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) #s(hole binary64 (* (pow a2 2) (+ (* 1/24 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (* 1/24 (pow th 2))))))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ 1/24 (* 1/24 (/ (pow a1 2) (pow a2 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/48 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (sqrt 2)))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* -1/2 (* (pow th 2) (sqrt 2))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* (pow th 2) (+ (* -1/2 (sqrt 2)) (* 1/24 (* (pow th 2) (sqrt 2))))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* (pow th 2) (+ (* -1/2 (sqrt 2)) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (sqrt 2))) (* 1/24 (sqrt 2)))))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (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) a2) (* (* (cos th) a1) a1)) (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) a2) (* (* (cos th) a1) a1)) (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) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (+ (* 1/24 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (pow a1 2)) (* -1/720 (pow a2 2)))))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* -1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) #s(hole binary64 (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (* (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (sqrt 2))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* 1/24 (* (pow th 4) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow th 4) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2))) (* 1/24 (+ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow th 4) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2))) (+ (* 1/24 (+ (pow a1 2) (pow a2 2))) (+ (/ (pow a1 2) (pow th 4)) (/ (pow a2 2) (pow th 4))))))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2))) (* 1/24 (+ (pow a1 2) (pow a2 2)))))))
Outputs
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/2 binary64))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(literal 3 binary64))) (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(literal 3 binary64))) (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(fma.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(fma.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(*.f64 (*.f64 (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 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))))
(*.f64 (cos.f64 th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(literal 3 binary64)) (*.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(literal 3 binary64))))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))))
(/.f64 (*.f64 #s(literal -1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 3 binary64)))) (*.f64 (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))))))
(/.f64 (*.f64 #s(literal -1 binary64) (fma.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 3 binary64)))) (*.f64 (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))) (*.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)))) (*.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) (-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))))
(/.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 3 binary64)))) (*.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))))))
(/.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 3 binary64)))) (*.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(literal 3 binary64)) (*.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))))))
(fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 a2 a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 a1 (cos.f64 th)) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
(+.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))
(*.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)))
(pow.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (-.f64 #s(literal 0 binary64) (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (neg.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#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 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(/.f64 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 a2 #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (neg.f64 (+.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 a1 #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(/.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 a1 #s(literal 6 binary64))) (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (-.f64 (pow.f64 a1 #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 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
a1
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
#s(literal 1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 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)))
(fma.f64 (*.f64 a1 a1) #s(literal 1 binary64) (*.f64 (*.f64 a1 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (*.f64 a1 a1) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 a1 a1)) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))))) (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 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 #s(literal 1 binary64) (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 a1 #s(literal 6 binary64))))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 a1 #s(literal 6 binary64))) #s(literal 1 binary64))) (neg.f64 (+.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64))))))
(/.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) #s(literal 2 binary64) (*.f64 a1 #s(literal 2 binary64))) (*.f64 a1 #s(literal 2 binary64)))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64) (*.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 a2 a2) #s(literal 2 binary64) (*.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) a1 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 a2 a2) a1))) (*.f64 #s(literal 2 binary64) a1))
(/.f64 (fma.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a1 a1)) (*.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a2 a2)))) (*.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a1 a1))))
(/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 a1 a1) (*.f64 #s(literal 2 binary64) (*.f64 a2 a2))) (*.f64 #s(literal 2 binary64) (*.f64 a1 a1)))
(/.f64 (fma.f64 (*.f64 a1 a1) a1 (*.f64 (*.f64 a1 a1) (/.f64 (*.f64 a2 a2) a1))) (*.f64 (*.f64 a1 a1) a1))
(/.f64 (fma.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a1 a1)) (*.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a2 a2)))) (*.f64 (*.f64 a1 a1) (neg.f64 (*.f64 a1 a1))))
(/.f64 (+.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64))) (pow.f64 a1 #s(literal 4 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(/.f64 (-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 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 #s(literal 1 binary64) (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 a1 #s(literal 6 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (*.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))))
(/.f64 (+.f64 (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 a1 #s(literal 6 binary64))) #s(literal 1 binary64)) (+.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (*.f64 a1 a1)))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (/.f64 a2 a1)) (neg.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 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 (/.f64 a2 a1)) (neg.f64 (/.f64 a2 a1)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))
(pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))
(/.f64 (neg.f64 (/.f64 (*.f64 a2 a2) a1)) (neg.f64 a1))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 (*.f64 a1 a1))))
(/.f64 (/.f64 (*.f64 a2 a2) a1) a1)
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (*.f64 a1 a1)))
(/.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(exp.f64 (-.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)) (*.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(literal 1 binary64)
(/.f64 (neg.f64 (neg.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1))))))
(fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) th) th (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(+.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (*.f64 a1 a1)) (*.f64 a2 a2))
(+.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(+.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (*.f64 (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 a2 #s(literal 6 binary64)))))) (*.f64 (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))))
(/.f64 (fma.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 3 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))) (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 a2 #s(literal 6 binary64)))))) (*.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 3 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))))
(/.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 a2 #s(literal 6 binary64)))) (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))
(/.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (fma.f64 (pow.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 3 binary64))))) (*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))) (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64))) (-.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 1/24 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))
(fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a1 a1) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
(-.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))))
(-.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64))) (*.f64 th th)))
(+.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))
(+.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
#s(literal -1/2 binary64)
(*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th)
(*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) (*.f64 th th))
(*.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 1/24 binary64))
(*.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)))
(*.f64 #s(literal 1/24 binary64) (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))
(/.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64))))))
(fma.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 th th) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) (*.f64 th th) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
(fma.f64 #s(literal 1/24 binary64) (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(fma.f64 #s(literal 1/24 binary64) (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 #s(literal -1/24 binary64) (pow.f64 (*.f64 th a2) #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
(+.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(+.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64))
(*.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/13824 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal 1/13824 binary64) (pow.f64 a2 #s(literal 6 binary64))))) (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
(/.f64 (fma.f64 #s(literal 1/13824 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal 1/13824 binary64) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))))
(fma.f64 (*.f64 a1 a1) #s(literal 1/24 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 a2 a2) #s(literal 1/24 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)))
(fma.f64 #s(literal 1/24 binary64) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))
(fma.f64 #s(literal 1/24 binary64) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)))
(-.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 #s(literal -1/24 binary64) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))
(+.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)))
#s(literal 1/24 binary64)
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (exp.f64 (log.f64 th)) (exp.f64 (log.f64 th)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (exp.f64 (log.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
(/.f64 (neg.f64 (-.f64 (/.f64 (pow.f64 a1 #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 a2 #s(literal 4 binary64)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (/.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))))) (neg.f64 (+.f64 (/.f64 (pow.f64 a1 #s(literal 4 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -2 binary64))
(/.f64 (-.f64 (/.f64 (pow.f64 a1 #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 a2 #s(literal 4 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (/.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (/.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)))) (+.f64 (/.f64 (pow.f64 a1 #s(literal 4 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 a2 #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 a2 a2) (*.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 a2 #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (neg.f64 (+.f64 (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 a1 #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (-.f64 (pow.f64 a1 #s(literal 4 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 a2 #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(/.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 a1 #s(literal 6 binary64))) (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (-.f64 (pow.f64 a1 #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 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)))
(pow.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (-.f64 #s(literal 0 binary64) (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (neg.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(tanh.f64 (asinh.f64 #s(literal 1 binary64)))
(*.f64 (neg.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64))) (neg.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64))))
(*.f64 (fabs.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64))) (fabs.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 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 (exp.f64 (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal 2 binary64))
(pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))
(pow.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (atan.f64 #s(literal 1 binary64)))
(cos.f64 (atan.f64 #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/2 binary64))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx a1 a1)
#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))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) (*.f64 a2 a2))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
#s(approx (/ (* a2 a2) (* a1 a1)) (pow.f64 (/.f64 a2 a1) #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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a1 a1) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (fma.f64 (*.f64 a2 a2) #s(literal -1/2 binary64) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1)))
#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))) (*.f64 (fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) (*.f64 a1 a1))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) (*.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1 binary64)))
#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))) (*.f64 (fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (+.f64 (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2)) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (*.f64 a1 a1)) (*.f64 th th))) #s(literal 1/2 binary64))) (*.f64 a1 a1)))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) (*.f64 (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (*.f64 a1 a1)) (*.f64 th th))) (*.f64 a1 a1)))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) #s(literal 1/24 binary64)) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 a1 a1)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a2 a2) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (* (+ (/ (* a2 a2) (* a1 a1)) 1) (* a1 a1)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (/ (* a2 a2) (* a1 a1)) 1) (fma.f64 (pow.f64 a1 #s(literal -2 binary64)) (*.f64 a2 a2) #s(literal 1 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (+.f64 (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal -1/2 binary64) (-.f64 (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 th th))) #s(literal 1/2 binary64))) (*.f64 a2 a2)))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) (*.f64 (*.f64 #s(literal 1/24 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 th th))) (*.f64 a2 a2)))
#s(approx (* 1/24 (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1/24 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))) (*.f64 th th) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))) (*.f64 th th))) (*.f64 th th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 #s(literal -1/1440 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th))) (*.f64 th th))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (*.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)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 th th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))) (*.f64 th th))) (*.f64 th th) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 th th)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))) #s(literal -1/2 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (fma.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64))))
#s(approx (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th)) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))
#s(approx (* th th) (*.f64 th th))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/2 binary64))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (sqrt 2) (cos th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 th #s(literal 4 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 th th)) #s(literal -1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (+ (* (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (* th th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 th th)) #s(literal -1/2 binary64) (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (pow.f64 th #s(literal 4 binary64))))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (*.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64)) th) th))
#s(approx (+ (* -1/2 (+ (* a1 a1) (* a2 a2))) (* (* 1/24 (+ (* a1 a1) (* a2 a2))) (* th th))) (*.f64 (fma.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (*.f64 th th)) #s(literal -1/2 binary64) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64))) (*.f64 th th)))

eval98.0ms (1.9%)

Memory
2.6MiB live, 195.8MiB allocated; 32ms collecting garbage
Compiler

Compiled 37 720 to 3 298 computations (91.3% saved)

prune95.0ms (1.9%)

Memory
-59.0MiB live, 70.9MiB allocated; 48ms collecting garbage
Pruning

25 alts after pruning (22 fresh and 3 done)

PrunedKeptTotal
New74614760
Fresh11819
Picked325
Done112
Total76125786
Accuracy
100.0%
Counts
786 → 25
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.5%
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
▶32.4%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
32.4%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
32.4%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
98.8%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
✓99.6%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
98.8%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
66.7%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
▶66.4%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
67.1%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
98.8%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
32.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
69.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓70.1%
#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))))
40.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
33.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
69.6%
#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))))
✓13.1%
#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))))
57.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
98.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
▶66.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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)))))
69.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
70.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
69.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
▶13.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
Compiler

Compiled 1 841 to 1 059 computations (42.5% saved)

series57.0ms (1.1%)

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

9 calls:

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

rewrite194.0ms (3.8%)

Memory
-6.6MiB live, 279.0MiB allocated; 23ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07358396
08057698
145577692
081687495
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
253 → 551
Calls
Call 1
Inputs
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(*.f64 (*.f64 (cos.f64 th) a1) a1)
(*.f64 (cos.f64 th) a1)
a1
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
#s(literal 1 binary64)
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
#s(literal 2 binary64)
#s(literal -1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1)))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.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 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) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(*.f64 th th)
(sqrt.f64 #s(literal 2 binary64))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(*.f64 (*.f64 th th) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
(fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))
(fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th)))
(*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))
(*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(literal -1/720 binary64)
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 1/2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#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 (* (sqrt 1/2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (sqrt 1/2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (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)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #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 (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))) (+ (* (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 (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a2 2)) (+ (* (pow a1 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 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 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (+ (* (pow a1 2) (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2))))) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (+ (* -1/720 (* (pow a2 2) (pow th 2))) (+ (* 1/24 (pow a2 2)) (* (pow a1 2) (+ 1/24 (* -1/720 (pow th 2))))))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) #s(hole binary64 (* -1/720 (* (pow a2 2) (pow th 2)))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) #s(hole binary64 (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* -1/720 (* (pow a2 2) (pow th 2))))))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* -1/720 (pow a2 2))))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/720 (pow a1 2)) (* -1/720 (pow a2 2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 1/2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (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 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) 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 (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ 1 (+ (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)) (+ (/ (* (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 a1 2)) (/ (pow a2 2) (pow a1 2))))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* (pow a1 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* (pow a1 2) (- (+ (* -1/2 (/ (pow a2 2) (pow a1 2))) (+ (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) (/ (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))) (pow a1 2)))) 1/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 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow a1 2) (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow a1 2) (+ (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) (/ (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))) (pow a1 2))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* (pow a1 2) (+ 1/24 (* -1/720 (pow th 2))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* (pow a1 2) (+ 1/24 (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (+ (* -1/720 (pow th 2)) (* 1/24 (/ (pow a2 2) (pow a1 2)))))))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) #s(hole binary64 (* -1/720 (* (pow a1 2) (pow th 2)))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) #s(hole binary64 (* (pow a1 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (pow a1 2))) (* -1/720 (pow th 2))))))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* -1/720 (pow a1 2))))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (- (* -1/720 (/ (pow a2 2) (pow a1 2))) 1/720))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a2 2) (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))) (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (+ (* -1/2 (pow a1 2)) (+ (* (pow a2 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2))))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (+ (* (pow a2 2) (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2))))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (+ (* -1/720 (* (pow a1 2) (pow th 2))) (+ (* 1/24 (pow a1 2)) (* (pow a2 2) (+ 1/24 (* -1/720 (pow th 2))))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (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 (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) 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 (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ 1 (+ (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)) (+ (/ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a2 2)) (/ (pow a1 2) (pow a2 2))))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* (pow a2 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* (pow a2 2) (- (+ (* -1/2 (/ (pow a1 2) (pow a2 2))) (+ (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) (/ (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))) (pow a2 2)))) 1/2))))
#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)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow a2 2) (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow a2 2) (+ (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) (/ (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))) (pow a2 2))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* (pow a2 2) (+ 1/24 (* -1/720 (pow th 2))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* (pow a2 2) (+ 1/24 (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (+ (* -1/720 (pow th 2)) (* 1/24 (/ (pow a1 2) (pow a2 2)))))))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) #s(hole binary64 (* (pow a2 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (pow a2 2))) (* -1/720 (pow th 2))))))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (- (* -1/720 (/ (pow a1 2) (pow a2 2))) 1/720))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (* (sqrt 1/2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2))))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* (sqrt 1/2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))) (* (pow th 2) (* (sqrt 1/2) (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2))))))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* (sqrt 1/2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))) (* (pow th 2) (+ (* (sqrt 1/2) (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2)))) (* (pow th 2) (* (sqrt 1/2) (+ (* -1/720 (pow a1 2)) (* -1/720 (pow a2 2))))))))))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* -1/2 (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (* 1/24 (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* 1/24 (pow a1 2)) (+ (* 1/24 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (pow a1 2)) (* -1/720 (pow a2 2)))))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (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 (* (* (cos th) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (pow th 2))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* 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) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/48 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (sqrt 2)))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* -1/2 (* (pow th 2) (sqrt 2))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* (pow th 2) (+ (* -1/2 (sqrt 2)) (* 1/24 (* (pow th 2) (sqrt 2))))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* (pow th 2) (+ (* -1/2 (sqrt 2)) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (sqrt 2))) (* 1/24 (sqrt 2)))))))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (- (* (* th th) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* th th) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow th 2)) 1/2)))
#s(approx (* (* th th) 1/24) #s(hole binary64 (* 1/24 (pow th 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (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) a2) (* (* (cos th) a1) a1)) (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) a2) (* (* (cos th) a1) a1)) (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 (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th 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 (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th 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 (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th 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 (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* -1/2 (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (+ (* -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))))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* 1/24 (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) #s(hole binary64 (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (/ 1 (pow 2 -1/2))) #s(hole binary64 (* (sqrt 1/2) (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (* (cos th) (sqrt 2))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(hole binary64 (* 1/24 (pow th 4))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 4) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 4) (- (+ 1/24 (/ 1 (pow th 4))) (* 1/2 (/ 1 (pow th 2)))))))
#s(approx (- (* (* th th) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow th 2))))
#s(approx (- (* (* th th) 1/24) 1/2) #s(hole binary64 (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(hole binary64 (/ (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (sqrt 2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* -1/720 (* (pow th 6) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow th 6) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow th 6) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 4))) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2))))))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow th 6) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 4))) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (+ (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2))) (+ (/ (pow a1 2) (pow th 6)) (/ (pow a2 2) (pow th 6)))))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* -1/720 (* (pow th 4) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* (pow th 4) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) #s(hole binary64 (* (pow th 4) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (pow th 4))) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2))))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* -1/720 (* (pow th 4) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) #s(hole binary64 (* (pow th 4) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) #s(hole binary64 (* (pow th 2) (+ (* -1/720 (+ (pow a1 2) (pow a2 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (pow th 2)))))))
Outputs
(*.f64 (/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1 binary64)) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 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 (*.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 (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)) (*.f64 (pow.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 a2 #s(literal 6 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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 (/.f64 (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) (sqrt.f64 #s(literal 2 binary64))) 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 (*.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 (/.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 (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 a2 (*.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)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(+.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 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 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (*.f64 (cos.f64 th) a2) a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (*.f64 (cos.f64 th) a2) a2)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 th) #s(literal 3 binary64)) (pow.f64 a2 #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)))))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 (cos.f64 th) a2) a2))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 (cos.f64 th) a2) a2))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 (cos.f64 th) a2) a2))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 a1 (*.f64 (cos.f64 th) a1) (*.f64 (*.f64 (cos.f64 th) a2) a2))
(fma.f64 a2 (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(-.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (neg.f64 (*.f64 a2 a2)) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (neg.f64 (*.f64 (cos.f64 th) a1)) a1))
(+.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (*.f64 (*.f64 (cos.f64 th) a2) a2))
(+.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1))
(*.f64 (cos.f64 th) a2)
(*.f64 a2 (cos.f64 th))
(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 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
a2
(*.f64 (*.f64 a1 a1) (cos.f64 th))
(*.f64 (*.f64 (cos.f64 th) a1) a1)
(*.f64 (cos.f64 th) (*.f64 a1 a1))
(*.f64 a1 (*.f64 (cos.f64 th) a1))
(*.f64 (cos.f64 th) a1)
(*.f64 a1 (cos.f64 th))
a1
(*.f64 (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)))
(pow.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (-.f64 #s(literal 0 binary64) (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (neg.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 1 binary64)
(tanh.f64 (asinh.f64 #s(literal 1 binary64)))
(*.f64 (neg.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64))) (neg.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64))))
(*.f64 (fabs.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64))) (fabs.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 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 (exp.f64 (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal 2 binary64))
(pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))
(pow.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))
(sin.f64 (atan.f64 #s(literal 1 binary64)))
(cos.f64 (atan.f64 #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
#s(literal 2 binary64)
#s(literal -1/2 binary64)
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(sqrt.f64 #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
#s(literal 1/2 binary64)
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 (*.f64 a2 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))))
(/.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 th #s(literal 6 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 th #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) th) th #s(literal 1 binary64))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 th th)))
(+.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (exp.f64 (log.f64 th)) (exp.f64 (log.f64 th)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (exp.f64 (log.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))))
(*.f64 (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64)))
(pow.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (-.f64 #s(literal 0 binary64) (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (neg.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(fma.f64 (*.f64 a1 a1) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a1 a1) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th)))
(/.f64 (fma.f64 (pow.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 th #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 th #s(literal 6 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th)))))
(fma.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))
(fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(fma.f64 (*.f64 th th) (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (*.f64 th th)) (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) th) th))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (*.f64 (pow.f64 th #s(literal 6 binary64)) #s(literal 1/13824 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(*.f64 (*.f64 th th) #s(literal 1/24 binary64))
(*.f64 #s(literal 1/24 binary64) (*.f64 th th))
(*.f64 th (*.f64 th #s(literal 1/24 binary64)))
#s(literal 1/24 binary64)
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(/.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 a1 #s(literal 6 binary64))) (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (-.f64 (pow.f64 a1 #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 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(/.f64 (neg.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 th #s(literal 6 binary64)) (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(fma.f64 (*.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) th) th (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (*.f64 a1 a1)) (*.f64 a2 a2))
(+.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (*.f64 a2 a2)) (*.f64 a1 a1))
(+.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)))))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))))))))
(fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))
(fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))
(fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))
(fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))))
(fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (*.f64 a1 a1) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
(-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))) (*.f64 th th)))
(-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (*.f64 th th)) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))))
(+.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))))
(+.f64 (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 a1 #s(literal 4 binary64))) (-.f64 (*.f64 a2 a2) (*.f64 a1 a1)))
(/.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 a1 #s(literal 6 binary64))) (+.f64 (pow.f64 a2 #s(literal 4 binary64)) (-.f64 (pow.f64 a1 #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 (pow.f64 a1 #s(literal 4 binary64)) (-.f64 (pow.f64 a2 #s(literal 4 binary64)) (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)))))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(*.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) th) th)
(*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))))
(*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 th th))
(fma.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 th th) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 th th)))
(fma.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 th th) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)))
(fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)))
(fma.f64 (*.f64 th th) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 th th)))
(fma.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))
(fma.f64 #s(literal 1/24 binary64) (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)))
(+.f64 (*.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 th th)) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 th th)))
(+.f64 (*.f64 (*.f64 th th) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th)) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 th th)))
(+.f64 (*.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))
(+.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64)) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) #s(literal 2 binary64))) (-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th)))
(/.f64 (fma.f64 #s(literal 1/13824 binary64) (pow.f64 a1 #s(literal 6 binary64)) (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))))
(/.f64 (fma.f64 (pow.f64 th #s(literal 6 binary64)) (*.f64 #s(literal -1/373248000 binary64) (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 3 binary64)) #s(literal 1/13824 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))))))
(/.f64 (fma.f64 (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 3 binary64)) #s(literal 1/13824 binary64) (*.f64 (pow.f64 th #s(literal 6 binary64)) (*.f64 #s(literal -1/373248000 binary64) (pow.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 3 binary64))))) (+.f64 (pow.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th)))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/720 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 (*.f64 th th) #s(literal -1/720 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(fma.f64 (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th))
(fma.f64 (*.f64 a1 a1) #s(literal 1/24 binary64) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
(fma.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(fma.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th))
(fma.f64 #s(literal 1/24 binary64) (*.f64 a1 a1) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
(-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64))) (*.f64 th th)))
(-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 #s(literal -1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th))
(+.f64 (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
(+.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
(*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th)
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) (*.f64 th th))
(*.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/720 binary64))
(*.f64 (*.f64 (*.f64 th th) #s(literal -1/720 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)))
(*.f64 #s(literal -1/720 binary64) (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64))))
(/.f64 (fma.f64 (*.f64 #s(literal -1/373248000 binary64) (pow.f64 a1 #s(literal 6 binary64))) (pow.f64 th #s(literal 6 binary64)) (*.f64 (*.f64 #s(literal -1/373248000 binary64) (pow.f64 a2 #s(literal 6 binary64))) (pow.f64 th #s(literal 6 binary64)))) (+.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64))))))
(fma.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 th th) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(fma.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)) (*.f64 th th) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(fma.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64))))
(fma.f64 #s(literal -1/720 binary64) (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(fma.f64 #s(literal -1/720 binary64) (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(-.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)) (*.f64 #s(literal 1/720 binary64) (pow.f64 (*.f64 th a2) #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64))) (*.f64 (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64))))
(+.f64 (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(+.f64 (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64))
(*.f64 #s(literal -1/720 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64))))
(/.f64 (fma.f64 #s(literal -1/373248000 binary64) (pow.f64 a1 #s(literal 6 binary64)) (*.f64 #s(literal -1/373248000 binary64) (pow.f64 a2 #s(literal 6 binary64)))) (+.f64 (pow.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64))))))
(fma.f64 (*.f64 a1 a1) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)))
(fma.f64 (*.f64 a2 a2) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)))
(fma.f64 #s(literal -1/720 binary64) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)))
(fma.f64 #s(literal -1/720 binary64) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)))
(-.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 #s(literal 1/720 binary64) (*.f64 a2 a2)))
(+.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)))
(+.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)) (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)))
#s(literal -1/720 binary64)
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (* (cos th) a1) a1) (*.f64 (*.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) a1) (*.f64 (cos.f64 th) a1))
#s(approx a1 a1)
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 1/2) (* a1 a1)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a1 a1) (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (fma.f64 (*.f64 a2 a2) #s(literal -1/2 binary64) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 a1 a1) (*.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a1) a1))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 (*.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)))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a1 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)) (*.f64 a1 a1)))) (*.f64 a1 a1)))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a2 a2)) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 (*.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)))) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (+.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a2 a2)) (*.f64 a1 a1))) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal -1/2 binary64) (-.f64 (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 a1 a1))) #s(literal 1/2 binary64))) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1)))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (+.f64 (fma.f64 #s(literal -1/720 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (*.f64 a1 a1)) (*.f64 th th)) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) (*.f64 a1 a1))) #s(literal 1/24 binary64)) (*.f64 a1 a1)))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) (*.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64)))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) (*.f64 (*.f64 #s(literal -1/720 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (*.f64 a1 a1)) (*.f64 th th))) (*.f64 a1 a1)))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/720 binary64)) (*.f64 a1 a1)) #s(literal 1/720 binary64)) (*.f64 a1 a1)))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx a2 a2)
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a2 a2) (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (fma.f64 (*.f64 a1 a1) #s(literal -1/2 binary64) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 a2 a2) (*.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th)))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th)))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (*.f64 a2 a2)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2)) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1)) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1)) (*.f64 a2 a2)))) (*.f64 a2 a2)))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 a1 a1)) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (+.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) (/.f64 (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)) (*.f64 a2 a2))) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal -1/2 binary64) (-.f64 (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 a2 a2))) #s(literal 1/2 binary64))) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 (+.f64 (/.f64 (*.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)) (*.f64 a2 a2)))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) (/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (+.f64 (fma.f64 #s(literal -1/720 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 th th)) (/.f64 (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64)) (*.f64 a2 a2))) #s(literal 1/24 binary64)) (*.f64 a2 a2)))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) (*.f64 (*.f64 #s(literal -1/720 binary64) (+.f64 (/.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 th th))) (*.f64 a2 a2)))
#s(approx (* -1/720 (+ (* a2 a2) (* a1 a1))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 a1 a1) #s(literal -1/720 binary64)) (*.f64 a2 a2)) #s(literal 1/720 binary64)) (*.f64 a2 a2)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 th th))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) a2) a2)
#s(approx (* (cos th) a2) (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a2) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a2)) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) a2)) (*.f64 th th) a2))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (* (cos th) a1) a1) (*.f64 a1 a1))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/2 binary64) (*.f64 a1 a1)))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal 1/24 binary64) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (fma.f64 (fma.f64 (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) #s(literal -1/720 binary64) (*.f64 (*.f64 a1 a1) #s(literal 1/24 binary64))) (*.f64 th th) (*.f64 (*.f64 a1 a1) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 a1 a1)))
#s(approx (* (cos th) a1) a1)
#s(approx (* (cos th) a1) (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal -1/2 binary64) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) a1)) (*.f64 th th) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) a1) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) a1)) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) a1)) (*.f64 th th) a1))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 (*.f64 a2 a2) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))) (*.f64 th th) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (/.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 #s(literal -1/2 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))) (*.f64 th th) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))
#s(approx (+ (* -1/2 (* th th)) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))) (*.f64 th th) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))) (*.f64 th th))) (*.f64 th th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 th th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/48 binary64) (*.f64 th th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/1440 binary64) (*.f64 th th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th))) (*.f64 th th))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 (*.f64 th th) #s(literal -1/720 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt 2) (cos th)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))) (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (cos th)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/720 binary64) (*.f64 #s(literal 1/24 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))) (*.f64 th th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (- (* (* th th) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* th th) 1/24) 1/2) (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)))
#s(approx (* (* th th) 1/24) (*.f64 (*.f64 th th) #s(literal 1/24 binary64)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (fma.f64 (*.f64 (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (fma.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/2 binary64))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (*.f64 th th) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64)))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/24 binary64))))
#s(approx (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th)) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))
#s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (-.f64 (pow.f64 th #s(literal -2 binary64)) #s(literal 1/2 binary64)) (*.f64 th th)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal 1/2 binary64))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (* (sqrt 2) (cos th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) (*.f64 (pow.f64 th #s(literal 4 binary64)) #s(literal 1/24 binary64)))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) (*.f64 (-.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 th #s(literal -2 binary64)) #s(literal 1/2 binary64))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* th th) 1/24) 1/2) (* th th)) 1) (*.f64 (-.f64 (+.f64 (pow.f64 th #s(literal -4 binary64)) #s(literal 1/24 binary64)) (*.f64 (pow.f64 th #s(literal -2 binary64)) #s(literal 1/2 binary64))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (- (* (* th th) 1/24) 1/2) (*.f64 (*.f64 th th) #s(literal 1/24 binary64)))
#s(approx (- (* (* th th) 1/24) 1/2) (*.f64 (-.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 th #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 th th)))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 #s(literal -1/720 binary64) (pow.f64 th #s(literal 6 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (pow.f64 th #s(literal 6 binary64)) (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (pow.f64 th #s(literal 6 binary64)) (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (pow.f64 th #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64))))))
#s(approx (+ (* (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (* th th)) (+ (* a2 a2) (* a1 a1))) (*.f64 (pow.f64 th #s(literal 6 binary64)) (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (pow.f64 th #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64) (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (pow.f64 th #s(literal 6 binary64))))))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (*.f64 #s(literal -1/720 binary64) (pow.f64 th #s(literal 4 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) -1/2) (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th))) (*.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (pow.f64 th #s(literal 4 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (*.f64 #s(literal -1/720 binary64) (pow.f64 th #s(literal 4 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (* th th)) (*.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64))) (pow.f64 th #s(literal 4 binary64))))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64)) th) th))
#s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 th th)) #s(literal 1/24 binary64) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) #s(literal -1/720 binary64))) (*.f64 th th)))

eval98.0ms (2%)

Memory
16.4MiB live, 203.3MiB allocated; 16ms collecting garbage
Compiler

Compiled 39 074 to 3 541 computations (90.9% saved)

prune43.0ms (0.9%)

Memory
23.3MiB live, 118.1MiB allocated; 2ms collecting garbage
Pruning

28 alts after pruning (24 fresh and 4 done)

PrunedKeptTotal
New73812750
Fresh51217
Picked325
Done123
Total74728775
Accuracy
100.0%
Counts
775 → 28
Alt Table
Click to see full alt table
StatusAccuracyProgram
32.4%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 #s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
32.4%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
98.7%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
98.8%
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
98.8%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
66.7%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
✓66.4%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
67.1%
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
32.4%
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
70.0%
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
98.8%
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
99.6%
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
13.1%
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
69.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓70.1%
#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))))
66.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (*.f64 (*.f64 a2 a2) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
40.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
33.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
69.6%
#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))))
✓13.1%
#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))))
57.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
98.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
15.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
69.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
66.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 a2 (*.f64 a2 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
13.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 a1 a1))))
69.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
✓13.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
Compiler

Compiled 3 410 to 953 computations (72.1% saved)

regimes129.0ms (2.6%)

Memory
5.4MiB live, 246.1MiB allocated; 16ms collecting garbage
Counts
63 → 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 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#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))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 a2 (*.f64 a2 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 (*.f64 a2 a2) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #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))) (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 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) (/.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)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 #s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (/.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 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 #s(approx (* (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 #s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #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)))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
Outputs
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes117.0ms (2.3%)

Memory
-9.5MiB live, 180.3MiB allocated; 8ms collecting garbage
Counts
56 → 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 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#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))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 a2 (*.f64 a2 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 (*.f64 a2 a2) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #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))) (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 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) (/.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)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 #s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (/.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 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 #s(approx (* (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (*.f64 #s(literal -1/720 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
Outputs
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
Calls

8 calls:

18.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
17.0ms
a1
16.0ms
th
14.0ms
a2
13.0ms
(*.f64 a1 a1)
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)

regimes136.0ms (2.7%)

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

8 calls:

27.0ms
(*.f64 a1 a1)
22.0ms
a1
20.0ms
a2
16.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
15.0ms
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)

regimes90.0ms (1.8%)

Memory
19.9MiB live, 160.5MiB allocated; 8ms collecting garbage
Counts
45 → 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 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#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))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 a2 (*.f64 a2 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 (*.f64 a2 a2) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #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))) (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 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) (/.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)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 #s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (/.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 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) #s(literal 1/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) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes106.0ms (2.1%)

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

8 calls:

29.0ms
a1
13.0ms
th
11.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
11.0ms
(*.f64 a2 a2)
11.0ms
a2
Results
AccuracySegmentsBranch
98.8%1(*.f64 a2 a2)
98.8%1(cos.f64 th)
98.8%1(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
98.8%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.8%1a2
98.8%1th
98.8%1(*.f64 a1 a1)
98.8%1a1
Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes85.0ms (1.7%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes83.0ms (1.6%)

Memory
5.9MiB live, 147.2MiB allocated; 8ms collecting garbage
Counts
41 → 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 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#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))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 a2 (*.f64 a2 (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.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 (*.f64 (*.f64 a2 a2) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 a2 (/.f64 a2 (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 a2 a2) (/.f64 #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))) (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 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64)) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (*.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))))
(/.f64 #s(approx (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))) (*.f64 th th)))) #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) (/.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)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #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))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 #s(approx (+ (* (+ (* a2 a2) (* a1 a1)) 1/24) (* (* -1/720 (+ (* a2 a2) (* a1 a1))) (* th th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (*.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 th th))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))) (/.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 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)))
(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal -1/2 binary64) (*.f64 (fma.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) #s(literal 1/24 binary64) (*.f64 (*.f64 #s(literal -1/720 binary64) (fma.f64 a2 a2 (*.f64 a1 a1))) (*.f64 th th))) (*.f64 th th))) (*.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 a1 a1))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 th th)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (* (* (cos th) a1) a1) (sqrt 2)) (* (* (* (sqrt 2) a2) a2) (cos th))) 2) (*.f64 #s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) (*.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
Outputs
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 1/2 binary64))))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes77.0ms (1.5%)

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

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

Compiled 35 to 40 computations (-14.3% saved)

regimes4.0ms (0.1%)

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

1 calls:

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
80.2%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)

regimes24.0ms (0.5%)

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

7 calls:

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

Compiled 34 to 37 computations (-8.8% saved)

regimes25.0ms (0.5%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes19.0ms (0.4%)

Memory
-8.6MiB live, 38.2MiB 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 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a2 a2))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
#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))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a2 a2 (*.f64 a1 a1)))))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes12.0ms (0.2%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes14.0ms (0.3%)

Memory
-26.4MiB live, 22.3MiB allocated; 11ms 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 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 a1 a1))))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory
1.1MiB live, 1.1MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-5.260287791509115e-266
-4.520330324290045e-267
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-5.260287791509115e-266
-4.520330324290045e-267
Compiler

Compiled 22 to 18 computations (18.2% saved)

derivations442.0ms (8.8%)

Memory
28.8MiB live, 496.5MiB allocated; 27ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 535 to 100 computations (81.3% saved)

preprocess219.0ms (4.3%)

Memory
-20.4MiB live, 357.9MiB allocated; 93ms collecting garbage
Remove

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 7 584 to 3 846 computations (49.3% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...