Migdal et al, Equation (64)

Time bar (total: 8.1s)

start0.0ms (0%)

Memory
0.1MiB live, 0.1MiB allocated

analyze1.0ms (0%)

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

Compiled 21 to 14 computations (33.3% saved)

sample1.2s (14.8%)

Memory
-6.3MiB live, 2 304.8MiB allocated
Samples
879.0ms8 256×0valid
Precisions
Click to see histograms. Total time spent on operations: 620.0ms
ival-cos: 218.0ms (35.1% of total)
ival-mult: 212.0ms (34.2% of total)
ival-div: 72.0ms (11.6% of total)
ival-sqrt: 62.0ms (10% of total)
ival-add: 41.0ms (6.6% of total)
ival-true: 7.0ms (1.1% of total)
exact: 6.0ms (1% of total)
ival-assert: 4.0ms (0.6% of total)
Bogosity

explain136.0ms (1.7%)

Memory
27.1MiB live, 264.1MiB allocated
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
56.0ms512×0valid
Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 37.0ms
ival-cos: 13.0ms (35.4% of total)
ival-mult: 12.0ms (32.6% of total)
ival-div: 4.0ms (10.9% of total)
ival-sqrt: 4.0ms (10.9% of total)
ival-add: 2.0ms (5.4% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

preprocess138.0ms (1.7%)

Memory
-14.1MiB live, 66.6MiB allocated
Algorithm
1×egg-herbie
Rules
1 520×times-frac
1 254×distribute-lft-in
1 236×distribute-rgt-in
946×div-sub
714×associate-/r*
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
040120
1130120
2373120
31018120
42414120
54784120
65686120
76500120
86573120
96589120
106760120
116878120
126890120
136890120
146890120
01219
02013
13313
25813
38813
410013
010012
Stop Event
1×iter limit
1×saturated
1×iter limit
1×node limit
Calls
Call 1
Inputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
Outputs
(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
Symmetry

(abs th)

(abs a2)

(abs a1)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

Memory
0.3MiB live, 0.3MiB allocated
Compiler

Compiled 0 to 3 computations (-∞% saved)

prune1.0ms (0%)

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

simplify5.0ms (0.1%)

Memory
6.1MiB live, 6.1MiB allocated
Algorithm
1×egg-herbie
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-diff8192
(+.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)))
Rules
100×lower-*.f32
92×lower-*.f64
60×lower-fma.f64
60×lower-fma.f32
48×*-commutative
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01256
02050
13350
25850
38850
410050
010049
Stop Event
1×iter limit
1×saturated
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 (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))) (*.f64 a1 a1))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 (cos.f64 th)))
(/.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 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 (cos.f64 th)))
(*.f64 a2 a2)
a2

localize36.0ms (0.5%)

Memory
-14.9MiB live, 62.8MiB allocated
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
accuracy0
(cos.f64 th)
accuracy0.20150375976844204
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))
accuracy0.21484375
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
accuracy0.6373825195368841
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
Samples
28.0ms256×0valid
Compiler

Compiled 58 to 14 computations (75.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 19.0ms
ival-mult: 7.0ms (37.5% of total)
ival-cos: 6.0ms (32.1% of total)
ival-div: 2.0ms (10.7% of total)
ival-sqrt: 2.0ms (10.7% of total)
ival-add: 1.0ms (5.4% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

series22.0ms (0.3%)

Memory
2.8MiB live, 41.1MiB allocated
Counts
5 → 108
Calls
Call 1
Inputs
#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())
#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())
#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())
#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())
Outputs
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sqrt 2)) (taylor 0 th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))) (taylor 0 th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2))) (taylor 0 th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2))) (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))) (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (cos th) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (+.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))) (patch (+.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))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) (patch (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)) #<representation binary64>) () ())) ())
Calls

9 calls:

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

simplify239.0ms (3%)

