Migdal et al, Equation (64)

Time bar (total: 8.6s)

start0.0ms (0%)

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

analyze1.0ms (0%)

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

sample3.1s (36.8%)

Memory
-83.4MiB live, 2 085.4MiB allocated; 1.0s collecting garbage
Samples
2.2s8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 1.9s
ival-mult: 1.3s (69% of total)
ival-cos: 280.0ms (14.5% of total)
ival-sqrt: 136.0ms (7% of total)
ival-div: 132.0ms (6.8% of total)
ival-add: 35.0ms (1.8% of total)
ival-true: 6.0ms (0.3% of total)
exact: 6.0ms (0.3% of total)
ival-assert: 3.0ms (0.2% of total)
adjust: 2.0ms (0.1% of total)
Bogosity

explain287.0ms (3.4%)

Memory
-25.9MiB live, 266.2MiB allocated; 21ms 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
79.0ms512×0valid
Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 46.0ms
ival-cos: 22.0ms (47.3% of total)
ival-mult: 12.0ms (25.8% of total)
ival-div: 5.0ms (10.8% of total)
ival-sqrt: 4.0ms (8.6% of total)
ival-add: 2.0ms (4.3% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

preprocess179.0ms (2.1%)

Memory
23.1MiB live, 115.4MiB allocated; 10ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
044120
1176120
2598120
31543120
43029120
54451120
67201120
01723
02623
12823
23123
33623
45623
513323
658623
7470023
0843323
Stop Event
1×saturated
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)))
Symmetry

(abs th)

(abs a2)

(abs a1)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

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

Compiled 0 to 3 computations (-∞% saved)

prune0.0ms (0%)

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

simplify134.0ms (1.6%)

Memory
-27.4MiB live, 118.7MiB allocated; 20ms collecting garbage
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
cost-diff0
(cos.f64 th)
cost-diff0
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
cost-diff0
(+.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)))
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01770
02670
12870
23170
33670
45670
513370
658670
7470070
0843370
Stop Event
1×saturated
1×node limit
1×iter 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)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
Outputs
(+.f64 (*.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

localize34.0ms (0.4%)

Memory
22.7MiB live, 69.5MiB allocated; 4ms collecting garbage
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
accuracy0.0078125
(+.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)))
accuracy0.162441259768442
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
accuracy0.193691259768442
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Samples
26.0ms256×0valid
Compiler