Memory
38.3MiB live, 305.5MiB allocated
Algorithm
1×egg-herbie
Rules
34 694×lower-fma.f64
34 694×lower-fma.f32
6 426×lower-*.f64
6 426×lower-*.f32
4 620×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01111498
13431366
212061262
339001233
084281172
Stop Event
1×iter limit
1×node limit
Counts
108 → 108
Calls
Call 1
Inputs
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(/ (pow a1 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))
(+ (* (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)))
(+ (* (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)))
(/ 1 (sqrt 2))
(+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))
(+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))
(+ (* (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)))
1
(+ 1 (* -1/2 (pow th 2)))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(/ (pow a2 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (cos th) (sqrt 2))
(/ (cos th) (sqrt 2))
(/ (cos th) (sqrt 2))
(/ (cos th) (sqrt 2))
(cos th)
(cos th)
(cos th)
(cos th)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (cos th) (sqrt 2))
(/ (cos th) (sqrt 2))
(/ (cos th) (sqrt 2))
(/ (cos th) (sqrt 2))
(cos th)
(cos th)
(cos th)
(cos th)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
Outputs
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+ (* (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))))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(+ (* (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))))
(*.f64 (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) a1 a1))
(+ (* (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)))
(*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 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)))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th)))
(/ 1 (sqrt 2))
(/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))
(+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))
(fma.f64 (*.f64 (/.f64 th (sqrt.f64 #s(literal 2 binary64))) th) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 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)))
(fma.f64 (fma.f64 (/.f64 th (sqrt.f64 #s(literal 2 binary64))) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) th) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 th th)) a2 a2))
(+ (* (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)))
(*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 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)))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(/ (cos th) (sqrt 2))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))

rewrite144.0ms (1.8%)

Memory
1.4MiB live, 199.3MiB allocated
Rules
6 176×lower-fma.f64
6 176×lower-fma.f32
4 662×lower-*.f32
4 654×lower-*.f64
2 804×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01244
02038
15838
241138
3733138
0843437
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
5 → 327
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
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval68.0ms (0.8%)

Memory
0.8MiB live, 122.3MiB allocated
Compiler

Compiled 12 965 to 1 060 computations (91.8% saved)

prune21.0ms (0.3%)

Memory
-31.4MiB live, 51.7MiB allocated
Pruning

14 alts after pruning (14 fresh and 0 done)

PrunedKeptTotal
New47614490
Fresh000
Picked101
Done000
Total47714491
Accuracy
100.0%
Counts
491 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
99.5%
(/.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
▶99.6%
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
99.5%
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
99.4%
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
99.6%
(*.f64 (fma.f64 (*.f64 a2 (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 (cos.f64 th)) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #s(literal 1/2 binary64))
99.6%
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
99.6%
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (pow.f64 (cos.f64 th) #s(literal -1 binary64))))
▶99.6%
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
99.6%
(*.f64 (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
▶64.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
▶59.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
61.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64))))
61.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
▶99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
Compiler

Compiled 432 to 342 computations (20.8% saved)

simplify116.0ms (1.4%)

Memory
19.6MiB live, 97.1MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
(/.f64 a2 a1)
cost-diff0
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff1728
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (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)) (cos.f64 th))
cost-diff0
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(cos.f64 th)
cost-diff0
(*.f64 (cos.f64 th) a2)
cost-diff0
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
cost-diff0
(sqrt.f64 #s(literal 2 binary64))
cost-diff0
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
cost-diff1344
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
cost-diff0
(fma.f64 a2 a2 (*.f64 a1 a1))
cost-diff0
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
cost-diff0
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
cost-diff0
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
Rules
3 066×lower-*.f32
3 048×lower-*.f64
2 922×associate-/l*
2 624×associate-/l/
2 588×lower-/.f32
Iterations

Useful iterations: 5 (0.0ms)

IterNodesCost
036288
056261
1102261
2183261
3407261
4943261
52285249
63161249
73412249
83514249
93540249
103540249
113984249
124243249
134327249
144404249
154404249
164404249
176674249
187669249
08232249
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
#s(literal 2 binary64)
#s(literal -1/2 binary64)
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(cos.f64 th)
th
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
a2
a1
#s(literal 1 binary64)
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 (cos.f64 th))
(cos.f64 th)
th
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
Outputs
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
#s(literal 2 binary64)
#s(literal -1/2 binary64)
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(cos.f64 th)
th
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
th
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (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 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (*.f64 a1 a1))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.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))) (fma.f64 a2 a2 (*.f64 a1 a1)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
a2
a1
#s(literal 1 binary64)
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (cos.f64 th))
(*.f64 a1 (cos.f64 th))
(*.f64 (cos.f64 th) a1)
(cos.f64 th)
th
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)

localize209.0ms (2.6%)

Memory
-18.8MiB live, 140.9MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.1875
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
accuracy0.21941376953688402
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
accuracy0.4140625
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
accuracy24.507238498617664
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
accuracy0
(sqrt.f64 #s(literal 2 binary64))
accuracy0
(cos.f64 th)
accuracy0.09603500976844201
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
accuracy0.24513627930532603
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
accuracy0.12109375
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
accuracy0.1328125
(*.f64 (cos.f64 th) a2)
accuracy0.2800647228152956
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
accuracy0.453125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy0.1171875
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
accuracy0.4140625
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
accuracy0.453125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy22.54758885224184
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
accuracy0
(*.f64 a1 a1)
accuracy0
(cos.f64 th)
accuracy0.09603500976844201
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
accuracy0.22103500976844204
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
Samples
133.0ms256×0valid
Compiler

Compiled 257 to 34 computations (86.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 62.0ms
ival-mult: 36.0ms (58.4% of total)
ival-div: 7.0ms (11.4% of total)
ival-cos: 7.0ms (11.4% of total)
ival-add: 4.0ms (6.5% of total)
ival-pow: 4.0ms (6.5% of total)
ival-sqrt: 2.0ms (3.2% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series81.0ms (1%)

Memory
25.9MiB live, 61.7MiB allocated
Counts
21 → 480
Calls
Call 1
Inputs
#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())
#s(alt (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (patch (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) #<representation binary64>) () ())
#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())
#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())
#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())
#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (sqrt.f64 #s(literal 2 binary64)) (patch (sqrt.f64 #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())
#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())
#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())
#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())
#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())
Outputs
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (cos th)) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor 0 a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor 0 a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor 0 a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor 0 a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor 0 a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (cos th)) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (cos th)) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor -inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor -inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor -inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor -inf a1) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor -inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor -inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor -inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor -inf a1) (#s(alt (*.f64 a1 a1) (patch (*.f64 a1 a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt a2 (taylor 0 th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (+ a2 (* -1/2 (* a2 (pow th 2)))) (taylor 0 th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2)))))) (taylor 0 th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2)))))) (taylor 0 th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2))) (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))) (taylor 0 th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2)) (taylor 0 th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))) (taylor 0 th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (+ (pow a1 2) (pow a2 2))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt (cos.f64 th) (patch (cos.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2)) (taylor -inf th) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (cos th)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor 0 a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (cos th)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (pow a1 2)) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) (patch (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (cos th)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (patch (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor -inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 a2 a2 (*.f64 a1 a1)) (patch (fma.f64 a2 a2 (*.f64 a1 a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 (cos.f64 th) a2) (patch (*.f64 (cos.f64 th) a2) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (pow a1 2)) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
Calls

9 calls:

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

simplify234.0ms (2.9%)

Memory
14.1MiB live, 162.1MiB allocated
Algorithm
1×egg-herbie
Rules
19 474×lower-fma.f64
19 474×lower-fma.f32
6 330×lower-*.f64
6 330×lower-*.f32
4 140×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
02226236
17505396
228335041
371884889
088094547
Stop Event
1×iter limit
1×node limit
Counts
480 → 479
Calls
Call 1
Inputs
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a2 2) (cos th))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(pow a2 2)
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(/ (pow a2 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(pow a1 2)
(pow a1 2)
(pow a1 2)
(pow a1 2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (pow a2 2) (pow a1 2))
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (cos th))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(pow a1 2)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(pow a1 2)
(pow a1 2)
(pow a1 2)
(pow a1 2)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
1
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (cos th))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(pow a1 2)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(pow a1 2)
(pow a1 2)
(pow a1 2)
(pow a1 2)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
1
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(+ (pow a1 2) (pow a2 2))
(+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))
(+ (* (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)))
(+ (* (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)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(/ (pow a2 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))
a2
(+ a2 (* -1/2 (* a2 (pow th 2))))
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))
1
(+ 1 (* -1/2 (pow th 2)))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))
(+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (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))))
(+ (* (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))))
(/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))
(+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(/ (pow a1 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))
(+ (* (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)))
(+ (* (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)))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(cos th)
(cos th)
(cos th)
(cos th)
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(cos th)
(cos th)
(cos th)
(cos th)
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a1 2) (cos th))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(pow a1 2)
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(/ (pow a1 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
1
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (cos th))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(pow a2 2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (pow a1 2))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (cos th))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(pow a2 2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (pow a1 2))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
Outputs
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (cos th))
(*.f64 (*.f64 (cos.f64 th) a2) a2)
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(pow a2 2)
(*.f64 a2 a2)
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (pow a2 2) (pow a1 2))
(*.f64 (/.f64 (/.f64 a2 a1) a1) a2)
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) a1)
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) a1)
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (cos th))
(*.f64 (*.f64 (cos.f64 th) a1) a1)
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(pow a1 2)
(*.f64 a1 a1)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
1
#s(literal 1 binary64)
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (cos th))
(*.f64 (*.f64 (cos.f64 th) a1) a1)
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(pow a1 2)
(*.f64 a1 a1)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(pow a1 2)
(*.f64 a1 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
1
#s(literal 1 binary64)
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (* (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)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 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)))
(fma.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+ (* (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)))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) th) (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 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)))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
a2
(+ a2 (* -1/2 (* a2 (pow th 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2)
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))
(fma.f64 (*.f64 a2 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) a2)
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 a2 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(+ (* (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)))
(fma.f64 (*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))
(+ (* (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)))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (cos th) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (cos th))
(*.f64 (*.f64 (cos.f64 th) a1) a1)
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(pow a1 2)
(*.f64 a1 a1)
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
1
#s(literal 1 binary64)
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (cos th))
(*.f64 (*.f64 (cos.f64 th) a2) a2)
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(pow a2 2)
(*.f64 a2 a2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (pow a2 2) (pow a1 2))
(*.f64 (/.f64 (/.f64 a2 a1) a1) a2)
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (cos th))
(*.f64 (*.f64 (cos.f64 th) a2) a2)
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (cos.f64 th))
(pow a2 2)
(*.f64 a2 a2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(/ (pow a2 2) (pow a1 2))
(*.f64 (/.f64 (/.f64 a2 a1) a1) a2)
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)