Compiled 58 to 14 computations (75.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 17.0ms
ival-mult: 5.0ms (28.9% of total)
ival-cos: 5.0ms (28.9% of total)
ival-sqrt: 3.0ms (17.3% of total)
ival-div: 1.0ms (5.8% of total)
ival-add: 1.0ms (5.8% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series30.0ms (0.3%)

Memory
-3.9MiB live, 46.7MiB allocated; 8ms collecting garbage
Counts
5 → 29
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)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 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 (+ (* (/ (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 (+ (* (/ (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 (* (/ (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
14.0ms
a1
@inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
3.0ms
th
@-inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* 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) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
2.0ms
th
@0
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
2.0ms
th
@inf
((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))

simplify744.0ms (8.7%)

Memory
-8.5MiB live, 174.4MiB allocated; 20ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0176887
1494855
22146786
08219784
19539782
216097782
320944782
422137782
522263782
622264782
Stop Event
1×saturated
1×node limit
Counts
29 → 1
Calls
Call 1
Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (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 (+ (* (/ (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 (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 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 (+ (* (/ (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 (* (/ (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)))
#s(approx (cos th) (cos.f64 th))

rewrite181.0ms (2.1%)

Memory
25.3MiB live, 134.4MiB allocated; 51ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
01754
12654
23454
33654
44052
54252
04246
19446
053646
172745
2108445
3133945
4140845
5142045
6142145
Stop Event
1×saturated
1×iter limit
1×node limit
1×saturated
Counts
5 → 79
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)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
Outputs
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a1) a1 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))) (neg.f64 (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 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) a2) (sqrt.f64 #s(literal 2 binary64))) 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))) (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 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))) (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.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 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a2 a2) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))

eval33.0ms (0.4%)

Memory
-30.0MiB live, 43.9MiB allocated; 28ms collecting garbage
Compiler

Compiled 2 249 to 245 computations (89.1% saved)

prune5.0ms (0.1%)

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

6 alts after pruning (6 fresh and 0 done)

PrunedKeptTotal
New86692
Fresh000
Picked101
Done000
Total87693
Accuracy
99.8%
Counts
93 → 6
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶99.6%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
99.6%
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
▶99.6%
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
▶99.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 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
▶99.6%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Compiler

Compiled 190 to 134 computations (29.5% saved)

simplify136.0ms (1.6%)

Memory
11.3MiB live, 97.2MiB allocated; 24ms collecting garbage
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
(cos.f64 th)
cost-diff0
(*.f64 (cos.f64 th) a2)
cost-diff0
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff0
(*.f64 a2 a2)
cost-diff0
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(cos.f64 th)
cost-diff0
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff0
(fma.f64 a2 a2 (*.f64 a1 a1))
cost-diff0
(cos.f64 th)
cost-diff0
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
cost-diff0
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 a1 a1)
cost-diff0
(fma.f64 a2 a2 (*.f64 a1 a1))
cost-diff0
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
cost-diff0
(cos.f64 th)
cost-diff0
(*.f64 (cos.f64 th) a2)
cost-diff0
(fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1))
cost-diff0
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
028275
037275
139275
242275
347275
467275
5144275
6597275
74711275
08443275
Stop Event
1×saturated
1×node limit
1×iter limit
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)
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 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 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(cos.f64 th)
th
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(cos.f64 th)
th
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Outputs
(/.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)
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 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 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(cos.f64 th)
th
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(cos.f64 th)
th
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

localize172.0ms (2%)

Memory
-43.9MiB live, 316.0MiB allocated; 118ms collecting garbage
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.14453125
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
accuracy0.162441259768442
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.4443550293053261
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.08203125
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
accuracy0.162441259768442
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.197597509768442
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.0
(sqrt.f64 #s(literal 2 binary64))
accuracy0.0
(cos.f64 th)
accuracy0.09603500976844201
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
accuracy0.22265625
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.0
(sqrt.f64 #s(literal 2 binary64))
accuracy0.0
(cos.f64 th)
accuracy0.193691259768442
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.08984375
(fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1))
accuracy0.10546875
(*.f64 (cos.f64 th) a1)
accuracy0.12109375
(*.f64 (cos.f64 th) a2)
accuracy0.22265625
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
Samples
144.0ms256×0valid
Compiler

Compiled 238 to 28 computations (88.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 112.0ms
ival-mult: 83.0ms (73.8% of total)
ival-div: 17.0ms (15.1% of total)
ival-cos: 6.0ms (5.3% of total)
ival-add: 4.0ms (3.6% of total)
ival-sqrt: 2.0ms (1.8% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series61.0ms (0.7%)

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

9 calls:

TimeVariablePointExpression
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) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* a2 a2) (sqrt 2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a1) (sqrt 2) (* (* a1 a1) (/ (cos th) (sqrt 2))))
6.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) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* a2 a2) (sqrt 2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a1) (sqrt 2) (* (* a1 a1) (/ (cos th) (sqrt 2))))
3.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) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* a2 a2) (sqrt 2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a1) (sqrt 2) (* (* a1 a1) (/ (cos th) (sqrt 2))))
3.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) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* a2 a2) (sqrt 2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a1) (sqrt 2) (* (* a1 a1) (/ (cos th) (sqrt 2))))
3.0ms
th
@0
((/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (sqrt 2)) (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (* (cos th) a2) (cos th) (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* a2 a2) (sqrt 2)) (* a2 a2) (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (/ (* (cos th) a2) (sqrt 2)) (* (cos th) a1) (sqrt 2) (* (* a1 a1) (/ (cos th) (sqrt 2))))

simplify358.0ms (4.2%)

Memory
36.7MiB live, 225.7MiB allocated; 16ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
04083287
110952995
245842940
082642875
1108182854
2167752854
3216202854
4231442854
5233312854
6233392854
Stop Event
1×saturated
1×node limit
Counts
105 → 25
Calls
Call 1
Inputs
#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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (* (* a1 a1) (/ (cos th) (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))))
#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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (/ (* a2 a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #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)) (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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
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) (* a1 a1))) (*.f64 (cos.f64 th) (*.f64 a2 a2)))
#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) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (* (cos th) a1) (*.f64 (cos.f64 th) a1))
#s(approx (* (* a1 a1) (/ (cos th) (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))))
#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) (* a1 a1))) (*.f64 (cos.f64 th) (*.f64 a1 a1)))
#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) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) a1) (*.f64 (/.f64 a2 a1) a1) (*.f64 a1 a1)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (*.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx (/ (* a2 a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ (* a2 (cos th)) (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) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a1 a2) a2) (*.f64 (/.f64 a1 a2) a2) (*.f64 a2 a2)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #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)) (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) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#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) 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 (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (cos th) (/ (* a2 a2) (sqrt 2))) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (sqrt 2)) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) 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 (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (* (cos th) a2) a2) (* (* (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) (cos.f64 th))
#s(approx (* (+ (* a2 a2) (* a1 a1)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))

rewrite104.0ms (1.2%)

Memory
-0.7MiB live, 144.7MiB allocated; 10ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
028171
137171
245171
355171
465169
576169
678169
078149
1199149
01195149
11593149
22329149
32970149
43141149
53172149
63175149
Stop Event
1×saturated
1×iter limit
1×node limit
1×saturated
Counts
18 → 619
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)
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a2 a2)
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (cos.f64 th) a1)
(sqrt.f64 #s(literal 2 binary64))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Outputs
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))) (neg.f64 (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 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 a1)) (neg.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a2 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (cos.f64 th)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (-.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 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)))
(/.f64 (neg.f64 (-.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)))) (neg.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.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 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (+.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 (*.f64 a2 (cos.f64 th)) a2) a1) (*.f64 a1 (cos.f64 th))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 (neg.f64 a1) (cos.f64 th)) (neg.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (cos.f64 th)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (cos.f64 th)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 a1 (cos.f64 th)) a1 (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 a1 (*.f64 a1 (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 a2 (cos.f64 th)) a2 (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 a2 (cos.f64 th)) a2 (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 a2 (*.f64 a2 (cos.f64 th)) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 a2 (*.f64 a2 (cos.f64 th)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (/.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 a1) (*.f64 a1 (cos.f64 th))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)))
(-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) a2))
(-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (neg.f64 a2) (*.f64 a2 (cos.f64 th))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(+.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(*.f64 a2 (cos.f64 th))
(*.f64 (cos.f64 th) a2)
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))) (neg.f64 (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 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 a1)) (neg.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a2 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (cos.f64 th)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(/.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (neg.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (neg.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a1) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 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 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (/.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(+.f64 (*.f64 a2 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(*.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 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(/.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))))
(neg.f64 (/.f64 (cos.f64 th) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))) (neg.f64 (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 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 a1)) (neg.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a2 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (cos.f64 th)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(/.f64 (-.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 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)))
(/.f64 (neg.f64 (-.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)))) (neg.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2)))) (neg.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.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 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (+.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 (*.f64 a2 (cos.f64 th)) a2) a1) (*.f64 a1 (cos.f64 th))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 (cos.f64 th) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 (neg.f64 a1) (cos.f64 th)) (neg.f64 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (cos.f64 th)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (cos.f64 th)) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (cos.f64 th)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 a2 a2) (cos.f64 th) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (*.f64 a1 a1) (cos.f64 th) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 a1 (cos.f64 th)) a1 (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 a1 (*.f64 a1 (cos.f64 th)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(fma.f64 (*.f64 a2 (cos.f64 th)) a2 (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (*.f64 a2 (cos.f64 th)) a2 (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 a2 (*.f64 a2 (cos.f64 th)) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 a2 (*.f64 a2 (cos.f64 th)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(fma.f64 (cos.f64 th) (*.f64 a2 a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(fma.f64 (cos.f64 th) (*.f64 a1 a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))) (/.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (cos.f64 th)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 a1) (*.f64 a1 (cos.f64 th))))
(-.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)))
(-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) a2))
(-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a2 a2)))
(-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (neg.f64 a2) (*.f64 a2 (cos.f64 th))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (neg.f64 (*.f64 (neg.f64 a1) (cos.f64 th))) a1))
(+.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (*.f64 (*.f64 a1 (cos.f64 th)) a1))
(+.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))) (neg.f64 (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 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 a1)) (neg.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a2 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (cos.f64 th)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 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 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))))) (neg.f64 (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64))) (*.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64))) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) #s(literal 2 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64)) (*.f64 (*.f64 a2 (cos.f64 th)) a2))) (*.f64 (fma.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (-.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (*.f64 (*.f64 a2 (cos.f64 th)) a2)) (pow.f64 (*.f64 (*.f64 a2 (cos.f64 th)) a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (+.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (*.f64 a2 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 a1)) (neg.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (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)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 a2 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (*.f64 (cos.f64 th) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (neg.f64 a1) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th)))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 (cos.f64 th)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (neg.f64 a2) (/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #s(literal 2 binary64)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (fma.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (-.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))) (pow.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (neg.f64 a2) (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 a2 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a1 (cos.f64 th))
(*.f64 (cos.f64 th) a1)
(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 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 (cos.f64 th)) a1) (sqrt.f64 #s(literal 2 binary64)))

eval85.0ms (1%)

Memory
11.3MiB live, 141.8MiB allocated; 61ms collecting garbage
Compiler

Compiled 8 898 to 927 computations (89.6% saved)

prune16.0ms (0.2%)

Memory
-0.3MiB live, 47.1MiB allocated; 3ms collecting garbage
Pruning

14 alts after pruning (13 fresh and 1 done)

PrunedKeptTotal
New40513418
Fresh101
Picked415
Done000
Total41014424
Accuracy
99.9%
Counts
424 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓99.6%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
65.6%
(fma.f64 (/.f64 #s(approx (* (cos th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
99.6%
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
▶99.6%
(fma.f64 (*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
▶99.6%
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
98.7%
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 #s(approx (* (cos th) a1) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
12.9%
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (*.f64 a2 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
99.5%
(/.f64 (*.f64 (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))))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
▶23.6%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
23.6%
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
99.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
▶64.8%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
▶99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
99.1%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Compiler

Compiled 562 to 372 computations (33.8% saved)

simplify91.0ms (1.1%)

Memory
7.0MiB live, 54.2MiB allocated; 2ms collecting garbage
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
(cos.f64 th)
cost-diff0
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
cost-diff0
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
cost-diff0
(cos.f64 th)
cost-diff0
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
cost-diff0
(fma.f64 (*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff0
(*.f64 a1 a1)
cost-diff0
(fma.f64 a2 a2 (*.f64 a1 a1))
cost-diff0
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
cost-diff0
(*.f64 a2 a2)
cost-diff0
(fma.f64 a1 a1 (*.f64 a2 a2))
cost-diff0
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
cost-diff0
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(cos.f64 th)
cost-diff0
(*.f64 a2 (cos.f64 th))
cost-diff0
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
040353
050353
176353
2156353
3338353
4576353
5931353
62298353
76382353
08171353
Stop Event
1×saturated
1×node limit
1×iter limit
Calls
Call 1
Inputs
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 a2 (cos.f64 th))
a2
(cos.f64 th)
th
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
a1
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(cos.f64 th)
th
(fma.f64 (*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
a2
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))
(*.f64 a2 a2)
a2
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
(*.f64 a1 a1)
a1
(*.f64 (+.f64 a2 a1) (-.f64 a2 a1))
(+.f64 a2 a1)
(-.f64 a2 a1)
Outputs
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 a2 (cos.f64 th))
a2
(cos.f64 th)
th
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
a1
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(cos.f64 th)
th
(fma.f64 (*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
a2
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 a1)
a1
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))
(*.f64 a2 a2)
a2
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
(*.f64 a1 a1)
a1
(*.f64 (+.f64 a2 a1) (-.f64 a2 a1))
(+.f64 a2 a1)
(-.f64 a2 a1)

localize109.0ms (1.3%)

Memory
-18.7MiB live, 222.8MiB allocated; 25ms collecting garbage
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.1171875
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy5.777343750000001
(-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
accuracy44.54373976117972
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
accuracy0.14453125
(fma.f64 (*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
accuracy0.162441259768442
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.3984375
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.0
(sqrt.f64 #s(literal 2 binary64))
accuracy0.0
(cos.f64 th)
accuracy0.078125
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
accuracy0.193691259768442
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.0
(sqrt.f64 #s(literal 2 binary64))
accuracy0.00390625
(fma.f64 a1 a1 (*.f64 a2 a2))
accuracy0.22265625
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
accuracy22.44464144770089
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
accuracy0.14453125
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
accuracy0.162441259768442
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
accuracy0.42578125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Samples
82.0ms256×0valid
Compiler

Compiled 279 to 34 computations (87.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 45.0ms
ival-mult: 19.0ms (41.8% of total)
ival-div: 7.0ms (15.4% of total)
ival-cos: 6.0ms (13.2% of total)
ival-add: 5.0ms (11% of total)
ival-pow2: 4.0ms (8.8% of total)
ival-sub: 2.0ms (4.4% of total)
ival-sqrt: 2.0ms (4.4% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series46.0ms (0.5%)

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

9 calls:

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

simplify480.0ms (5.6%)

Memory
5.2MiB live, 192.0MiB allocated; 16ms collecting garbage
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
06865619
119694660
090974608
1120034597
2169924596
3215064596
4237214596
5242394596
6246274596
7246744596
8246804596
Stop Event
1×saturated
1×node limit
Counts
137 → 28
Calls
Call 1
Inputs
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* 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 (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #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 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* -1 (/ (* a1 (* (cos th) (+ a2 (* -1 a2)))) (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a1 (- (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a2 2) (sqrt 2))))))) (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a1 (- (* a1 (- (* -1 (* a1 (+ (* -1 (/ (* (+ a2 (* -1 a2)) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a2 2) (sqrt 2)))))) (pow a2 2))) (/ (* (cos th) (+ a2 (* -1 a2))) (* (pow a2 2) (sqrt 2)))))) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a2 2) (sqrt 2))))))) (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (/ (* (pow a2 4) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (+ (* -1 (/ (* (pow a1 4) (cos th)) (sqrt 2))) (/ (* (pow a2 4) (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) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (pow a2 4)))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (+ (* -1 (pow a1 4)) (pow a2 4))))
#s(approx (pow (* a1 a1) 2) #s(hole binary64 (pow a1 4)))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* 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 (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #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 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (- (+ (* -1 (/ (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2)))) (pow a1 2))) (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2))))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (- (+ (* -1 (/ (+ (* -1 (/ (* (pow a2 2) (* (cos th) (+ a2 (* -1 a2)))) (sqrt 2))) (* (+ a2 (* -1 a2)) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2)))))) (pow a1 3))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2)))) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a1 2) (sqrt 2)))) (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (* -1 (/ (* (pow a1 4) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (* (pow a1 4) (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* (pow a2 4) (cos th)) (* (pow a1 4) (sqrt 2)))))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (* -1 (pow a1 4))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (* (pow a1 4) (- (/ (pow a2 4) (pow a1 4)) 1))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (/ (- (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* a1 (sqrt 2)))) (* -1 (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2))))) (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) a1)) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (pow a2 2) (* (cos th) (+ a2 (* -1 a2)))) (* a1 (sqrt 2)))) (/ (* (+ a2 (* -1 a2)) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))))) a1)) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))))) a1)) (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) a1)) (/ (cos th) (sqrt 2))))))
#s(approx (* a2 (cos th)) #s(hole binary64 (* a2 (cos th))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (/ (* a2 (* (cos th) (+ a1 (* -1 a1)))) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a2 (- (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a1 2) (sqrt 2))))))) (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a2 (- (* a2 (- (* -1 (* a2 (+ (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (* (pow a1 2) (sqrt 2)))) (/ (* (+ a1 (* -1 a1)) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a1 2) (sqrt 2)))))) (pow a1 2))))) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a1 2) (sqrt 2))))))) (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #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 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (- (+ (* -1 (/ (+ (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2)))) (pow a2 2))) (/ (cos th) (sqrt 2))) (/ (* (cos th) (+ a1 (* -1 a1))) (* a2 (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (- (+ (* -1 (/ (+ (* -1 (* (+ a1 (* -1 a1)) (+ (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2)))))) (/ (* (pow a1 2) (* (cos th) (+ a1 (* -1 a1)))) (sqrt 2))) (pow a2 3))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a2 2) (sqrt 2)))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* (cos th) (+ a1 (* -1 a1))) (* a2 (sqrt 2)))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (* (pow a2 4) (+ (* -1 (/ (* (pow a1 4) (cos th)) (* (pow a2 4) (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (* (pow a2 4) (+ 1 (* -1 (/ (pow a1 4) (pow a2 4)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))) a2)) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* (+ a1 (* -1 a1)) (+ (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2)))) (/ (* (pow a1 2) (* (cos th) (+ a1 (* -1 a1)))) (sqrt 2))) a2)) (+ (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2)))) a2)) (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))) a2)) (/ (cos th) (sqrt 2))))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* a2 (cos th)) #s(hole binary64 a2))
#s(approx (* a2 (cos th)) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* a2 (cos th)) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* a2 (cos th)) #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 (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a2 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a1 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (* 1/24 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))) (/ (pow a2 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a1 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (* 1/24 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))))) (/ (pow a2 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a1 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (sqrt 2))) (/ (pow a2 4) (sqrt 2))) (/ (pow a1 4) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (sqrt 2))))) (/ (pow a2 4) (sqrt 2))) (/ (pow a1 4) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (sqrt 2))) (* 1/24 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))))))) (/ (pow a2 4) (sqrt 2))) (/ (pow a1 4) (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 (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (* (cos th) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (/ (* (cos th) (- (pow a2 4) (pow a1 4))) (sqrt 2))))
Outputs
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #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)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* -1 (/ (* a1 (* (cos th) (+ a2 (* -1 a2)))) (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a1 (- (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a2 2) (sqrt 2))))))) (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a1 (- (* a1 (- (* -1 (* a1 (+ (* -1 (/ (* (+ a2 (* -1 a2)) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a2 2) (sqrt 2)))))) (pow a2 2))) (/ (* (cos th) (+ a2 (* -1 a2))) (* (pow a2 2) (sqrt 2)))))) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a2 2) (sqrt 2))))))) (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (/ (* (pow a2 4) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (+ (* -1 (/ (* (pow a1 4) (cos th)) (sqrt 2))) (/ (* (pow a2 4) (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) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (pow a2 4)))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (+ (* -1 (pow a1 4)) (pow a2 4))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (fma.f64 (*.f64 (*.f64 a2 a2) a2) a2 (neg.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) a1))))
#s(approx (pow (* a1 a1) 2) #s(hole binary64 (pow a1 4)))
#s(approx (pow (* a1 a1) 2) (*.f64 (*.f64 (*.f64 a1 a1) a1) a1))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (cos.f64 th) a1) (/.f64 (*.f64 a2 a2) a1) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #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)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (- (+ (* -1 (/ (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2)))) (pow a1 2))) (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2))))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (- (+ (* -1 (/ (+ (* -1 (/ (* (pow a2 2) (* (cos th) (+ a2 (* -1 a2)))) (sqrt 2))) (* (+ a2 (* -1 a2)) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2)))))) (pow a1 3))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2)))) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* (pow a1 2) (sqrt 2)))) (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (* -1 (/ (* (pow a1 4) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (* (pow a1 4) (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* (pow a2 4) (cos th)) (* (pow a1 4) (sqrt 2)))))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (* -1 (pow a1 4))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (neg.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) a1)))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (* (pow a1 4) (- (/ (pow a2 4) (pow a1 4)) 1))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (/ (- (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (* a1 (sqrt 2)))) (* -1 (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2))))) (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) a1)) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a1 2) (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* (pow a2 2) (* (cos th) (+ a2 (* -1 a2)))) (* a1 (sqrt 2)))) (/ (* (+ a2 (* -1 a2)) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))))) a1)) (+ (* -1 (/ (* (cos th) (pow (+ a2 (* -1 a2)) 2)) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))))) a1)) (* -1 (/ (* (cos th) (+ a2 (* -1 a2))) (sqrt 2)))) a1)) (/ (cos th) (sqrt 2))))))
#s(approx (* a2 (cos th)) #s(hole binary64 (* a2 (cos th))))
#s(approx (* a2 (cos th)) (*.f64 (cos.f64 th) a2))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (/ (* a2 (* (cos th) (+ a1 (* -1 a1)))) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a2 (- (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a1 2) (sqrt 2))))))) (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (+ (* a2 (- (* a2 (- (* -1 (* a2 (+ (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (* (pow a1 2) (sqrt 2)))) (/ (* (+ a1 (* -1 a1)) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a1 2) (sqrt 2)))))) (pow a1 2))))) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a1 2) (sqrt 2))))))) (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (+.f64 a1 a2) (-.f64 a2 a1))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) (*.f64 a2 a2) (*.f64 a2 a2)))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #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)) (fma.f64 (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) (*.f64 a2 a2) (*.f64 a2 a2)))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (/ (* (cos th) (+ a1 (* -1 a1))) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (- (+ (* -1 (/ (+ (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2)))) (pow a2 2))) (/ (cos th) (sqrt 2))) (/ (* (cos th) (+ a1 (* -1 a1))) (* a2 (sqrt 2)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (- (+ (* -1 (/ (+ (* -1 (* (+ a1 (* -1 a1)) (+ (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2))) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2)))))) (/ (* (pow a1 2) (* (cos th) (+ a1 (* -1 a1)))) (sqrt 2))) (pow a2 3))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (* (pow a2 2) (sqrt 2)))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* (cos th) (+ a1 (* -1 a1))) (* a2 (sqrt 2)))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (* (pow a2 4) (+ (* -1 (/ (* (pow a1 4) (cos th)) (* (pow a2 4) (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) #s(hole binary64 (* (pow a2 4) (+ 1 (* -1 (/ (pow a1 4) (pow a2 4)))))))
#s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (fma.f64 (/.f64 (neg.f64 (*.f64 (*.f64 (*.f64 a1 a1) a1) a1)) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2)) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2)))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))) a2)) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (* (pow a2 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* (+ a1 (* -1 a1)) (+ (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2)))) (/ (* (pow a1 2) (* (cos th) (+ a1 (* -1 a1)))) (sqrt 2))) a2)) (+ (/ (* (cos th) (pow (+ a1 (* -1 a1)) 2)) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (sqrt 2)))) a2)) (/ (* (cos th) (+ a1 (* -1 a1))) (sqrt 2))) a2)) (/ (cos th) (sqrt 2))))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (cos th)) (/ a2 (sqrt 2))) (* (/ (cos th) (sqrt 2)) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* a2 (cos th)) #s(hole binary64 a2))
#s(approx (* a2 (cos th)) a2)
#s(approx (* a2 (cos th)) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* a2 (cos th)) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* a2 (cos th)) #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 (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (* a2 (/ (cos th) (sqrt 2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* a2 (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a2 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a1 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (* 1/24 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))) (/ (pow a2 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a1 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1)))))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (* 1/24 (/ (- (pow a2 4) (pow a1 4)) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))))) (/ (pow a2 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))) (/ (pow a1 4) (* (sqrt 2) (* (+ a1 a2) (- a2 a1)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (sqrt 2))) (/ (pow a2 4) (sqrt 2))) (/ (pow a1 4) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (sqrt 2))))) (/ (pow a2 4) (sqrt 2))) (/ (pow a1 4) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (- (+ (* (pow th 2) (+ (* -1/2 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (- (pow a2 4) (pow a1 4))) (sqrt 2))) (* 1/24 (/ (- (pow a2 4) (pow a1 4)) (sqrt 2))))))) (/ (pow a2 4) (sqrt 2))) (/ (pow a1 4) (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 (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (cos th)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (/ (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) (* (+ a2 a1) (- a2 a1))) #s(hole binary64 (/ (* (cos th) (- (pow a2 4) (pow a1 4))) (* (sqrt 2) (* (+ a1 a2) (- a2 a1))))))
#s(approx (* (/ (cos th) (sqrt 2)) (- (pow (* a2 a2) 2) (pow (* a1 a1) 2))) #s(hole binary64 (/ (* (cos th) (- (pow a2 4) (pow a1 4))) (sqrt 2))))

rewrite146.0ms (1.7%)

Memory
-6.5MiB live, 139.6MiB allocated; 32ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
040256
150256
259256
374250
484244
594244
696244
096245
1272207
01918207
12590207
23646207
34482207
44756207
54833207
64838207
Stop Event
1×saturated
1×iter limit
1×node limit
1×saturated
Counts
22 → 538
Calls
Call 1
Inputs
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(*.f64 a2 (cos.f64 th))
(cos.f64 th)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
(*.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)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
(fma.f64 (*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
Outputs
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)) (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (-.f64 a2 a1))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (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 (*.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 (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)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))) (neg.f64 (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (neg.f64 (-.f64 a2 a1)))
(/.f64 (neg.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (neg.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 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 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(neg.f64 (/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(neg.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (*.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))) (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) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a2) (/.f64 (*.f64 (cos.f64 th) a2) (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 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) a2)))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 (*.f64 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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 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 (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 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (neg.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (neg.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (*.f64 (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (-.f64 a2 a1))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (+.f64 a1 a2))
(/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (/.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(-.f64 (/.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (/.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 a2)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (fabs.f64 a2)) (fabs.f64 a2)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(+.f64 (*.f64 a2 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)) (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (-.f64 a2 a1))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (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 (*.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 (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)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))) (neg.f64 (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (neg.f64 (-.f64 a2 a1)))
(/.f64 (neg.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (neg.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 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 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(neg.f64 (/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(neg.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (*.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))) (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) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a2) (/.f64 (*.f64 (cos.f64 th) a2) (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 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) a2)))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 (*.f64 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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 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 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (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 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (neg.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (neg.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (*.f64 (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (-.f64 a2 a1))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (+.f64 a1 a2))
(/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 (neg.f64 (neg.f64 a2)) a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (/.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(-.f64 (/.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (/.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(-.f64 (*.f64 a2 a2) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 a2)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (fabs.f64 a2)) (fabs.f64 a2)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 a2) a2))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(+.f64 (*.f64 a2 a2) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(+.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (neg.f64 a2)) a2))
(+.f64 (*.f64 a1 a1) (*.f64 a2 a2))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)) (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (-.f64 a2 a1))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (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 (*.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 (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)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))) (neg.f64 (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (neg.f64 (-.f64 a2 a1)))
(/.f64 (neg.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (neg.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 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 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(neg.f64 (/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(neg.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (*.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))) (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) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a2) (/.f64 (*.f64 (cos.f64 th) a2) (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 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) a2)))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 (*.f64 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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (cos.f64 th) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a2 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (neg.f64 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 a2 a1)) (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (-.f64 a2 a1))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (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 (*.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 (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)))) (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))) (neg.f64 (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (neg.f64 (-.f64 a2 a1)))
(/.f64 (neg.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (neg.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 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 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #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 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #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 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(neg.f64 (/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(neg.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(fma.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th) (*.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))) (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) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) a2) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 a2 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (*.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 a2) (/.f64 (*.f64 (cos.f64 th) a2) (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 a2 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) a2)))
(-.f64 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 (*.f64 (cos.f64 th) a2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (/.f64 (*.f64 (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 (*.f64 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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #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 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.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))))) (pow.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 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 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 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 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(*.f64 (cos.f64 th) (/.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (neg.f64 (cos.f64 th))) (*.f64 (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (cos.f64 th)) (*.f64 (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
(*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 a1 a1) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))) (neg.f64 (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 a2 a2) (neg.f64 a2)) (neg.f64 a2) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (*.f64 a2 a2) (fabs.f64 a2)) (fabs.f64 a2) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (neg.f64 a2) (fabs.f64 a2)) (*.f64 (neg.f64 a2) (fabs.f64 a2)) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (fabs.f64 a2) (neg.f64 a2)) (*.f64 (fabs.f64 a2) (neg.f64 a2)) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (fabs.f64 a2) a2) (*.f64 (fabs.f64 a2) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 (fabs.f64 a2)) (*.f64 a2 (fabs.f64 a2)) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 a2))) (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 a2))) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (*.f64 a2 a2) a2) a2 (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (neg.f64 a2) (*.f64 (neg.f64 a2) (*.f64 a2 a2)) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (fabs.f64 a2) (*.f64 (fabs.f64 a2) (*.f64 a2 a2)) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a2) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 a2 a2) (*.f64 a2 a2) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(fma.f64 a2 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(-.f64 (/.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (/.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 (+.f64 (pow.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(+.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 a1 a1)))
(*.f64 (*.f64 (*.f64 a1 a1) (neg.f64 a1)) (neg.f64 a1))
(*.f64 (*.f64 (*.f64 a1 a1) (fabs.f64 a1)) (fabs.f64 a1))
(*.f64 (*.f64 (neg.f64 a1) (fabs.f64 a1)) (*.f64 (neg.f64 a1) (fabs.f64 a1)))
(*.f64 (*.f64 (fabs.f64 a1) (neg.f64 a1)) (*.f64 (fabs.f64 a1) (neg.f64 a1)))
(*.f64 (*.f64 (fabs.f64 a1) a1) (*.f64 (fabs.f64 a1) a1))
(*.f64 (*.f64 a1 (fabs.f64 a1)) (*.f64 a1 (fabs.f64 a1)))
(*.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 a1))) (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 a1))))
(*.f64 (*.f64 (*.f64 a1 a1) a1) a1)
(*.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (*.f64 a1 a1)))
(*.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (*.f64 a1 a1)))
(*.f64 (*.f64 (neg.f64 a1) a1) (*.f64 (neg.f64 a1) a1))
(*.f64 (*.f64 a1 a1) (*.f64 a1 a1))
(*.f64 a1 (*.f64 (*.f64 a1 a1) a1))
(pow.f64 (exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 a1))) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))
(exp.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 a1)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 a1)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (*.f64 #s(literal 2 binary64) (log.f64 a1)) #s(literal 2 binary64))))

eval45.0ms (0.5%)

Memory
-3.5MiB live, 86.6MiB allocated; 13ms collecting garbage
Compiler

Compiled 10 299 to 1 173 computations (88.6% saved)

prune21.0ms (0.2%)

Memory
-2.6MiB live, 48.0MiB allocated; 6ms collecting garbage
Pruning

20 alts after pruning (17 fresh and 3 done)

PrunedKeptTotal
New38113394
Fresh448
Picked325
Done011
Total38820408
Accuracy
99.9%
Counts
408 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓99.6%
(fma.f64 (/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
✓99.6%
(fma.f64 (*.f64 a2 (cos.f64 th)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
98.7%
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 #s(approx (* (cos th) a1) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
23.5%
(/.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
82.2%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
23.7%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
23.8%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
23.6%
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64))))
82.2%
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1))
99.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
64.8%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
56.0%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (+.f64 a1 a2))) (sqrt.f64 #s(literal 2 binary64)))
▶39.6%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
64.4%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
▶13.0%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
▶99.6%
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
✓99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
▶82.2%
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
▶31.7%
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
99.1%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Compiler

Compiled 846 to 542 computations (35.9% saved)

simplify95.0ms (1.1%)

Memory
22.3MiB live, 67.5MiB allocated; 6ms collecting garbage
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
cost-diff0
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))
cost-diff0
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
cost-diff0
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
cost-diff0
(cos.f64 th)
cost-diff0
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))
cost-diff0
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
cost-diff0
(fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))
cost-diff0
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))
cost-diff0
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))))
cost-diff0
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 a1 a1)
cost-diff0
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
cost-diff0
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))
cost-diff0
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(sqrt.f64 #s(literal 2 binary64))
cost-diff0
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
cost-diff0
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
043467
053467
179467
2161467
3344467
4580467
5935467
62281467
76376467
08165467
Stop Event
1×saturated
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(/.f64 a2 a1)
a2
a1
(*.f64 a1 a1)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(+.f64 a1 a2)
a1
a2
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(-.f64 a2 a1)
(*.f64 (-.f64 a2 a1) (+.f64 a1 a2))
(+.f64 a1 a2)
Outputs
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(/.f64 a2 a1)
a2
a1
(*.f64 a1 a1)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(+.f64 a1 a2)
a1
a2
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(*.f64 a2 a2)
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(-.f64 a2 a1)
(*.f64 (-.f64 a2 a1) (+.f64 a1 a2))
(+.f64 a1 a2)

localize110.0ms (1.3%)

Memory
-4.1MiB live, 181.9MiB allocated; 25ms collecting garbage
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.15625
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
accuracy0.193691259768442
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy42.50834356848434
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
accuracy0.0546875
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))
accuracy0.40234375
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))
accuracy0.71875
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy11.348212725148098
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
accuracy0.181972509768442
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
accuracy0.22265625
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
accuracy22.44464144770089
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))))
accuracy26.346819511089826
(fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))
accuracy0.0
(sqrt.f64 #s(literal 2 binary64))
accuracy0.22265625
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
accuracy22.44464144770089
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))
accuracy54.912103024883564
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
accuracy0.078125
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
accuracy0.12890625
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
accuracy0.23894501953688402
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.42578125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
Samples
76.0ms256×0valid
Compiler

Compiled 339 to 34 computations (90% saved)

Precisions
Click to see histograms. Total time spent on operations: 49.0ms
ival-mult: 22.0ms (45% of total)
ival-div: 12.0ms (24.5% of total)
ival-cos: 6.0ms (12.3% of total)
ival-add: 5.0ms (10.2% of total)
ival-sqrt: 2.0ms (4.1% of total)
ival-sub: 1.0ms (2% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series53.0ms (0.6%)

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

9 calls:

TimeVariablePointExpression
14.0ms
a1
@-inf
((* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (/ a2 (sqrt 2)) (sqrt 2) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (/ (* a1 a1) (sqrt 2)) (* (/ a2 a1) (/ a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)))
7.0ms
th
@inf
((* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (/ a2 (sqrt 2)) (sqrt 2) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (/ (* a1 a1) (sqrt 2)) (* (/ a2 a1) (/ a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)))
4.0ms
a2
@inf
((* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (/ a2 (sqrt 2)) (sqrt 2) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (/ (* a1 a1) (sqrt 2)) (* (/ a2 a1) (/ a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)))
4.0ms
a1
@inf
((* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (/ a2 (sqrt 2)) (sqrt 2) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (/ (* a1 a1) (sqrt 2)) (* (/ a2 a1) (/ a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)))
4.0ms
th
@-inf
((* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (/ a2 (sqrt 2)) (sqrt 2) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (+ (* a2 a2) (* a1 a1)) (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (/ (* a1 a1) (sqrt 2)) (* (/ a2 a1) (/ a2 a1)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)))

simplify490.0ms (5.7%)

Memory
-4.4MiB live, 242.0MiB allocated; 28ms collecting garbage
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
09277630
125327023
089996963
1129356932
2189716930
3222786930
4233326930
5237016930
6239746930
7240466930
Stop Event
1×saturated
1×node limit
Counts
184 → 34
Calls
Call 1
Inputs
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 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 a2)) #s(hole binary64 (/ (cos th) (* a2 (sqrt 2)))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* -1 (/ (* a1 (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (cos th) (* a2 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (- (/ (* a1 (cos th)) (* (pow a2 3) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2))))) (/ (cos th) (* a2 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (- (* a1 (- (* -1 (/ (* a1 (cos th)) (* (pow a2 4) (sqrt 2)))) (* -1 (/ (cos th) (* (pow a2 3) (sqrt 2)))))) (/ (cos th) (* (pow a2 2) (sqrt 2))))) (/ (cos th) (* a2 (sqrt 2))))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a1 (- (* a1 (- (/ (cos th) (* a2 (sqrt 2))) (* -1 (/ (cos th) (* a2 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a2 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a1 (- (* a1 (- (+ (* a1 (- (* -1 (/ (cos th) (* (pow a2 2) (sqrt 2)))) (/ (cos th) (* (pow a2 2) (sqrt 2))))) (/ (cos th) (* a2 (sqrt 2)))) (* -1 (/ (cos th) (* a2 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a2 (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (/ (* (pow a2 3) (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* a1 (* (pow a2 2) (cos th))) (sqrt 2))) (/ (* (pow a2 3) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* a1 (+ (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (/ (* a1 (* a2 (cos th))) (sqrt 2)))) (/ (* (pow a2 3) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* a1 (+ (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (* a1 (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2)))))) (/ (* (pow a2 3) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* a1 a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (pow a2 3)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (pow a2 2)) (pow a2 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (+ (* a1 a2) (pow a2 2))) (pow a2 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (+ (* a1 (+ a1 a2)) (pow a2 2))) (pow a2 3))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* 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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (cos th) (* a1 (sqrt 2)))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (+ (* -1 (/ (* a2 (cos th)) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2))) a1)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2)))) a1)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a2 3) (cos th)) (* (pow a1 3) (sqrt 2)))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))) a1)))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a1 (+ (* -1 (/ (* a2 (cos th)) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a1 (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a1 (- (+ (* -1 (/ (* a2 (- (/ (* (pow a2 2) (cos th)) (sqrt 2)) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))))) (pow a1 3))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a1 3) (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a2 (cos th)) (* a1 (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a1 3) (+ (* -1 (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a1 3) (+ (* -1 (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (+ (/ (* a2 (cos th)) (* a1 (sqrt 2))) (/ (* (pow a2 3) (cos th)) (* (pow a1 3) (sqrt 2)))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (pow a1 3)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a1 3) (+ 1 (/ a2 a1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a1 3) (+ 1 (+ (/ a2 a1) (/ (pow a2 2) (pow a1 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a1 3) (+ 1 (+ (/ a2 a1) (+ (/ (pow a2 2) (pow a1 2)) (/ (pow a2 3) (pow a1 3))))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a2 (cos th)) (* a1 (sqrt 2)))) a1))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2))) a1))) a1))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (/ (* (pow a2 3) (cos th)) (* a1 (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1))) a1))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* a2 (- (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))) a1)) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a1 3) (+ (* -1 (/ (* a2 (cos th)) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a1 3) (+ (* -1 (/ (+ (* -1 (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2)))) (/ (* a2 (cos th)) (sqrt 2))) a1)) (/ (cos th) (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow a2 3) (cos th)) (* a1 (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1)) (/ (cos th) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a1 3) (- (* -1 (/ a2 a1)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a1 3) (- (* -1 (/ (+ a2 (/ (pow a2 2) a1)) a1)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a1 3) (- (* -1 (/ (+ a2 (* -1 (/ (+ (* -1 (/ (pow a2 3) a1)) (* -1 (pow a2 2))) a1))) a1)) 1)))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* -1 (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (cos th) (* a1 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (- (/ (* a2 (cos th)) (* (pow a1 3) (sqrt 2))) (/ (cos th) (* (pow a1 2) (sqrt 2))))) (/ (cos th) (* a1 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (- (* a2 (- (* -1 (/ (* a2 (cos th)) (* (pow a1 4) (sqrt 2)))) (* -1 (/ (cos th) (* (pow a1 3) (sqrt 2)))))) (/ (cos th) (* (pow a1 2) (sqrt 2))))) (/ (cos th) (* a1 (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* -1 (/ (* a2 (cos th)) (sqrt 2))) (/ (* a1 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a2 (- (* a2 (- (/ (cos th) (* a1 (sqrt 2))) (* -1 (/ (cos th) (* a1 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a1 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a2 (- (* a2 (- (+ (* a2 (- (* -1 (/ (cos th) (* (pow a1 2) (sqrt 2)))) (/ (cos th) (* (pow a1 2) (sqrt 2))))) (/ (cos th) (* a1 (sqrt 2)))) (* -1 (/ (cos th) (* a1 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a1 (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2))) (/ (* (pow a1 2) (* a2 (cos th))) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2))) (* a2 (+ (* -1 (/ (* a1 (* a2 (cos th))) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2))) (* a2 (+ (* a2 (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2)))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* (pow a1 2) a2) (pow a1 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (+ (* a1 a2) (pow a1 2))) (pow a1 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (+ (* a2 (+ a1 a2)) (pow a1 2))) (pow a1 3))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* 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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 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 a2)) #s(hole binary64 (/ (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))) a2)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2)))) a2)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a1 3) (cos th)) (* (pow a2 3) (sqrt 2)))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))) a2)))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a2 (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a2 (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a2 (- (+ (* -1 (/ (* a1 (- (/ (* (pow a1 2) (cos th)) (sqrt 2)) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))))) (pow a2 3))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a2 3) (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a2 3) (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a2 3) (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (+ (* -1 (/ (* (pow a1 3) (cos th)) (* (pow a2 3) (sqrt 2)))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a2 3) (+ 1 (/ a1 a2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a2 3) (+ 1 (+ (/ a1 a2) (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a2 3) (+ 1 (+ (/ a1 a2) (+ (/ (pow a1 2) (pow a2 2)) (/ (pow a1 3) (pow a2 3))))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a1 (cos th)) (* a2 (sqrt 2)))) a2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))) (/ (* a1 (cos th)) (sqrt 2))) a2))) a2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (/ (* (pow a1 3) (cos th)) (* a2 (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* a1 (cos th)) (sqrt 2))) a2))) a2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* a1 (cos th)) (sqrt 2))) a2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* a1 (- (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))) a2)) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2)))) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* a1 (cos th)) (sqrt 2))) a2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a2 3) (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a2 3) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))) a2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a2 3) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (* -1 (/ (+ (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))) (/ (* (pow a1 3) (cos th)) (* a2 (sqrt 2)))) a2))) a2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a2 3) (- (* -1 (/ a1 a2)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a2 3) (- (* -1 (/ (+ a1 (/ (pow a1 2) a2)) a2)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a2 3) (- (* -1 (/ (+ a1 (* -1 (/ (+ (* -1 (/ (pow a1 3) a2)) (* -1 (pow a1 2))) a2))) a2)) 1)))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* 1/24 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (* 1/24 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ 1 (* (sqrt 2) (+ a1 a2)))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (* (sqrt 2) (+ a1 a2)))) (/ 1 (* (sqrt 2) (+ a1 a2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (* (sqrt 2) (+ a1 a2)))) (* 1/2 (/ 1 (* (sqrt 2) (+ a1 a2)))))) (/ 1 (* (sqrt 2) (+ a1 a2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (* (sqrt 2) (+ a1 a2)))) (* 1/24 (/ 1 (* (sqrt 2) (+ a1 a2)))))) (* 1/2 (/ 1 (* (sqrt 2) (+ a1 a2)))))) (/ 1 (* (sqrt 2) (+ a1 a2))))))
#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 (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))) (+ (/ (pow a1 2) (* (sqrt 2) (+ a1 a2))) (/ (pow a2 2) (* (sqrt 2) (+ a1 a2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))))) (+ (/ (pow a1 2) (* (sqrt 2) (+ a1 a2))) (/ (pow a2 2) (* (sqrt 2) (+ a1 a2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))))))) (+ (/ (pow a1 2) (* (sqrt 2) (+ a1 a2))) (/ (pow a2 2) (* (sqrt 2) (+ a1 a2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))) (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))))) (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))) (* 1/24 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))))))) (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (* (cos th) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (cos th) (* (sqrt 2) (+ a1 a2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (/ (* (cos th) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
Outputs
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 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 a2)) #s(hole binary64 (/ (cos th) (* a2 (sqrt 2)))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* -1 (/ (* a1 (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (cos th) (* a2 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (- (/ (* a1 (cos th)) (* (pow a2 3) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2))))) (/ (cos th) (* a2 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (- (* a1 (- (* -1 (/ (* a1 (cos th)) (* (pow a2 4) (sqrt 2)))) (* -1 (/ (cos th) (* (pow a2 3) (sqrt 2)))))) (/ (cos th) (* (pow a2 2) (sqrt 2))))) (/ (cos th) (* a2 (sqrt 2))))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a1 (- (* a1 (- (/ (cos th) (* a2 (sqrt 2))) (* -1 (/ (cos th) (* a2 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a2 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a1 (- (* a1 (- (+ (* a1 (- (* -1 (/ (cos th) (* (pow a2 2) (sqrt 2)))) (/ (cos th) (* (pow a2 2) (sqrt 2))))) (/ (cos th) (* a2 (sqrt 2)))) (* -1 (/ (cos th) (* a2 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a2 (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (/ (* (pow a2 3) (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* a1 (* (pow a2 2) (cos th))) (sqrt 2))) (/ (* (pow a2 3) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* a1 (+ (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (/ (* a1 (* a2 (cos th))) (sqrt 2)))) (/ (* (pow a2 3) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* a1 (+ (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (* a1 (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2)))))) (/ (* (pow a2 3) (cos th)) (sqrt 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (* a1 a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (* (/ a2 a1) (/ a2 a1)) (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (pow a2 3)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (*.f64 a2 a2) a2))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (pow a2 2)) (pow a2 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (*.f64 (+.f64 a1 a2) a2) a2))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (+ (* a1 a2) (pow a2 2))) (pow a2 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (fma.f64 (+.f64 a1 a2) a1 (*.f64 a2 a2)) a2))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a1 (+ (* a1 (+ a1 a2)) (pow a2 2))) (pow a2 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (+.f64 a1 a2) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* 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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 (fma.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) a1) a1)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (*.f64 a1 (fma.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) a1) a1)))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (cos th) (* a1 (sqrt 2)))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (+ (* -1 (/ (* a2 (cos th)) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2))) a1)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2)))) a1)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a2 3) (cos th)) (* (pow a1 3) (sqrt 2)))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))) a1)))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a1 (+ (* -1 (/ (* a2 (cos th)) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a1 (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a1 (- (+ (* -1 (/ (* a2 (- (/ (* (pow a2 2) (cos th)) (sqrt 2)) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))))) (pow a1 3))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a1 3) (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a2 (cos th)) (* a1 (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a1 3) (+ (* -1 (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a1 3) (+ (* -1 (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))) (+ (/ (* a2 (cos th)) (* a1 (sqrt 2))) (/ (* (pow a2 3) (cos th)) (* (pow a1 3) (sqrt 2)))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (pow a1 3)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (*.f64 a1 a1) a1))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a1 3) (+ 1 (/ a2 a1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (fma.f64 (*.f64 (/.f64 a2 a1) a1) (*.f64 a1 a1) (*.f64 (*.f64 a1 a1) a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a1 3) (+ 1 (+ (/ a2 a1) (/ (pow a2 2) (pow a1 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (fma.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1)) a1 (*.f64 (*.f64 a1 a1) a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a1 3) (+ 1 (+ (/ a2 a1) (+ (/ (pow a2 2) (pow a1 2)) (/ (pow a2 3) (pow a1 3))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (fma.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a2 a2) a1) (/.f64 a2 (*.f64 a1 a1)) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) (/.f64 a2 a1))) (*.f64 a1 a1)) a1 (*.f64 (*.f64 a1 a1) a1)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a2 (cos th)) (* a1 (sqrt 2)))) a1))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2))) a1))) a1))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (/ (* (pow a2 3) (cos th)) (* a1 (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1))) a1))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a2 (cos th)) (* a1 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* a2 (- (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2))) (/ (* (pow a2 2) (cos th)) (sqrt 2)))) a1)) (* -1 (/ (* (pow a2 2) (cos th)) (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a1 3) (+ (* -1 (/ (* a2 (cos th)) (* a1 (sqrt 2)))) (/ (cos th) (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a1 3) (+ (* -1 (/ (+ (* -1 (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2)))) (/ (* a2 (cos th)) (sqrt 2))) a1)) (/ (cos th) (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (pow a2 3) (cos th)) (* a1 (sqrt 2)))) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)) (/ (* a2 (cos th)) (sqrt 2))) a1)) (/ (cos th) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a1 3) (- (* -1 (/ a2 a1)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a1 3) (- (* -1 (/ (+ a2 (/ (pow a2 2) a1)) a1)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a1 3) (- (* -1 (/ (+ a2 (* -1 (/ (+ (* -1 (/ (pow a2 3) a1)) (* -1 (pow a2 2))) a1))) a1)) 1)))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* -1 (/ (* a2 (cos th)) (* (pow a1 2) (sqrt 2)))) (/ (cos th) (* a1 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (- (/ (* a2 (cos th)) (* (pow a1 3) (sqrt 2))) (/ (cos th) (* (pow a1 2) (sqrt 2))))) (/ (cos th) (* a1 (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (- (* a2 (- (* -1 (/ (* a2 (cos th)) (* (pow a1 4) (sqrt 2)))) (* -1 (/ (cos th) (* (pow a1 3) (sqrt 2)))))) (/ (cos th) (* (pow a1 2) (sqrt 2))))) (/ (cos th) (* a1 (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* -1 (/ (* a2 (cos th)) (sqrt 2))) (/ (* a1 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a2 (- (* a2 (- (/ (cos th) (* a1 (sqrt 2))) (* -1 (/ (cos th) (* a1 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a1 (cos th)) (sqrt 2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* a2 (- (* a2 (- (+ (* a2 (- (* -1 (/ (cos th) (* (pow a1 2) (sqrt 2)))) (/ (cos th) (* (pow a1 2) (sqrt 2))))) (/ (cos th) (* a1 (sqrt 2)))) (* -1 (/ (cos th) (* a1 (sqrt 2)))))) (/ (cos th) (sqrt 2)))) (/ (* a1 (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2))) (/ (* (pow a1 2) (* a2 (cos th))) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2))) (* a2 (+ (* -1 (/ (* a1 (* a2 (cos th))) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1 (/ (* (pow a1 3) (cos th)) (sqrt 2))) (* a2 (+ (* a2 (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* a2 (cos th)) (sqrt 2)))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* (pow a1 2) a2) (pow a1 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (*.f64 (+.f64 a1 a2) a1) a1))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (+ (* a1 a2) (pow a1 2))) (pow a1 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (fma.f64 (+.f64 a1 a2) a1 (*.f64 a2 a2)) a1))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (+ (* a2 (+ (* a2 (+ a1 a2)) (pow a1 2))) (pow a1 3))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (+.f64 a1 a2) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 (/ a2 (sqrt 2))) (/ (* 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) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) (*.f64 a2 a2) (*.f64 a2 a2)))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (* (/ a2 a1) (/ a2 a1)) (* a1 a1)) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a1 a2) (/.f64 a1 a2)) (*.f64 a2 a2) (*.f64 a2 a2)))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 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 a2)) #s(hole binary64 (/ (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))) a2)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2)))) a2)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (- (+ (* -1 (/ (* (pow a1 3) (cos th)) (* (pow a2 3) (sqrt 2)))) (/ (cos th) (sqrt 2))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))) a2)))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a2 (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a2 (- (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* a2 (- (+ (* -1 (/ (* a1 (- (/ (* (pow a1 2) (cos th)) (sqrt 2)) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))))) (pow a2 3))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (+ (* -1 (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a2 3) (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (/ (cos th) (sqrt 2))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a2 3) (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* (pow a2 3) (+ (* -1 (/ (* a1 (cos th)) (* a2 (sqrt 2)))) (+ (* -1 (/ (* (pow a1 3) (cos th)) (* (pow a2 3) (sqrt 2)))) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a2 3) (+ 1 (/ a1 a2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (fma.f64 (*.f64 (/.f64 a1 a2) a2) (*.f64 a2 a2) (*.f64 (*.f64 a2 a2) a2)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a2 3) (+ 1 (+ (/ a1 a2) (/ (pow a1 2) (pow a2 2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (fma.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) (/.f64 a1 a2)) (*.f64 a2 a2)) a2 (*.f64 (*.f64 a2 a2) a2)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* (pow a2 3) (+ 1 (+ (/ a1 a2) (+ (/ (pow a1 2) (pow a2 2)) (/ (pow a1 3) (pow a2 3))))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (fma.f64 (*.f64 (fma.f64 (/.f64 (*.f64 a1 a1) a2) (/.f64 a1 (*.f64 a2 a2)) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) (/.f64 a1 a2))) (*.f64 a2 a2)) a2 (*.f64 (*.f64 a2 a2) a2)))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a1 (cos th)) (* a2 (sqrt 2)))) a2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2))) (/ (* a1 (cos th)) (sqrt 2))) a2))) a2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (/ (* (pow a1 3) (cos th)) (* a2 (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* a1 (cos th)) (sqrt 2))) a2))) a2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* a1 (cos th)) (sqrt 2))) a2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (* -1 (* a2 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (* a1 (- (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (sqrt 2)))) a2)) (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2)))) (/ (* (pow a1 2) (cos th)) (sqrt 2))) a2)) (/ (* a1 (cos th)) (sqrt 2))) a2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a2 3) (+ (* -1 (/ (cos th) (sqrt 2))) (/ (* a1 (cos th)) (* a2 (sqrt 2))))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a2 3) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (/ (* (pow a1 2) (cos th)) (* a2 (sqrt 2)))) a2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (* -1 (* (pow a2 3) (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (+ (* -1 (/ (* a1 (cos th)) (sqrt 2))) (* -1 (/ (+ (* -1 (/ (* (pow a1 2) (cos th)) (sqrt 2))) (/ (* (pow a1 3) (cos th)) (* a2 (sqrt 2)))) a2))) a2)))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a2 3) (- (* -1 (/ a1 a2)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a2 3) (- (* -1 (/ (+ a1 (/ (pow a1 2) a2)) a2)) 1)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) #s(hole binary64 (* -1 (* (pow a2 3) (- (* -1 (/ (+ a1 (* -1 (/ (+ (* -1 (/ (pow a1 3) a2)) (* -1 (pow a1 2))) a2))) a2)) 1)))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* 1/24 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))) (* 1/24 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ 1 (* (sqrt 2) (+ a1 a2)))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (* (sqrt 2) (+ a1 a2)))) (/ 1 (* (sqrt 2) (+ a1 a2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (* (sqrt 2) (+ a1 a2)))) (* 1/2 (/ 1 (* (sqrt 2) (+ a1 a2)))))) (/ 1 (* (sqrt 2) (+ a1 a2))))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (* (sqrt 2) (+ a1 a2)))) (* 1/24 (/ 1 (* (sqrt 2) (+ a1 a2)))))) (* 1/2 (/ 1 (* (sqrt 2) (+ a1 a2)))))) (/ 1 (* (sqrt 2) (+ a1 a2))))))
#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 (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))) (+ (/ (pow a1 2) (* (sqrt 2) (+ a1 a2))) (/ (pow a2 2) (* (sqrt 2) (+ a1 a2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))))) (+ (/ (pow a1 2) (* (sqrt 2) (+ a1 a2))) (/ (pow a2 2) (* (sqrt 2) (+ a1 a2)))))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (* (sqrt 2) (+ a1 a2)))))))) (+ (/ (pow a1 2) (* (sqrt 2) (+ a1 a2))) (/ (pow a2 2) (* (sqrt 2) (+ a1 a2)))))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))) (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))))) (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))) (* 1/24 (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2))))))) (/ (* (+ (pow a1 2) (pow a2 2)) (- a2 a1)) (sqrt 2)))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (+ (* a2 (/ a2 (sqrt 2))) (/ (* a1 a1) (sqrt 2))) (cos th)) #s(hole binary64 (* (cos th) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (cos.f64 th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (/ (cos th) (sqrt 2)) (+ a1 a2)) #s(hole binary64 (/ (cos th) (* (sqrt 2) (+ a1 a2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) (+ a1 a2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) (* (- a2 a1) (+ a1 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (* (sqrt 2) (+ a1 a2)))))
#s(approx (* (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) (- a2 a1)) #s(hole binary64 (/ (* (cos th) (* (+ (pow a1 2) (pow a2 2)) (- a2 a1))) (sqrt 2))))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))

rewrite168.0ms (2%)

Memory
18.9MiB live, 150.4MiB allocated; 11ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
043370
153370
264370
376368
488368
594368
696368
798368
098368
1275350
02404344
13436344
25002344
35987344
46257344
56302344
66307344
Stop Event
1×saturated
1×iter limit
1×node limit
1×saturated
Counts
23 → 487
Calls
Call 1
Inputs
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))
(fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))
Outputs
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (cos.f64 th)) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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)))))
(+.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 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #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)) (*.f64 (neg.f64 a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (neg.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) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (*.f64 a1 a2) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) a2))
(-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 a2 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(sqrt.f64 #s(literal 2 binary64))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#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 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))))
(*.f64 a1 (-.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1) (neg.f64 a1)))
(*.f64 a1 (fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1 a1))
(*.f64 a1 (+.f64 a1 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1)))
(/.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 a1 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (neg.f64 (-.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 a1 a1))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (neg.f64 (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 a1 a1)))
(/.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (+.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64))))
(fma.f64 (*.f64 (*.f64 (/.f64 a2 a1) a1) (/.f64 a2 a1)) a1 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (*.f64 (/.f64 a2 a1) a1) (/.f64 a2 a1)) a1 (*.f64 a1 a1))
(fma.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (neg.f64 a1)) (neg.f64 a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (neg.f64 a1)) (neg.f64 a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (fabs.f64 a1)) (fabs.f64 a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (neg.f64 a2) a1)) (/.f64 (neg.f64 a2) a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (*.f64 a1 a1) (/.f64 (neg.f64 a2) a1)) (/.f64 (neg.f64 a2) a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (*.f64 a1 a1) (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (/.f64 a2 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (*.f64 a1 a1) (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (/.f64 a2 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (neg.f64 a1)) (*.f64 (/.f64 (neg.f64 a2) a1) (neg.f64 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (neg.f64 a1)) (*.f64 (/.f64 (neg.f64 a2) a1) (neg.f64 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (fabs.f64 a1)) (*.f64 (/.f64 (neg.f64 a2) a1) (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (fabs.f64 a1)) (*.f64 (/.f64 (neg.f64 a2) a1) (fabs.f64 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) a1) (*.f64 (/.f64 (neg.f64 a2) a1) a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (/.f64 (neg.f64 a2) a1) a1) (*.f64 (/.f64 (neg.f64 a2) a1) a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) (neg.f64 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) (neg.f64 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) (neg.f64 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) (neg.f64 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) a1) (*.f64 (fabs.f64 (/.f64 a2 a1)) a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (fabs.f64 (/.f64 a2 a1)) a1) (*.f64 (fabs.f64 (/.f64 a2 a1)) a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (/.f64 a2 a1) (neg.f64 a1)) (*.f64 (/.f64 a2 a1) (neg.f64 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (/.f64 a2 a1) (neg.f64 a1)) (*.f64 (/.f64 a2 a1) (neg.f64 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (/.f64 a2 a1) (fabs.f64 a1)) (*.f64 (/.f64 a2 a1) (fabs.f64 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (/.f64 a2 a1) (fabs.f64 a1)) (*.f64 (/.f64 a2 a1) (fabs.f64 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (neg.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 (neg.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (neg.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 (neg.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (neg.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 (neg.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (neg.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 (neg.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 a1 a1))
(fma.f64 (*.f64 (neg.f64 a1) (/.f64 a2 a1)) (*.f64 (neg.f64 a1) (/.f64 a2 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (neg.f64 a1) (/.f64 a2 a1)) (*.f64 (neg.f64 a1) (/.f64 a2 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (fabs.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 (fabs.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (fabs.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 (fabs.f64 a1) (/.f64 (neg.f64 a2) a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (fabs.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 (fabs.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (fabs.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 (fabs.f64 a1) (fabs.f64 (/.f64 a2 a1))) (*.f64 a1 a1))
(fma.f64 (*.f64 (fabs.f64 a1) (/.f64 a2 a1)) (*.f64 (fabs.f64 a1) (/.f64 a2 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (fabs.f64 a1) (/.f64 a2 a1)) (*.f64 (fabs.f64 a1) (/.f64 a2 a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 a1 (/.f64 (neg.f64 a2) a1)) (*.f64 a1 (/.f64 (neg.f64 a2) a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 a1 (/.f64 (neg.f64 a2) a1)) (*.f64 a1 (/.f64 (neg.f64 a2) a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 a1 (fabs.f64 (/.f64 a2 a1))) (*.f64 a1 (fabs.f64 (/.f64 a2 a1))) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 a1 (fabs.f64 (/.f64 a2 a1))) (*.f64 a1 (fabs.f64 (/.f64 a2 a1))) (*.f64 a1 a1))
(fma.f64 (neg.f64 (*.f64 (/.f64 a2 a1) a1)) (neg.f64 (*.f64 (/.f64 a2 a1) a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 (*.f64 (/.f64 a2 a1) a1)) (neg.f64 (*.f64 (/.f64 a2 a1) a1)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (*.f64 (/.f64 a2 a1) a1)) (fabs.f64 (*.f64 (/.f64 a2 a1) a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 (*.f64 (/.f64 a2 a1) a1)) (fabs.f64 (*.f64 (/.f64 a2 a1) a1)) (*.f64 a1 a1))
(fma.f64 (*.f64 (/.f64 a2 a1) a1) (*.f64 (/.f64 a2 a1) a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (/.f64 a2 a1) a1) (*.f64 (/.f64 a2 a1) a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (*.f64 (/.f64 a2 a1) a1) a1) (/.f64 a2 a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (*.f64 (/.f64 a2 a1) a1) a1) (/.f64 a2 a1) (*.f64 a1 a1))
(fma.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1) a1 (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1) a1 (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (neg.f64 a1) (*.f64 (neg.f64 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 a1) (*.f64 (fabs.f64 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 a1 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 (fabs.f64 (/.f64 a2 a1)) (*.f64 a1 a1)) (*.f64 a1 a1))
(fma.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (/.f64 (neg.f64 a2) a1) (*.f64 a1 a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (/.f64 (neg.f64 a2) a1) (*.f64 a1 a1)) (*.f64 a1 a1))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 a1 a1) (*.f64 a1 a1))
(fma.f64 (/.f64 a2 a1) (*.f64 a1 (*.f64 (/.f64 a2 a1) a1)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (/.f64 a2 a1) (*.f64 a1 (*.f64 (/.f64 a2 a1) a1)) (*.f64 a1 a1))
(fma.f64 (/.f64 a2 a1) (*.f64 (*.f64 (/.f64 a2 a1) a1) a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (/.f64 a2 a1) (*.f64 (*.f64 (/.f64 a2 a1) a1) a1) (*.f64 a1 a1))
(fma.f64 (*.f64 a1 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 (*.f64 a1 a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) (*.f64 a1 a1))
(fma.f64 a1 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(fma.f64 a1 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1) (*.f64 a1 a1))
(fma.f64 a1 a1 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (/.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 a1 a1))))
(-.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 (neg.f64 a1) a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (*.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) a1)) a1))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (*.f64 (/.f64 a2 a1) a1)) (*.f64 (/.f64 a2 a1) a1)))
(-.f64 (*.f64 a1 a1) (*.f64 (neg.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))) (*.f64 a1 a1)))
(-.f64 (*.f64 a1 a1) (*.f64 (/.f64 (neg.f64 a2) a1) (*.f64 (*.f64 (/.f64 a2 a1) a1) a1)))
(-.f64 (*.f64 a1 a1) (*.f64 (*.f64 (neg.f64 a1) a1) (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)) (fma.f64 (*.f64 a1 a1) (-.f64 (*.f64 a1 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64))) (pow.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)))))
(+.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 (neg.f64 (neg.f64 a1)) a1))
(+.f64 (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)) (*.f64 a1 a1))
(+.f64 (*.f64 a1 a1) (pow.f64 (*.f64 (/.f64 a2 a1) a1) #s(literal 2 binary64)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 a1 a2)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 a1 a2)) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(*.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (+.f64 a1 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (+.f64 a1 a2))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (+.f64 a1 a2) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(*.f64 (+.f64 a1 a2) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (+.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (neg.f64 (+.f64 a1 a2)))
(/.f64 (*.f64 (cos.f64 th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (+.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (cos.f64 th)) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 a1 a2))) (neg.f64 (+.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 a1 a2)) (+.f64 a1 a2))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a1 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a2))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a2 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a1))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
(fma.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2)))
(fma.f64 a1 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (*.f64 a2 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))))
(fma.f64 a2 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (*.f64 a1 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))))
(+.f64 (*.f64 a1 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (*.f64 a2 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))))
(+.f64 (*.f64 a2 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (*.f64 a1 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))))
(+.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
(+.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a1) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a2))
(+.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a2) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) a1))
(+.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(/.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (+.f64 a1 a2)))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (neg.f64 (+.f64 a1 a2))))
(/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))
(/.f64 (cos.f64 th) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))
(neg.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (+.f64 a1 a2))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) th))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (*.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(*.f64 (*.f64 (+.f64 a1 a2) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(*.f64 (*.f64 (+.f64 a1 a2) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (/.f64 (+.f64 a1 a2) (-.f64 a2 a1)))
(*.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (+.f64 a1 a2)))
(*.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (/.f64 (+.f64 a1 a2) (+.f64 a1 a2)))
(*.f64 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (+.f64 a1 a2))
(*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (+.f64 a1 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (-.f64 a2 a1) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)))
(*.f64 (+.f64 a1 a2) (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))))
(/.f64 (/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (*.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (+.f64 a1 a2)) (+.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))) (-.f64 a1 a2))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (+.f64 a1 a2) (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))) (+.f64 a1 a2))
(/.f64 (*.f64 (+.f64 a1 a2) (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (*.f64 (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))) (-.f64 (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (+.f64 a1 a2) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)) (-.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (-.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))) (*.f64 (-.f64 a1 a2) (+.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (-.f64 a1 a2) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (-.f64 a1 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (*.f64 (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (-.f64 a2 a1)))
(/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))
(fma.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 a2 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 a1 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)) a2) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)) a1) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) a1 (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) a2 (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) a2) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) a1) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 a1 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(fma.f64 a2 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)))) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(-.f64 (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (neg.f64 a2) (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))))
(-.f64 (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (neg.f64 (*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))) a2))
(+.f64 (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(+.f64 (*.f64 (*.f64 a1 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (*.f64 a2 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (/.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2))
(*.f64 (/.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (-.f64 a2 a1)) (/.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 a1 a2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (/.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)))
(*.f64 (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))) (/.f64 (-.f64 a2 a1) (-.f64 a2 a1)))
(*.f64 (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)))
(*.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(*.f64 (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (-.f64 a2 a1) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (-.f64 a2 a1))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (neg.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))) (neg.f64 (+.f64 a1 a2)))
(/.f64 (neg.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (-.f64 a2 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1)))
(/.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (-.f64 a2 a1))
(/.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1)) (+.f64 a1 a2))
(/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(neg.f64 (/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(neg.f64 (/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (neg.f64 (+.f64 a1 a2)) (-.f64 a2 a1))))
(*.f64 (*.f64 (-.f64 a2 a1) (fma.f64 a1 a1 (*.f64 a2 a2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (-.f64 a2 a1)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)))
(/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2))))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (*.f64 (*.f64 a2 a2) a2) (*.f64 (*.f64 a1 a1) a1)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (*.f64 (fma.f64 a1 (+.f64 a1 a2) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (+.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (cos.f64 th)) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (cos.f64 th)) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (neg.f64 (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (cos.f64 th))) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (neg.f64 (cos.f64 th))) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (cos.f64 th)) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (neg.f64 (cos.f64 th)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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 a2 a2) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(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)))))
(+.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 (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (*.f64 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) (*.f64 (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
(+.f64 (*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (*.f64 (cos.f64 th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (cos.f64 th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (*.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (neg.f64 a1) (/.f64 (neg.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fabs.f64 a1) (/.f64 (fabs.f64 a1) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (neg.f64 a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a1 a1) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (*.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (*.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)))
(*.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1))
(*.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))))
(*.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))))
(*.f64 (neg.f64 a2) (/.f64 (neg.f64 a2) (*.f64 a1 a1)))
(*.f64 (fabs.f64 a2) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)))
(*.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)))
(*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1))
(*.f64 (/.f64 a2 a1) (/.f64 a2 a1))
(*.f64 a2 (/.f64 (/.f64 a2 a1) a1))
(*.f64 a2 (/.f64 a2 (*.f64 a1 a1)))
(pow.f64 (fabs.f64 (/.f64 a2 a1)) #s(literal 2 binary64))
(pow.f64 (/.f64 (neg.f64 a2) a1) #s(literal 2 binary64))
(pow.f64 (/.f64 a2 a1) #s(literal 2 binary64))
(/.f64 (/.f64 (*.f64 a2 a2) (neg.f64 a1)) (neg.f64 a1))
(/.f64 (/.f64 (*.f64 a2 a2) (fabs.f64 a1)) (fabs.f64 a1))
(/.f64 (*.f64 (neg.f64 a2) (/.f64 a2 a1)) (neg.f64 a1))
(/.f64 (*.f64 (/.f64 a2 a1) (neg.f64 a2)) (neg.f64 a1))
(/.f64 (neg.f64 (*.f64 (/.f64 a2 a1) a2)) (neg.f64 a1))
(/.f64 (*.f64 (/.f64 a2 a1) a2) a1)
(/.f64 (*.f64 (neg.f64 a2) a2) (*.f64 (neg.f64 a1) a1))
(/.f64 (*.f64 a2 a2) (*.f64 a1 a1))
(neg.f64 (*.f64 (/.f64 (neg.f64 a2) a1) (/.f64 a2 a1)))
(neg.f64 (*.f64 (/.f64 a2 a1) (/.f64 (neg.f64 a2) a1)))
(fabs.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 a2 a1)) #s(literal 2 binary64)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))
(*.f64 (+.f64 a1 a2) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (+.f64 a1 a2)) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (+.f64 a1 a2)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (fma.f64 a1 a1 (*.f64 a2 a2))) (-.f64 a1 a2))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)))
(/.f64 (*.f64 (+.f64 a1 a2) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (+.f64 a1 a2) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)))
(/.f64 (*.f64 (+.f64 a1 a2) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))))
(/.f64 (*.f64 (+.f64 a1 a2) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1)) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2))) (-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (-.f64 a1 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (-.f64 a1 a2)))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (-.f64 a1 a2)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (-.f64 a1 a2)))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1))) (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1))) (*.f64 (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64))) (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (-.f64 a1 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (-.f64 a1 a2) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (-.f64 a1 a2) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (-.f64 a1 a2) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (-.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))) (*.f64 (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))) (*.f64 (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)) (fma.f64 (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)))))
(/.f64 (*.f64 (fma.f64 (*.f64 a2 a2) a2 (*.f64 (*.f64 a1 a1) a1)) (fma.f64 (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64)) (*.f64 a2 a2) (*.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (*.f64 a1 a1)))) (*.f64 (fma.f64 (-.f64 a2 a1) a2 (*.f64 a1 a1)) (fma.f64 (*.f64 a2 a2) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)) (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 a1 a1) #s(literal 2 binary64)) (pow.f64 (*.f64 a2 a2) #s(literal 2 binary64))) (-.f64 a1 a2))
(fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2))
(fma.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1))
(fma.f64 (*.f64 a2 a2) (+.f64 a1 a2) (*.f64 (*.f64 a1 a1) (+.f64 a1 a2)))
(fma.f64 (+.f64 a1 a2) (*.f64 a2 a2) (*.f64 (+.f64 a1 a2) (*.f64 a1 a1)))
(fma.f64 (+.f64 a1 a2) (*.f64 a1 a1) (*.f64 (+.f64 a1 a2) (*.f64 a2 a2)))
(fma.f64 (*.f64 a1 a1) (+.f64 a1 a2) (*.f64 (*.f64 a2 a2) (+.f64 a1 a2)))
(fma.f64 a1 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2))
(fma.f64 a2 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1))
(-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (*.f64 (neg.f64 a2) (fma.f64 a1 a1 (*.f64 a2 a2))))
(-.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) a2))
(+.f64 (*.f64 (*.f64 a1 a1) (+.f64 a1 a2)) (*.f64 (*.f64 a2 a2) (+.f64 a1 a2)))
(+.f64 (*.f64 (*.f64 a2 a2) (+.f64 a1 a2)) (*.f64 (*.f64 a1 a1) (+.f64 a1 a2)))
(+.f64 (*.f64 (+.f64 a1 a2) (*.f64 a1 a1)) (*.f64 (+.f64 a1 a2) (*.f64 a2 a2)))
(+.f64 (*.f64 (+.f64 a1 a2) (*.f64 a2 a2)) (*.f64 (+.f64 a1 a2) (*.f64 a1 a1)))
(+.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1))
(+.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a2))