rewrite298.0ms (3.7%)

Memory
-28.3MiB live, 218.1MiB allocated
Rules
5 234×lower-/.f32
5 226×lower-/.f64
3 924×lower-*.f32
3 906×lower-*.f64
3 306×lower-fma.f32
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
036226
056203
1191197
21358197
08138197
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
21 → 1 577
Calls
Call 1
Inputs
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))
(*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (cos.f64 th) a2)
(cos.f64 th)
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a1 a1)
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval385.0ms (4.8%)

Memory
45.6MiB live, 421.5MiB allocated
Compiler

Compiled 53 450 to 3 751 computations (93% saved)

prune137.0ms (1.7%)

Memory
-0.9MiB live, 161.1MiB allocated
Pruning

25 alts after pruning (23 fresh and 2 done)

PrunedKeptTotal
New2 349232 372
Fresh909
Picked325
Done000
Total2 361252 386
Accuracy
100.0%
Counts
2 386 → 25
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓99.6%
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
64.6%
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
99.2%
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 (cos.f64 th) a2) a2)))
64.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
64.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
58.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
53.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)))))
64.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
▶52.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
▶41.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
39.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
99.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
99.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
✓99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
60.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
59.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
14.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
▶60.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
61.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
▶64.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
▶99.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
59.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1)))
99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
Compiler

Compiled 732 to 570 computations (22.1% saved)

simplify196.0ms (2.4%)

Memory
-9.4MiB live, 69.1MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
cost-diff128
(+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1))
cost-diff1152
(/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
cost-diff1984
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
cost-diff0
(/.f64 a2 a1)
cost-diff0
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff1024
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
cost-diff0
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
cost-diff0
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
cost-diff0
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
cost-diff0
(*.f64 a2 a2)
cost-diff0
(fma.f64 a1 a1 (*.f64 a2 a2))
cost-diff0
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
cost-diff0
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
cost-diff0
(fma.f64 a1 a1 (*.f64 a2 a2))
cost-diff0
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
cost-diff0
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
cost-diff0
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
Rules
4 492×lower-*.f32
4 470×lower-*.f64
3 692×lower-/.f32
3 680×lower-/.f64
2 476×lower-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
053475
082452
1148452
2313440
3704440
41540440
53073434
63958434
74358434
84677434
94922434
104998434
115450432
126428432
136870432
147162432
157241432
167250432
177253432
187253432
197253432
08175429
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(cos.f64 th)
th
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 th th)
th
#s(literal -1/2 binary64)
#s(literal 1 binary64)
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
a2
a1
#s(literal 1 binary64)
(*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 th th)
th
#s(literal -1/2 binary64)
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
(/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
a1
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2))
(*.f64 a2 a2)
a2
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(cos.f64 th)
th
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 th th)
th
#s(literal -1/2 binary64)
#s(literal 1 binary64)
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) a2 a1) a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 (fma.f64 (/.f64 a2 a1) a2 a1) a1) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
a2
a1
#s(literal 1 binary64)
(*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1) #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))
(*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))
(*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1)
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 th th)
th
#s(literal -1/2 binary64)
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a1 a2) a2)) (fma.f64 (/.f64 (/.f64 a1 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
(/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 a1 a2) a2)) (fma.f64 (/.f64 (/.f64 a1 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1))
(fma.f64 (/.f64 (/.f64 a1 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
a1
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)
(*.f64 (/.f64 (/.f64 a1 a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2))
(/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2)
(*.f64 a2 a2)
a2
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/.f64 (/.f64 #s(literal 2 binary64) a2) (*.f64 a1 a2))

localize479.0ms (5.9%)

Memory
-203.5MiB live, 151.1MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy5.98807561375588
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
accuracy7.491455528171281
(/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
accuracy9.398209802369449
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)
accuracy22.54758885224184
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
accuracy0.21941376953688402
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
accuracy0.4140625
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
accuracy24.507238498617664
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
accuracy32.672189337970835
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
accuracy0.2800647228152956
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
accuracy0.453125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy2.992523079253592
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
accuracy25.331679943223577
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
accuracy0
(sqrt.f64 #s(literal 1/2 binary64))
accuracy0.015625
(fma.f64 a1 a1 (*.f64 a2 a2))
accuracy0.22332001953688405
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
accuracy22.54758885224184
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
accuracy0
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
accuracy0.015625
(fma.f64 a1 a1 (*.f64 a2 a2))
accuracy0.09765625
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
accuracy0.22332001953688405
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
Samples
444.0ms256×0valid
Compiler

Compiled 346 to 46 computations (86.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 67.0ms
ival-mult: 27.0ms (40.6% of total)
ival-sqrt: 12.0ms (18% of total)
ival-div: 10.0ms (15% of total)
ival-add: 6.0ms (9% of total)
ival-cos: 6.0ms (9% of total)
ival-pow: 4.0ms (6% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series70.0ms (0.9%)

Memory
28.1MiB live, 148.8MiB allocated
Counts
23 → 552
Calls
Call 1
Inputs
#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())
#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())
#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())
#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())
#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())
#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())
#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())
#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())
#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())
#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())
#s(alt (sqrt.f64 #s(literal 1/2 binary64)) (patch (sqrt.f64 #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())
#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())
Outputs
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor 0 a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2)) (taylor 0 a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor 0 a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1) (taylor 0 a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1) (taylor 0 a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1) (taylor 0 a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2)))) (taylor inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2)))) (taylor inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2)))) (taylor inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor -inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor -inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor -inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (taylor -inf a1) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor -inf a1) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a1) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2)))))) (taylor -inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2)))))) (taylor -inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2)))))) (taylor -inf a1) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a1 (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a1) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2))) (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))) (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (taylor inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))) (taylor inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))) (taylor inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))) (taylor inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (pow th 2)) (taylor inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- (/ 1 (pow th 2)) 1/2)) (taylor inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- (/ 1 (pow th 2)) 1/2)) (taylor inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- (/ 1 (pow th 2)) 1/2)) (taylor inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2))))) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (pow th 2)) (taylor -inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- (/ 1 (pow th 2)) 1/2)) (taylor -inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- (/ 1 (pow th 2)) 1/2)) (taylor -inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- (/ 1 (pow th 2)) 1/2)) (taylor -inf th) (#s(alt (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (patch (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a1 2) (taylor 0 a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (+ (pow a1 2) (pow a2 2)) (taylor 0 a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor 0 a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor 0 a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor 0 a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor 0 a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1 (/ (pow a2 2) (pow a1 2))) (taylor 0 a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor 0 a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2)) (taylor 0 a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2)) (taylor 0 a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2)) (taylor 0 a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (pow a1 2)) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))) (taylor inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))) (taylor inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))) (taylor inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) (patch (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (patch (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor -inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 a1 a1 (*.f64 a2 a2)) (patch (fma.f64 a1 a1 (*.f64 a2 a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor -inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor -inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor -inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (pow a2 2) (taylor -inf a2) (#s(alt (*.f64 a2 a2) (patch (*.f64 a2 a2) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) (patch (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (pow a1 2)) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (patch (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ a2 a1) (taylor -inf a2) (#s(alt (/.f64 a2 a1) (patch (/.f64 a2 a1) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) (* a1 (pow a2 2))) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor -inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))) (taylor -inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))) (taylor -inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))) (taylor -inf a2) (#s(alt (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (patch (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* a1 (sqrt 2)) (pow a2 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) (patch (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1) #<representation binary64>) () ())) ())
Calls

9 calls:

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

simplify189.0ms (2.3%)

Memory
12.5MiB live, 239.2MiB allocated
Algorithm
1×egg-herbie
Rules
14 972×lower-fma.f64
14 972×lower-fma.f32
5 656×lower-*.f64
5 656×lower-*.f32
3 506×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01937303
16156499
222656100
365925892
081575503
Stop Event
1×iter limit
1×node limit
Counts
552 → 552
Calls
Call 1
Inputs
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a2 2) (sqrt 1/2))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(pow a2 2)
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (pow a2 2) (pow a1 2))
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow a2 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (sqrt 2) a1)
(/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1)
(/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1)
(/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(pow a1 2)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
1
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2))))
(* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2))))
(* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(pow a1 2)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
1
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2))))))
(* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2))))))
(* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2))))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ a1 (sqrt 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(/ (pow a2 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))
(/ (pow a2 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
1
(+ 1 (* -1/2 (pow th 2)))
(+ 1 (* -1/2 (pow th 2)))
(+ 1 (* -1/2 (pow th 2)))
(/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))
(+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
1
(+ 1 (* -1/2 (pow th 2)))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(* -1/2 (pow th 2))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(cos th)
(cos th)
(cos th)
(cos th)
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(* -1/2 (pow th 2))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(cos th)
(cos th)
(cos th)
(cos th)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a1 2) (sqrt 1/2))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(pow a1 2)
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(+ (pow a1 2) (pow a2 2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(pow a2 2)
(pow a2 2)
(pow a2 2)
(pow a2 2)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
1
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow a1 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2))
(/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2))
(/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(pow a2 2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(pow a2 2)
(pow a2 2)
(pow a2 2)
(pow a2 2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (pow a1 2))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (sqrt 2) a1)
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(pow a2 2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(pow a2 2)
(pow a2 2)
(pow a2 2)
(pow a2 2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (pow a1 2))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (sqrt 2) a1)
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(/ (* a1 (sqrt 2)) (pow a2 2))
Outputs
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(pow a2 2)
(*.f64 a2 a2)
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (pow a1 2))
(*.f64 (/.f64 (/.f64 a2 a1) a1) a2)
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) a1)
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) a1)
(/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))
(/.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) a1) a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1)
(/.f64 (fma.f64 (*.f64 a1 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (/.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))) a1)
(/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1)
(/.f64 (fma.f64 (*.f64 a1 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (/.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))) a1)
(/ (+ (sqrt 2) (/ (* (pow a1 2) (sqrt 2)) (pow a2 2))) a1)
(/.f64 (fma.f64 (*.f64 a1 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (/.f64 a1 a2) (sqrt.f64 #s(literal 2 binary64))) a1)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(pow a1 2)
(*.f64 a1 a1)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
1
#s(literal 1 binary64)
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2))))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2))))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(* a1 (+ (/ (sqrt 2) (pow a1 2)) (/ (sqrt 2) (pow a2 2))))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(pow a1 2)
(*.f64 a1 a1)
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
1
#s(literal 1 binary64)
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2))))))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2))))))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(* -1 (* a1 (+ (* -1 (/ (sqrt 2) (pow a1 2))) (* -1 (/ (sqrt 2) (pow a2 2))))))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ a1 (sqrt 2))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 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)))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 (*.f64 (*.f64 th th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 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)))
(fma.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)))))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(fma.f64 (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 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))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))
(*.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* -1/2 (pow th 2))
(*.f64 (*.f64 th th) #s(literal -1/2 binary64))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))
(*.f64 (*.f64 (*.f64 (*.f64 th th) #s(literal -1/2 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* -1/2 (pow th 2))
(*.f64 (*.f64 th th) #s(literal -1/2 binary64))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(* (pow th 2) (- (/ 1 (pow th 2)) 1/2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(pow a1 2)
(*.f64 a1 a1)
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(+ (pow a1 2) (pow a2 2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
1
#s(literal 1 binary64)
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(+ 1 (/ (pow a2 2) (pow a1 2)))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))
(/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))
(/ (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (pow a2 2))
(/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(pow a2 2)
(*.f64 a2 a2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (pow a1 2))
(*.f64 (/.f64 (/.f64 a2 a1) a1) a2)
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(pow a2 2)
(*.f64 a2 a2)
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))
(fma.f64 a1 a1 (*.f64 a2 a2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(pow a2 2)
(*.f64 a2 a2)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (+ 1 (* -1/2 (pow th 2)))) (sqrt 2))
(*.f64 (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (pow a1 2))
(*.f64 (/.f64 (/.f64 a2 a1) a1) a2)
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ a2 a1)
(/.f64 a2 a1)
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) (* a1 (pow a2 2)))
(/.f64 #s(literal 2 binary64) (*.f64 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))
(fma.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))
(/ (* a1 (sqrt 2)) (pow a2 2))
(*.f64 (/.f64 a1 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))

rewrite223.0ms (2.8%)

Memory
0.5MiB live, 277.4MiB allocated
Rules
5 244×lower-*.f32
5 222×lower-*.f64
4 624×lower-/.f32
4 612×lower-/.f64
3 312×lower-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
053368
082342
1268328
22090328
08521325
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
23 → 573
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(fma.f64 a1 a1 (*.f64 a2 a2))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
(sqrt.f64 #s(literal 1/2 binary64))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)
Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval182.0ms (2.3%)

Memory
5.0MiB live, 308.3MiB allocated
Compiler

Compiled 31 423 to 3 055 computations (90.3% saved)

prune98.0ms (1.2%)

Memory
10.4MiB live, 177.6MiB allocated
Pruning

32 alts after pruning (28 fresh and 4 done)

PrunedKeptTotal
New1 357151 372
Fresh51318
Picked325
Done022
Total1 365321 397
Accuracy
100.0%
Counts
1 397 → 32
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓99.6%
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
64.6%
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
64.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
64.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
▶58.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
64.6%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
52.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (neg.f64 a1)))))
52.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
15.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
58.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
39.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
99.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
✓99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
▶60.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
59.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
21.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
▶64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
14.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
18.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
61.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
64.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
✓64.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
✓99.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
59.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1)))
99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
64.3%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
14.1%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
▶99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
64.3%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
▶14.1%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
Compiler