eval100.0ms (1.2%)

Memory
33.0MiB live, 154.5MiB allocated; 56ms collecting garbage
Compiler

Compiled 17 623 to 1 781 computations (89.9% saved)

prune90.0ms (1%)

Memory
-41.7MiB live, 110.0MiB allocated; 70ms collecting garbage
Pruning

30 alts after pruning (26 fresh and 4 done)

PrunedKeptTotal
New51118529
Fresh4812
Picked235
Done213
Total51930549
Accuracy
100.0%
Counts
549 → 30
Alt Table
Click to see full alt table
StatusAccuracyProgram
82.2%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
23.7%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
23.8%
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
82.2%
(/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))
82.2%
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (cos.f64 th)) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
23.7%
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
82.1%
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (-.f64 a2 a1)))
99.1%
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
64.8%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
56.0%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (+.f64 a1 a2))) (sqrt.f64 #s(literal 2 binary64)))
99.1%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
29.2%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
57.2%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (/.f64 a2 a1) (*.f64 (*.f64 (/.f64 a2 a1) a1) a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
✓39.6%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
59.6%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) a1) (*.f64 (/.f64 a2 a1) a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
35.9%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 a2 (/.f64 (/.f64 a2 a1) a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
29.3%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 a2 (/.f64 a2 (*.f64 a1 a1))) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
64.4%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
57.0%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 (fma.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) a1) a1)))) (sqrt.f64 #s(literal 2 binary64)))
✓13.0%
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
✓99.6%
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
✓99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
81.7%
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (*.f64 a2 a2) a2)))
31.8%
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (-.f64 a2 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (+.f64 a1 a2))
82.2%
(*.f64 (/.f64 (cos.f64 th) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
99.6%
(*.f64 (+.f64 a1 a2) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
49.2%
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (+.f64 a1 a2))
31.8%
(*.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
49.1%
(*.f64 (*.f64 (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2))
99.1%
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Compiler

Compiled 1 991 to 662 computations (66.8% saved)

regimes136.0ms (1.6%)

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

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

regimes177.0ms (2.1%)

Memory
-6.7MiB live, 136.9MiB allocated; 156ms collecting garbage
Counts
38 → 1
Calls
Call 1
Inputs
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (/.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (+.f64 a1 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 a2 (/.f64 a2 (*.f64 a1 a1))) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (/.f64 (*.f64 a2 a2) (*.f64 a1 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 (fma.f64 (/.f64 a2 a1) (*.f64 (/.f64 a2 a1) a1) a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 a2 (/.f64 (/.f64 a2 a1) a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) a1) (*.f64 (/.f64 a2 a1) a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (*.f64 (/.f64 a2 a1) (/.f64 a2 a1)) (*.f64 a1 a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 (/.f64 a2 a1) (*.f64 (*.f64 (/.f64 a2 a1) a1) a1) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (*.f64 (cos.f64 th) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (cos.f64 th) a2) a2 (*.f64 #s(approx (* (cos th) a1) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) #s(approx (* (+ (* a1 a1) (* a2 a2)) (+ a1 a2)) (*.f64 (*.f64 a2 a2) a2)))
(*.f64 (/.f64 (cos.f64 th) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)) (cos.f64 th)) (*.f64 (+.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 th))
(fma.f64 (/.f64 #s(approx (* (cos th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (+.f64 a1 a2) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2))))
(*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (+.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (-.f64 a2 a1))
(/.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 a2 a1))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (-.f64 a2 a1)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (- (pow (* a2 a2) 2) (pow (* a1 a1) 2)) (*.f64 (*.f64 (*.f64 a2 a2) a2) a2))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th)) (-.f64 a2 a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (+.f64 a1 a2))
(*.f64 (*.f64 (/.f64 (-.f64 a2 a1) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2))
(*.f64 (*.f64 (/.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (+.f64 a1 a2) (-.f64 a1 a2))) (-.f64 a1 a2)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (+.f64 a1 a2)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (*.f64 (-.f64 a2 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (+.f64 a1 a2))
(*.f64 (/.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 a2 a1)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2))) (+.f64 a1 a2))
(/.f64 (*.f64 (*.f64 (-.f64 a2 a1) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 a1 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))
(/.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (*.f64 (-.f64 a2 a1) (+.f64 a1 a2)))) (*.f64 (+.f64 a2 a1) (-.f64 a2 a1)))
Outputs
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
Calls

8 calls:

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

regimes41.0ms (0.5%)

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

8 calls:

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

regimes35.0ms (0.4%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes31.0ms (0.4%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes31.0ms (0.4%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes13.0ms (0.1%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes11.0ms (0.1%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes9.0ms (0.1%)

Memory
-22.9MiB live, 24.1MiB allocated; 1ms collecting garbage
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

simplify47.0ms (0.6%)

Memory
18.8MiB live, 65.2MiB allocated; 3ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
044184
180184
2162184
3344184
4594184
51189184
64937184
Stop Event
1×node limit
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)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 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)))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (*.f64 (*.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a2 a2 (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))

derivations229.0ms (2.7%)

Memory
-4.7MiB live, 226.0MiB allocated; 37ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 166 to 39 computations (76.5% saved)

preprocess44.0ms (0.5%)

Memory
32.4MiB live, 77.1MiB allocated; 7ms collecting garbage
Remove

(abs a2)

(sort a1 a2)

(abs a1)

(abs th)

Compiler

Compiled 520 to 212 computations (59.2% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...