Compiled 883 to 712 computations (19.4% saved)

simplify122.0ms (1.5%)

Memory
-19.6MiB live, 144.3MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
cost-diff960
(fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
cost-diff1408
(/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
cost-diff1600
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
cost-diff0
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
cost-diff0
(*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2)
cost-diff0
(*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
cost-diff0
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
cost-diff0
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
cost-diff0
#s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
cost-diff0
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
cost-diff0
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1)
cost-diff0
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
cost-diff0
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
cost-diff0
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
cost-diff0
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
cost-diff0
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2))
cost-diff0
(*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))
cost-diff0
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
Rules
8 410×lower-fma.f32
8 404×lower-fma.f64
4 670×lower-*.f32
4 646×lower-*.f64
2 126×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
059469
087451
1154431
2278431
3479425
4707425
5969425
61443419
72761411
84306395
97399395
08468380
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
(*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
a2
(cos.f64 th)
th
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2)
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
#s(literal 1/24 binary64)
(*.f64 th th)
th
#s(literal -1/2 binary64)
#s(literal 1 binary64)
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
(/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(*.f64 a2 a2)
a2
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
a1
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
(*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
a2
(cos.f64 th)
th
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
a1
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(approx (cos th) (fma.f64 (fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))))
(*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #s(approx (cos th) (fma.f64 (fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))))
(*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2)
(*.f64 #s(approx (cos th) (fma.f64 (fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2)
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(fma.f64 (fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(fma.f64 (*.f64 th th) #s(literal 1/24 binary64) #s(literal -1/2 binary64))
#s(literal 1/24 binary64)
(*.f64 th th)
th
#s(literal -1/2 binary64)
#s(literal 1 binary64)
a2
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(*.f64 (fma.f64 (/.f64 a2 a1) a2 a1) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 a2 a2)
a2
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
a1
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/.f64 #s(literal 2 binary64) a1)

localize141.0ms (1.7%)

Memory
-5.6MiB live, 192.1MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.46875
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
accuracy7.115345757079647
(/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
accuracy9.139367547148021
(fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
accuracy22.54758885224184
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
accuracy0.2800647228152956
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
accuracy0.29543303679456867
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
accuracy0.453125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy32.77908059551759
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
accuracy0.1171875
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
accuracy0.2803591277119991
#s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
accuracy0.453125
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy22.54758885224184
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
accuracy0.15234375
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
accuracy0.44140625
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1)
accuracy22.54758885224184
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
accuracy53.40480198722504
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
accuracy0.09765625
(*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))
accuracy0.1171875
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
accuracy0.2803591277119991
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2))
accuracy0.43359375
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
Samples
103.0ms256×0valid
Compiler

Compiled 297 to 50 computations (83.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 69.0ms
ival-mult: 34.0ms (48.9% of total)
ival-div: 10.0ms (14.4% of total)
ival-add: 8.0ms (11.5% of total)
ival-cos: 6.0ms (8.6% of total)
const: 4.0ms (5.8% of total)
ival-pow: 4.0ms (5.8% of total)
ival-sqrt: 3.0ms (4.3% of total)
exact: 1.0ms (1.4% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)

series79.0ms (1%)

Memory
22.8MiB live, 100.6MiB allocated
Counts
23 → 504
Calls
Call 1
Inputs
#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())
#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())
#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())
#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())
#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())
#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())
#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())
#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())
#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())
#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())
#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())
#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())
#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())
#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())
#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())
Outputs
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor 0 a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (sqrt 2)) a1) (taylor 0 a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1) (taylor 0 a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1) (taylor 0 a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1) (taylor 0 a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor 0 a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor 0 a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor 0 a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor 0 a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 2)) (taylor inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))) (taylor inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2)))) (taylor -inf a1) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 1/2)) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow (sqrt 2) 2) a1) (taylor -inf a1) (#s(alt (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor -inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 2)) (taylor -inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))) (taylor -inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))) (taylor -inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2)))))) (taylor -inf a1) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))) (taylor -inf a1) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor -inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor -inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor -inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 2) a1) (taylor -inf a1) (#s(alt (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (patch (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))) (taylor 0 th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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))) (taylor 0 th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt a2 (taylor 0 th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (+ a2 (* -1/2 (* a2 (pow th 2)))) (taylor 0 th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2)))))) (taylor 0 th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2)))))) (taylor 0 th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (pow th 2))) (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2))) (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2))) (taylor 0 th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (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)))) (taylor 0 th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt -1/2 (taylor 0 th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/24 (pow th 2)) 1/2) (taylor 0 th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/24 (pow th 2)) 1/2) (taylor 0 th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (* 1/24 (pow th 2)) 1/2) (taylor 0 th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* 1/24 (pow th 2)) (taylor inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2))))) (taylor inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2))))) (taylor inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2))))) (taylor inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (taylor -inf th) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf th) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf th) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos th) (taylor -inf th) (#s(alt #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (patch #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor -inf th) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* 1/24 (pow th 2)) (taylor -inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (patch (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (* (cos th) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2)))) (taylor 0 a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a1 2) (sqrt 1/2)) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2))) (taylor 0 a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor 0 a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a1 2) (sqrt 2)) (taylor 0 a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (taylor 0 a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* a1 (sqrt 2)) (taylor 0 a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (taylor 0 a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (taylor 0 a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1)) (taylor 0 a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a1 2) (cos th)) (sqrt 2)) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (taylor 0 a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor 0 a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (sqrt 2)) a1) (taylor inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))) (taylor inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) (patch (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) (patch (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (* (cos th) (sqrt 1/2))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) (patch #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (sqrt 1/2)) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2)))) (taylor -inf a2) (#s(alt #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) (patch #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (patch #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (patch (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ a2 (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (patch (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (patch (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (cos th)) (taylor -inf a2) (#s(alt (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (patch (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) #<representation binary64>) () ())) ())
#s(alt (/ (pow a2 2) (sqrt 2)) (taylor -inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) (patch (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (sqrt 2)) a1) (taylor -inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2)))) (taylor -inf a2) (#s(alt (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (patch (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) #<representation binary64>) () ())) ())
#s(alt (/ (* (pow a2 2) (cos th)) (sqrt 2)) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2))))) (taylor -inf a2) (#s(alt #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) (patch #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
#s(alt (* a2 (sqrt 1/2)) (taylor -inf a2) (#s(alt (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) (patch (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) #<representation binary64>) () ())) ())
Calls

9 calls:

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

simplify188.0ms (2.3%)

Memory
6.1MiB live, 237.7MiB allocated
Algorithm
1×egg-herbie
Rules
12 306×lower-fma.f64
12 306×lower-fma.f32
5 644×lower-*.f64
5 644×lower-*.f32
3 196×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01696055
15375443
219345244
347355157
470365097
082854755
Stop Event
1×iter limit
1×node limit
Counts
504 → 503
Calls
Call 1
Inputs
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a2 2) (sqrt 1/2))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a2 2) (sqrt 1/2))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (pow a2 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow a2 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (* (pow a2 2) (sqrt 2)) a1)
(/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1)
(/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1)
(/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1)
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* a1 (sqrt 2))
(* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))
(* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))
(* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* (pow a1 2) (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(* a1 (sqrt 1/2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow (sqrt 2) 2) a1)
(/ (pow a1 2) (sqrt 2))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(* a1 (sqrt 2))
(* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
(* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
(* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(/ (sqrt 2) a1)
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(/ (pow a2 2) (sqrt 2))
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))
a2
(+ a2 (* -1/2 (* a2 (pow th 2))))
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))
1
(+ 1 (* -1/2 (pow th 2)))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
(+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))
-1/2
(- (* 1/24 (pow th 2)) 1/2)
(- (* 1/24 (pow th 2)) 1/2)
(- (* 1/24 (pow th 2)) 1/2)
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(cos th)
(cos th)
(cos th)
(cos th)
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(* 1/24 (pow th 2))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(cos th)
(cos th)
(cos th)
(cos th)
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(* 1/24 (pow th 2))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a1 2) (sqrt 1/2))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(* (pow a1 2) (sqrt 1/2))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (pow a1 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(/ (pow a1 2) (sqrt 2))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(* a1 (sqrt 2))
(+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1))
(+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1))
(+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (sqrt 2)) a1)
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(* (pow a2 2) (sqrt 1/2))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ (pow a2 2) (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ a2 (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(* a2 (cos th))
(/ (pow a2 2) (sqrt 2))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(/ (* (pow a2 2) (sqrt 2)) a1)
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
(* a2 (sqrt 1/2))
Outputs
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (sqrt 2)) a1)
(*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)
(/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1)
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1)
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/ (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))) a1)
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* a1 (sqrt 2))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* a1 (+ (sqrt 2) (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a2 2) (* (cos th) (sqrt 1/2))) (pow a1 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (+ (sqrt 1/2) (/ (* (pow a2 2) (sqrt 1/2)) (pow a1 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(* a1 (sqrt 1/2))
(*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow (sqrt 2) 2) a1)
(/.f64 #s(literal 2 binary64) a1)
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* a1 (sqrt 2))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* -1 (* a1 (+ (* -1 (sqrt 2)) (* -1 (/ (* (pow a2 2) (sqrt 2)) (pow a1 2))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(/ (sqrt 2) a1)
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* -1/2 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(+ (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2)))))))))
(fma.f64 (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (* (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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+ (* (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))))
(fma.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+ (* (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))))
(fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 th th)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (* (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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+ (* (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))))
(fma.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+ (* (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))))
(fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 th th)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+ (* (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)))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (*.f64 (*.f64 (*.f64 (*.f64 a2 a2) th) (/.f64 th (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 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)))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
a2
(+ a2 (* -1/2 (* a2 (pow th 2))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2)
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))
(fma.f64 (*.f64 a2 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) a2)
(+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))
(fma.f64 (pow.f64 th #s(literal 4 binary64)) (*.f64 a2 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow th 2)))
(fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))
(fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (* (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))))
(*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+ (* (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))))
(fma.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 th th) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))))
(+ (* (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))))
(fma.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))) (*.f64 th th)) (*.f64 th th)))
-1/2
#s(literal -1/2 binary64)
(- (* 1/24 (pow th 2)) 1/2)
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(- (* 1/24 (pow th 2)) 1/2)
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(- (* 1/24 (pow th 2)) 1/2)
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* 1/24 (pow th 2))
(*.f64 #s(literal 1/24 binary64) (*.f64 th th))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (cos th) (* (sqrt 1/2) (+ (pow a1 2) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(cos th)
(cos.f64 th)
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* 1/24 (pow th 2))
(*.f64 #s(literal 1/24 binary64) (*.f64 th th))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (pow th 2) (- 1/24 (* 1/2 (/ 1 (pow th 2)))))
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a1 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 a1 a1) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(+ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (* (pow a2 2) (* (cos th) (sqrt 1/2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a1 2) (sqrt 1/2))
(*.f64 (*.f64 a1 (sqrt.f64 #s(literal 1/2 binary64))) a1)
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* (pow a1 2) (sqrt 1/2)) (* (pow a2 2) (sqrt 1/2)))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(/ (pow a1 2) (sqrt 2))
(*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* a1 (sqrt 2))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
(+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(+ (* a1 (sqrt 2)) (/ (* (pow a2 2) (sqrt 2)) a1))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(/ (* (pow a1 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (sqrt 2)) a1)
(*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (* (cos th) (sqrt 1/2)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (+ (* (cos th) (sqrt 1/2)) (/ (* (pow a1 2) (* (cos th) (sqrt 1/2))) (pow a2 2))))
(*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th))
(* (pow a2 2) (sqrt 1/2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(* (pow a2 2) (+ (sqrt 1/2) (/ (* (pow a1 2) (sqrt 1/2)) (pow a2 2))))
(*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ a2 (sqrt 2))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(* a2 (cos th))
(*.f64 (cos.f64 th) a2)
(/ (pow a2 2) (sqrt 2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/ (* (pow a2 2) (sqrt 2)) a1)
(*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(* (pow a2 2) (+ (/ (sqrt 2) a1) (/ (* a1 (sqrt 2)) (pow a2 2))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))
(/ (* (pow a2 2) (cos th)) (sqrt 2))
(*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(* a2 (sqrt 1/2))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)

rewrite190.0ms (2.4%)

Memory
-29.6MiB live, 290.2MiB allocated
Rules
5 000×lower-/.f32
4 994×lower-/.f64
4 530×lower-*.f32
4 506×lower-*.f64
2 866×lower-fma.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
059416
087398
1288376
22117376
08316364
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
23 → 250
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
(*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1))
(*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2)
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
(/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
(fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2)
(fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)
Outputs
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>
#<batchref>

eval98.0ms (1.2%)

Memory
5.8MiB live, 241.6MiB allocated
Compiler

Compiled 14 199 to 1 326 computations (90.7% saved)

prune90.0ms (1.1%)

Memory
3.9MiB live, 179.6MiB allocated
Pruning

35 alts after pruning (27 fresh and 8 done)

PrunedKeptTotal
New8147821
Fresh32023
Picked145
Done044
Total81835853
Accuracy
100.0%
Counts
853 → 35
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓99.6%
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
64.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
58.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
52.7%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (neg.f64 a1)))))
52.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
15.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
58.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
57.8%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
58.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
14.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
39.4%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
58.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1))
99.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
99.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
✓99.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
✓60.0%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
59.9%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
21.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
64.2%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
✓64.3%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
14.1%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
18.5%
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
61.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
64.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
✓64.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
✓99.6%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
59.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1)))
99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
64.3%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
14.1%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
✓99.2%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
64.3%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
✓14.1%
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
Compiler

Compiled 1 425 to 644 computations (54.8% saved)

regimes206.0ms (2.6%)

Memory
-7.3MiB live, 344.2MiB allocated
Counts
60 → 1
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (neg.f64 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.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)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 (cos.f64 th) a2) a2)))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (fma.f64 (*.f64 a2 (cos.f64 th)) (*.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 a1 (cos.f64 th)) (*.f64 a1 (sqrt.f64 #s(literal 2 binary64))))) #s(literal 1/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 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (pow.f64 (cos.f64 th) #s(literal -1 binary64))))
(/.f64 (/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64))) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
Outputs
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes156.0ms (1.9%)

Memory
31.4MiB live, 228.3MiB allocated
Counts
55 → 1
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (neg.f64 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.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)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 (cos.f64 th)) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (*.f64 (*.f64 (cos.f64 th) a2) a2)))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes151.0ms (1.9%)

Memory
-2.7MiB live, 203.4MiB allocated
Counts
42 → 1
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (neg.f64 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (cos.f64 th)) (*.f64 a2 a2)))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes205.0ms (2.5%)

Memory
-4.6MiB live, 193.8MiB allocated
Counts
39 → 2
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* (* a2 a2) (/ (sqrt 2) a1)) (* (sqrt 2) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (/.f64 a2 a1) a2 a1))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (fma.f64 (*.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) th) th #s(literal 1 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a2) a2 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a1 a1) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (*.f64 a2 a2) (/.f64 #s(literal 1 binary64) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a2 (/.f64 a2 a1) a1)) (*.f64 a2 a2))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 a2 a2) (neg.f64 a1)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (+.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 a2 a2)) a1)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
Calls

8 calls:

65.0ms
(*.f64 a1 a1)
48.0ms
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
23.0ms
th
17.0ms
a2
11.0ms
a1
Results
AccuracySegmentsBranch
67.0%2a1
67.4%2a2
64.6%1th
76.5%2(+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
75.7%2(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
75.7%2(cos.f64 th)
67.0%2(*.f64 a1 a1)
64.6%1(*.f64 a2 a2)
Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes10.0ms (0.1%)

Memory
-17.0MiB live, 20.1MiB allocated
Counts
21 → 2
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) #s(approx (* (* a1 (cos th)) (/ a1 (sqrt 2))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
Calls

1 calls:

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

Compiled 19 to 12 computations (36.8% saved)

regimes7.0ms (0.1%)

Memory
19.5MiB live, 19.5MiB allocated
Counts
19 → 2
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 #s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64)) (*.f64 (*.f64 a1 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (*.f64 #s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (*.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
Calls

1 calls:

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

Compiled 19 to 12 computations (36.8% saved)

regimes8.0ms (0.1%)

Memory
-19.3MiB live, 16.5MiB allocated
Counts
14 → 2
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
Calls

1 calls:

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

Compiled 19 to 12 computations (36.8% saved)

regimes40.0ms (0.5%)

Memory
28.2MiB live, 111.8MiB allocated
Counts
13 → 1
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (+ (* (/ a1 (sqrt 2)) a1) (* (/ a2 (sqrt 2)) a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (/ (sqrt 2) a1) (* (/ (sqrt 2) (* a2 a2)) a1)) (* (/ (sqrt 2) (* a2 a2)) (/ (sqrt 2) a1))) (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2))))
(/.f64 #s(approx (* (+ (* a2 a2) (* a1 a1)) (cos th)) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes30.0ms (0.4%)

Memory
-26.0MiB live, 51.1MiB allocated
Counts
4 → 1
Calls
Call 1
Inputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
Outputs
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
Calls

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

regimes11.0ms (0.1%)

Memory
21.2MiB live, 21.2MiB allocated
Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

8 calls:

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

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory
0.7MiB live, 0.7MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-2.7319533581927036e-182
-1.528194294158168e-226
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.5MiB live, 0.5MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-2.7319533581927036e-182
-1.528194294158168e-226
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-2.7319533581927036e-182
-1.528194294158168e-226
Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
0.5MiB live, 0.5MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
-2.7319533581927036e-182
-1.528194294158168e-226
Compiler

Compiled 22 to 18 computations (18.2% saved)

simplify49.0ms (0.6%)

Memory
-39.2MiB live, 52.3MiB allocated
Algorithm
1×egg-herbie
Rules
30×*-commutative-binary64-*.f64
2×1-exp-binary32-exp.f32
2×1-exp-binary64-exp.f64
2×+-commutative-binary64-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
080506
199506
Stop Event
1×saturated
Calls
Call 1
Inputs
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))
Outputs
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)) (*.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (cos.f64 th)))
(*.f64 (*.f64 (cos.f64 th) (fma.f64 a2 a2 (*.f64 a1 a1))) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) (cos.f64 th)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)) (cos.f64 th)))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))))
(if (<=.f64 (+.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))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 a2 (/.f64 (sqrt.f64 #s(literal 2 binary64)) a2)))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(if (<=.f64 (+.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))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1 (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
(if (<=.f64 (+.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))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
(if (<=.f64 (+.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64)))))
(if (<=.f64 (+.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))) #s(literal -1495020541582441/74751027079122046462216955587793573067050655862760405902609490213261724339546970300512875500623813013973275600053770769378323738155015176163371603062328757260320680744718580942157810765768356265984 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* (cos th) a2) (/ a2 (sqrt 2))) (*.f64 #s(approx (+ (* (* th th) -1/2) 1) (*.f64 (*.f64 th th) #s(literal -1/2 binary64))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) #s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2)))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a2) a2)))
#s(approx (* (pow 2 -1/2) (* (+ (* a2 a2) (* a1 a1)) (cos th))) #s(approx (* (+ (* a1 a1) (* a2 a2)) (sqrt 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) a1) a1)))

soundness1.3s (15.8%)

Memory
20.3MiB live, 963.3MiB allocated
Rules
34 694×lower-fma.f64
34 694×lower-fma.f32
19 474×lower-fma.f64
19 474×lower-fma.f32
14 972×lower-fma.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01937303
16156499
222656100
365925892
081575503
036226
056203
1191197
21358197
08138197
01244
02038
15838
241138
3733138
0843437
01111498
13431366
212061262
339001233
084281172
02226236
17505396
228335041
371884889
088094547
Stop Event
1×fuel
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×node limit
1×iter limit
1×iter limit
1×node limit
1×iter limit
1×iter limit
1×node limit
Compiler

Compiled 778 to 397 computations (49% saved)

preprocess101.0ms (1.3%)

Memory
6.3MiB live, 239.6MiB allocated
Remove

(abs a1)

(abs a2)

(abs th)

Compiler

Compiled 1 084 to 582 computations (46.3% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated

Profiling

Loading profile data...