Metrics for Migdal et al, Equation (64)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated; 0ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
100%	99.9%	0%	0.1%	0%	0%	0%	1

Compiler

Compiled 21 to 14 computations (33.3% saved)

sample1.1s (28.9%)

Memory

74.5MiB live, 1 768.6MiB allocated; 319ms collecting garbage

Samples

852.0ms

8 256×

valid

Precisions

Click to see histograms. Total time spent on operations: 485.0ms

ival-cos: 248.0ms (51.2% of total)

ival-mult!: 176.0ms (36.3% of total)

ival-div!: 40.0ms (8.3% of total)

ival-add!: 19.0ms (3.9% of total)

adjust: 2.0ms (0.4% of total)

Bogosity

explain171.0ms (4.3%)

Memory

-4.8MiB live, 189.3MiB allocated; 13ms collecting garbage

FPErrors

Click to see full error table

Example	Example	Subexpression
-	-	`a1`
-	-	`(*.f64 a1 a1)`
-	-	`(sqrt.f64 #s(literal 2 binary64))`
-	-	`th`
-	-	`#s(literal 2 binary64)`
-	-	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
-	-	`(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))`
-	-	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
-	-	`(*.f64 a2 a2)`
-	-	`(cos.f64 th)`
-	-	`(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))`
-	-	`a2`

Confusion

	Predicted +	Predicted -
+	0	0
-	0	256

Precision

0/0

Recall

0/0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	0	0	0
-	0	0	256

Precision?

0/0

Recall?

0/0

Freqs

test

number	freq
0	256

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	0	0	0
-	0	0	1

Precision?

0/0

Recall?

0/0

Samples

77.0ms

512×

valid

Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 25.0ms

ival-cos: 13.0ms (51% of total)

ival-mult!: 9.0ms (35.3% of total)

ival-div!: 2.0ms (7.8% of total)

ival-add!: 1.0ms (3.9% of total)

adjust: 0.0ms (0% of total)

preprocess133.0ms (3.4%)

Memory

-42.6MiB live, 58.9MiB allocated; 78ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	133
1	163	133
2	595	133
3	1542	133
4	3030	133
5	4451	133
6	7243	133

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	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)))

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 38 to 24 computations (36.8% saved)

series19.0ms (0.5%)

Memory

30.8MiB live, 30.8MiB allocated; 0ms collecting garbage

Counts

12 → 34

Calls

Call 1

Inputs
(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(*.f64 a2 a2)
a2

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))

Calls

9 calls:

Time	Variable		Point	Expression
4.0ms	th	@	-inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	a1	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	th	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	a2	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
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) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)

rewrite180.0ms (4.5%)

Memory

-10.9MiB live, 225.5MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	158	1016
0	172	890
1	999	852
0	8444	800

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

46 → 152

Calls

Call 1

Inputs
(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(cos.f64 th)
th
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 a1 a1)
a1
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(*.f64 a2 a2)
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))

Outputs
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th) (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))) (neg.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a1) a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (cos.f64 th) (*.f64 (neg.f64 a2) a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a2) a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (/.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (/.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))) (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)) a1))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)) a2))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 a2) a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (+.f64 (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (neg.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a1) a1))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
a1
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (neg.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (cos.f64 th) (.f64 (neg.f64 a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 a2) a2))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) th) th (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (.f64 (fma.f64 (.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 th th) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (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 (.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)) th) th #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (.f64 (fma.f64 (.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) th) th (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (cos th) (cos.f64 th))

eval20.0ms (0.5%)

Memory: -2.4MiB live, 43.3MiB allocated; 4ms collecting garbage
Compiler: Compiled 4 478 to 596 computations (86.7% saved)

prune8.0ms (0.2%)

Memory

21.5MiB live, 21.5MiB allocated; 0ms collecting garbage

Pruning

10 alts after pruning (10 fresh and 0 done)

	Pruned	Kept	Total
New	159	10	169
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	160	10	170

Accuracy

100.0%

Counts

170 → 10

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.6%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
	99.4%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
▶	99.6%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
▶	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	27.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
▶	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
▶	78.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))

Compiler

Compiled 556 to 346 computations (37.8% saved)

series50.0ms (1.3%)

Memory

-10.2MiB live, 137.1MiB allocated; 11ms collecting garbage

Counts

27 → 122

Calls

Call 1

Inputs
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))
(cos.f64 th)
th
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a1) a1)
(*.f64 (cos.f64 th) a1)
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1)
(.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1)
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
#s(literal 1 binary64)

Outputs
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (* a1 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (/ (* a1 (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* a1 (sqrt 2))) (/ (* a1 (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (pow th 2))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (* -1/2 (/ (* a1 (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* a1 (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* a1 (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))

Calls

9 calls:

Time	Variable		Point	Expression
9.0ms	a2	@	0	((/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (cos th) th (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1)
7.0ms	a1	@	inf	((/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (cos th) th (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1)
5.0ms	th	@	0	((/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (cos th) th (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1)
5.0ms	th	@	inf	((/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (cos th) th (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1)
5.0ms	th	@	-inf	((/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (* a2 a2))) (cos th) th (+ (* a1 a1) (* a2 a2)) a1 (* a2 a2) a2 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1)

rewrite166.0ms (4.2%)

Memory

24.9MiB live, 255.5MiB allocated; 17ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	428	4077
0	468	3663
1	2491	3558
0	8252	3471

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

149 → 474

Calls

Call 1

Inputs
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2)))
(cos.f64 th)
th
(fma.f64 a1 a1 (*.f64 a2 a2))
a1
(*.f64 a2 a2)
a2
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a1) a1)
(*.f64 (cos.f64 th) a1)
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1)
(.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1)
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(/.f64 a2 a1)
#s(literal 1 binary64)
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) a1)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2))) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* a1 (cos th)) (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (* a1 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (* -1 (* a1 (+ (* -1 (/ (cos th) (sqrt 2))) (* -1 (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (/ (* a1 (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* a1 (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* a1 (sqrt 2))) (/ (* a1 (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (* (pow a1 2) (sqrt 2))) (/ (cos th) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (pow th 2))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (* -1/2 (/ (* a1 (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (* a1 (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))) (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a1 (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))) (* 1/24 (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))))) (/ (* a1 (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))) (* 1/24 (/ (+ 1 (/ (pow a2 2) (pow a1 2))) (sqrt 2))))))) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) #s(hole binary64 (/ (* (pow a1 2) (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) #s(hole binary64 (/ (* a1 (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2))))) (sqrt 2))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ 1 (/ (pow a2 2) (pow a1 2)))) (sqrt 2))))

Outputs
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)))) (neg.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (cos.f64 th)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (cos.f64 th)) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (neg.f64 (cos.f64 th))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (cos.f64 th)) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (neg.f64 (cos.f64 th))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (cos.f64 th)) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 (cos.f64 th) a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a1) a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))
(.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 a2 a2) (cos.f64 th)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 a2 a2) (cos.f64 th))))))
(fma.f64 (.f64 (cos.f64 th) a1) a1 (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (.f64 a1 a1) (cos.f64 th) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (.f64 a2 a2) (cos.f64 th) (.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 (cos.f64 th) (.f64 a1 a1) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(fma.f64 (cos.f64 th) (.f64 a2 a2) (.f64 (*.f64 (cos.f64 th) a1) a1))
(fma.f64 a1 (.f64 (cos.f64 th) a1) (.f64 (*.f64 a2 a2) (cos.f64 th)))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th)))) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th)))))
(-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th)))))) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th)))))))
(+.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th)))
(+.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (.f64 (.f64 (cos.f64 th) a1) a1))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (neg.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (neg.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(-.f64 (.f64 a1 a1) (.f64 (neg.f64 a2) a2))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))) (/.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
a1
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
a2
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))) (neg.f64 (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (*.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (neg.f64 a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))) (/.f64 (.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (neg.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (neg.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(-.f64 (.f64 a1 a1) (.f64 (neg.f64 a2) a2))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))) (/.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a1) a1)
(.f64 (.f64 a1 a1) (cos.f64 th))
(.f64 (cos.f64 th) (.f64 a1 a1))
(.f64 a1 (.f64 (cos.f64 th) a1))
(*.f64 (cos.f64 th) a1)
(*.f64 a1 (cos.f64 th))
(.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)))) (neg.f64 (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal -2 binary64))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (cos.f64 th)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (cos.f64 th)) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (neg.f64 (cos.f64 th))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (cos.f64 th)) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (neg.f64 (cos.f64 th))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (cos.f64 th)) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 a2 a2) (cos.f64 th))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (cos.f64 th)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 (cos.f64 th) a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a1) a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (neg.f64 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) #s(literal 3 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) a1) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) #s(literal 2 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a2 a2) (cos.f64 th))) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1)
(.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1))
(.f64 a1 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1))
(.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1))
(.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1)
(.f64 a1 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
(*.f64 (cos.f64 th) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64))) (neg.f64 (cos.f64 th))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64))) (cos.f64 th)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (neg.f64 (cos.f64 th))) (.f64 (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (cos.f64 th)) (.f64 (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64))) (neg.f64 (cos.f64 th))) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64))) (cos.f64 th)) (.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1))))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64)) (neg.f64 (cos.f64 th))) (.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64)) (cos.f64 th)) (.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1)))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64))))))
(/.f64 (.f64 (cos.f64 th) (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))
(/.f64 (.f64 (cos.f64 th) (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1)))))))
(/.f64 (.f64 (cos.f64 th) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 #s(literal 1 binary64) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (cos.f64 th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 th) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a2 a2 (.f64 a1 a1)))) (neg.f64 (neg.f64 (.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64))))))
(/.f64 (fma.f64 (.f64 a1 a1) a1 (.f64 (.f64 a1 a1) (.f64 a2 (/.f64 a2 a1)))) (.f64 (.f64 a1 a1) a1))
(/.f64 (fma.f64 (.f64 a1 a1) a1 (.f64 (.f64 a1 a1) (.f64 (/.f64 a2 a1) a2))) (.f64 (.f64 a1 a1) a1))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (.f64 a1 a1)) (.f64 (.f64 a1 a1) (neg.f64 (.f64 a2 a2)))) (.f64 (.f64 a1 a1) (neg.f64 (.f64 a1 a1))))
(/.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (.f64 (.f64 a1 a1) (.f64 a2 a2))) (.f64 (.f64 a1 a1) (.f64 a1 a1)))
(/.f64 (fma.f64 (.f64 a2 (/.f64 a2 a1)) #s(literal 2 binary64) (.f64 a1 #s(literal 2 binary64))) (*.f64 a1 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (/.f64 a2 a1) a2) #s(literal 2 binary64) (.f64 a1 #s(literal 2 binary64))) (*.f64 a1 #s(literal 2 binary64)))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) #s(literal 2 binary64) (.f64 (neg.f64 (.f64 a1 a1)) #s(literal 2 binary64))) (.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 a2 a2) #s(literal 2 binary64) (.f64 (.f64 a1 a1) #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) a1 (.f64 #s(literal 2 binary64) (.f64 a2 (/.f64 a2 a1)))) (*.f64 #s(literal 2 binary64) a1))
(/.f64 (fma.f64 #s(literal 2 binary64) a1 (.f64 #s(literal 2 binary64) (.f64 (/.f64 a2 a1) a2))) (*.f64 #s(literal 2 binary64) a1))
(/.f64 (fma.f64 #s(literal 2 binary64) (neg.f64 (.f64 a1 a1)) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a2 a2)))) (.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a1 a1))))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 a1 a1) (.f64 #s(literal 2 binary64) (.f64 a2 a2))) (.f64 #s(literal 2 binary64) (*.f64 a1 a1)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (fma.f64 a2 a2 (.f64 a1 a1))) (neg.f64 (.f64 a1 a1)))
(/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 a1 a1))
(fma.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (neg.f64 a1)) (/.f64 a2 (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (neg.f64 (/.f64 a2 a1))) (neg.f64 (neg.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 (neg.f64 (/.f64 a2 a1)) (neg.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))) (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))
(-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))
(-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (/.f64 (.f64 (neg.f64 a1) a1) (.f64 a1 a1)))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 a2) a2) (.f64 a1 a1)))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))) (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))))
(+.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))))
(+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 a2) (neg.f64 a1))
(/.f64 a2 a1)
#s(literal 1 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 a2 a2) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a1) a1) (.f64 (.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) a1) (*.f64 (cos.f64 th) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (/ a2 a1) (/.f64 a2 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (.f64 (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (.f64 (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (*.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (neg.f64 (.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1)))
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx a2 a2)
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (fma.f64 (cos.f64 th) a1 (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) 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 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (.f64 (/.f64 (fma.f64 (/.f64 (cos.f64 th) a2) (/.f64 a1 a2) (/.f64 (cos.f64 th) a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (.f64 (/.f64 (+.f64 (/.f64 (cos.f64 th) (.f64 a2 a2)) (/.f64 (cos.f64 th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1)) (.f64 a2 a2) #s(literal 1 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 th th)) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 a2 a2 (*.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (fma.f64 a2 a2 (*.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 th th)) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (.f64 th th) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a1) a1) (*.f64 a1 a1))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1)))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 th th) (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 #s(literal 1/24 binary64) (.f64 a1 a1))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (.f64 th th) (.f64 a1 a1)))
#s(approx (* (cos th) a1) a1)
#s(approx (* (cos th) a1) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/2 binary64) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (.f64 (.f64 th th) a1) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a2 a2 (.f64 a1 a1)) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 th th)) (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 #s(literal 1/24 binary64) (fma.f64 a2 a2 (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (.f64 a1 a1)) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (.f64 #s(literal -1/720 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal -1/2 binary64))) (.f64 th th) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) a1) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) a1) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) a1) (.f64 #s(literal 1/24 binary64) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (.f64 (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 th th) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (.f64 #s(literal 1/24 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (cos.f64 th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (.f64 a1 a1))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) a1) (/.f64 (.f64 (.f64 (*.f64 (cos.f64 th) a1) a1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1))
#s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))

eval57.0ms (1.4%)

Memory: -29.5MiB live, 117.6MiB allocated; 20ms collecting garbage
Compiler: Compiled 16 864 to 1 868 computations (88.9% saved)

prune35.0ms (0.9%)

Memory

-8.1MiB live, 86.1MiB allocated; 4ms collecting garbage

Pruning

37 alts after pruning (34 fresh and 3 done)

	Pruned	Kept	Total
New	446	32	478
Fresh	3	2	5
Picked	2	3	5
Done	0	0	0
Total	451	37	488

Accuracy

100.0%

Counts

488 → 37

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.5%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
▶	99.6%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
	98.9%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
✓	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	26.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))))
▶	15.7%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
▶	61.9%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
▶	62.4%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	65.4%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	99.6%	(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
	65.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
✓	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
✓	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
	19.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	19.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	18.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	11.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	98.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	48.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	51.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	99.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
	60.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 #s(approx (+ ( (/ a2 a1) (/ a2 a1)) 1) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
	51.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	89.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) a1))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
▶	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
	38.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))

Compiler

Compiled 2 366 to 1 455 computations (38.5% saved)

series35.0ms (0.9%)

Memory

35.2MiB live, 86.0MiB allocated; 3ms collecting garbage

Counts

38 → 118

Calls

Call 1

Inputs
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2))))
(cos.f64 th)
th
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(*.f64 a2 a2)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#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)
#s(literal -1/2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th))
(fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)

Outputs
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (/ (* a2 a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* 1/24 (pow th 2)) 1/2)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* 1/24 (pow th 2))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2))))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow th 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* -1/720 (pow th 6))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (+ (* 1/24 (/ 1 (pow th 2))) (/ 1 (pow th 6))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* -1/720 (pow th 2))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* (pow th 2) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))

Calls

9 calls:

Time	Variable		Point	Expression
10.0ms	th	@	inf	((/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (cos th) th (+ (* a2 a2) (* a1 a1)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (* a2 a2) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a2 a2) (sqrt 2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 1/24 1/2 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1))
5.0ms	a2	@	-inf	((/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (cos th) th (+ (* a2 a2) (* a1 a1)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (* a2 a2) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a2 a2) (sqrt 2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 1/24 1/2 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1))
3.0ms	th	@	-inf	((/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (cos th) th (+ (* a2 a2) (* a1 a1)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (* a2 a2) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a2 a2) (sqrt 2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 1/24 1/2 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1))
3.0ms	a1	@	inf	((/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (cos th) th (+ (* a2 a2) (* a1 a1)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (* a2 a2) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a2 a2) (sqrt 2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 1/24 1/2 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1))
3.0ms	a2	@	inf	((/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) (* (cos th) (+ (* a2 a2) (* a1 a1))) (cos th) th (+ (* a2 a2) (* a1 a1)) (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (+ (* (/ a1 a2) (/ a1 a2)) 1) (/ a1 a2) a1 a2 1 (* a2 a2) (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/ (* a2 a2) (sqrt 2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (* th th) -1/2) 1) (* th th) -1/2 (+ (* a1 a1) (* a2 a2)) (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) (/ (cos th) (sqrt 2)) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 1/24 1/2 (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) (* a1 a1))

rewrite190.0ms (4.8%)

Memory

6.8MiB live, 328.3MiB allocated; 43ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	338	3513
0	387	3157
1	1753	3092
0	8877	3043

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

156 → 431

Calls

Call 1

Inputs
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2))))
(cos.f64 th)
th
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(*.f64 a2 a2)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#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)
#s(literal -1/2 binary64)
(fma.f64 a1 a1 (*.f64 a2 a2))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th))
(fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
(*.f64 a1 a1)
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow a1 2) (cos th)) (* (pow a2 2) (cos th)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (+ 1 (/ (pow a1 2) (pow a2 2)))))
#s(approx (/ a1 a2) #s(hole binary64 (/ a1 a2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (cos th) (/ (* (pow a2 2) (cos th)) (pow a1 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (pow a1 2) (pow a2 2))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a2 2))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (/ (* a2 a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (cos th) (/ (* (pow a1 2) (cos th)) (pow a2 2))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* 1/24 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (+ (pow a1 2) (pow a2 2))))))) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* 1/24 (pow th 2)) 1/2)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* 1/24 (pow th 2))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2))))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow th 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) (+ (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (* (cos th) (+ (pow a1 2) (pow a2 2)))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* (* th th) -1/2) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* -1/720 (pow th 6))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (+ (* 1/24 (/ 1 (pow th 2))) (/ 1 (pow th 6))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* -1/720 (pow th 2))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* (pow th 2) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))

Outputs
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (.f64 (cos.f64 th) #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 th) #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (cos.f64 th) #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2)))
(.f64 #s(approx (+ ( a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2)) (cos.f64 th))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
#s(approx (+ (* a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))
(.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2)
(.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2))
(.f64 (.f64 a2 a2) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a2 a2) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a2 a2) #s(literal 1 binary64)) (.f64 (.f64 a2 a2) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))) (.f64 (.f64 (.f64 a2 a2) #s(literal 1 binary64)) (.f64 (.f64 a2 a2) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1 binary64) (.f64 a2 a2)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1 binary64) (.f64 a2 a2)) (.f64 #s(literal 1 binary64) (.f64 a2 a2)) (-.f64 (.f64 (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (.f64 a2 a2)) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (.f64 a2 a2))) (.f64 (.f64 #s(literal 1 binary64) (.f64 a2 a2)) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (.f64 a2 a2))))))
(fma.f64 (.f64 a2 a2) #s(literal 1 binary64) (.f64 (.f64 a2 a2) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))
(fma.f64 #s(literal 1 binary64) (.f64 a2 a2) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (*.f64 a2 a2)))
(+.f64 (.f64 (.f64 a2 a2) #s(literal 1 binary64)) (.f64 (.f64 a2 a2) (/.f64 (.f64 a1 a1) (.f64 a2 a2))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 a2 a2)) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (.f64 a2 a2)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (.f64 a2 a2)))) (neg.f64 (neg.f64 (.f64 a2 a2))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2)))))))
(/.f64 (fma.f64 (.f64 a1 (/.f64 a1 a2)) #s(literal 2 binary64) (.f64 a2 #s(literal 2 binary64))) (*.f64 a2 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (/.f64 a1 a2) a1) #s(literal 2 binary64) (.f64 a2 #s(literal 2 binary64))) (*.f64 a2 #s(literal 2 binary64)))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) #s(literal 2 binary64) (.f64 (neg.f64 (.f64 a2 a2)) #s(literal 2 binary64))) (.f64 (neg.f64 (*.f64 a2 a2)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 a1 a1) #s(literal 2 binary64) (.f64 (.f64 a2 a2) #s(literal 2 binary64))) (.f64 (*.f64 a2 a2) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) a2 (.f64 #s(literal 2 binary64) (.f64 a1 (/.f64 a1 a2)))) (*.f64 #s(literal 2 binary64) a2))
(/.f64 (fma.f64 #s(literal 2 binary64) a2 (.f64 #s(literal 2 binary64) (.f64 (/.f64 a1 a2) a1))) (*.f64 #s(literal 2 binary64) a2))
(/.f64 (fma.f64 #s(literal 2 binary64) (neg.f64 (.f64 a2 a2)) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a1 a1)))) (.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a2 a2))))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 a2 a2) (.f64 #s(literal 2 binary64) (.f64 a1 a1))) (.f64 #s(literal 2 binary64) (*.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 a1 (/.f64 a1 a2)) (.f64 a2 a2) (.f64 a2 (.f64 a2 a2))) (.f64 a2 (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (/.f64 a1 a2) a1) (.f64 a2 a2) (.f64 a2 (.f64 a2 a2))) (.f64 a2 (.f64 a2 a2)))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (.f64 a2 a2) (.f64 (neg.f64 (.f64 a2 a2)) (.f64 a2 a2))) (.f64 (neg.f64 (.f64 a2 a2)) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 a1 a1) (.f64 a2 a2) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (.f64 (.f64 a2 a2) (.f64 a2 a2)))
(/.f64 (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (*.f64 a2 a2)) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (.f64 a2 a2))) (neg.f64 (.f64 a2 a2)))
(/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 a2 a2))
(fma.f64 (/.f64 (neg.f64 a1) (fabs.f64 a2)) (/.f64 (neg.f64 a1) (fabs.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a1) a2) (/.f64 (neg.f64 a1) a2) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a1) (neg.f64 a2)) (/.f64 (fabs.f64 a1) (neg.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a1) a2) (/.f64 (fabs.f64 a1) a2) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 (neg.f64 a2)) (/.f64 a1 (neg.f64 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 (fabs.f64 a2)) (/.f64 a1 (fabs.f64 a2)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (neg.f64 (/.f64 a1 a2))) (neg.f64 (neg.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a1 a2))) (neg.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a1 a2))) (fabs.f64 (fabs.f64 (/.f64 a1 a2))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 a1 a2) #s(literal 1 binary64))
(fma.f64 (neg.f64 (/.f64 a1 a2)) (neg.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a1 a2)) (fabs.f64 (/.f64 a1 a2)) #s(literal 1 binary64))
(fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))) (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))
(-.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) (/.f64 (.f64 (neg.f64 a2) a2) (.f64 a2 a2)))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 a1) a1) (.f64 a2 a2)))
(+.f64 (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))))))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))) (/.f64 (pow.f64 (/.f64 a1 a2) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a1 a2) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))))))
(+.f64 (/.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a2)))
(/.f64 (neg.f64 a1) (neg.f64 a2))
(/.f64 a1 a2)
a1
a2
#s(literal 1 binary64)
(*.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)))
(*.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)))
(*.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)))
(*.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)))
(*.f64 (neg.f64 a2) (neg.f64 a2))
(*.f64 (fabs.f64 a2) (fabs.f64 a2))
(*.f64 a2 a2)
(pow.f64 (exp.f64 (log.f64 a2)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a2) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a2) #s(literal 2 binary64))
(pow.f64 (*.f64 a2 a2) #s(literal 1 binary64))
(pow.f64 a2 #s(literal 2 binary64))
(fabs.f64 (*.f64 a2 a2))
(exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 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)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 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 (.f64 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 (.f64 (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (.f64 (.f64 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 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (-.f64 (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))))
(/.f64 (neg.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (.f64 (-.f64 (.f64 a2 a2) (*.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (.f64 (-.f64 (.f64 a2 a2) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (.f64 (-.f64 (.f64 a1 a1) (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (.f64 (-.f64 (.f64 a1 a1) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a1 a1) (*.f64 a2 a2))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (.f64 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 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (.f64 (.f64 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 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (/.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 a1 a1)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(/.f64 (neg.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (.f64 th th)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 th th)) (.f64 #s(literal 1/2 binary64) (.f64 th th)) (.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 th th))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))))) (neg.f64 (-.f64 #s(literal 1 binary64) (.f64 (*.f64 th th) #s(literal -1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) #s(literal 1 binary64))) (neg.f64 (-.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/8 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64)))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/8 binary64) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (*.f64 th th) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) #s(literal 1 binary64)) (-.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/8 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64))))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/8 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.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))
(fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))
(fma.f64 th (*.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (/.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (*.f64 th th) #s(literal -1/2 binary64)))))
(-.f64 (/.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (-.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (*.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 th th)))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/8 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64)))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/8 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (.f64 (.f64 th th) #s(literal -1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))))))
(+.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (exp.f64 (log.f64 th)) (exp.f64 (log.f64 th)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (exp.f64 (log.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 th) #s(literal 2 binary64))))
#s(literal -1/2 binary64)
(/.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (pow.f64 (.f64 (neg.f64 a2) a2) #s(literal 3 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (fma.f64 (.f64 (neg.f64 a2) a2) (.f64 (neg.f64 a2) a2) (.f64 (.f64 a1 a1) (*.f64 (neg.f64 a2) a2)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (pow.f64 (.f64 (neg.f64 a1) a1) #s(literal 3 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (fma.f64 (.f64 (neg.f64 a1) a1) (.f64 (neg.f64 a1) a1) (.f64 (.f64 a2 a2) (*.f64 (neg.f64 a1) a1)))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (neg.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (neg.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (neg.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(-.f64 (.f64 a1 a1) (.f64 (neg.f64 a2) a2))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))) (/.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))) (/.f64 (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
(.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (.f64 (.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (-.f64 (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))))))
(/.f64 (neg.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))))) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1))) #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2))) #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 a1 a1) (.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
(+.f64 (.f64 (.f64 a1 a1) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(/.f64 (neg.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (neg.f64 (.f64 th th)) (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 (neg.f64 (.f64 th th)) (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 th th)) (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 th th)) (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th)))))
(fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))
(fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))
(fma.f64 (.f64 th th) (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))) (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 th th)) (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))) (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))))
(+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 th th) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/8 binary64) (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))
(.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th)
(.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th))
(.f64 (.f64 th th) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal 1/13824 binary64) (pow.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) #s(literal 1/24 binary64)) (-.f64 (.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th)) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th))) (.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (*.f64 th th))))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal 1/13824 binary64) (pow.f64 (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) #s(literal 1/24 binary64)) (-.f64 (.f64 (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64)))) (.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) (.f64 (*.f64 th th) #s(literal -1/720 binary64)))))))
(fma.f64 (.f64 th th) #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (*.f64 th th)))
(fma.f64 (.f64 th th) #s(literal 1/24 binary64) (.f64 (.f64 th th) (.f64 (*.f64 th th) #s(literal -1/720 binary64))))
(fma.f64 #s(literal 1/24 binary64) (.f64 th th) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (*.f64 th th)))
(fma.f64 #s(literal 1/24 binary64) (.f64 th th) (.f64 (.f64 th th) (.f64 (*.f64 th th) #s(literal -1/720 binary64))))
(+.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th)))
(+.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64))))
(/.f64 (-.f64 #s(literal 1/13824 binary64) (pow.f64 (.f64 #s(literal 1/720 binary64) (.f64 th th)) #s(literal 3 binary64))) (+.f64 #s(literal 1/576 binary64) (fma.f64 (.f64 #s(literal 1/720 binary64) (.f64 th th)) (.f64 #s(literal 1/720 binary64) (.f64 th th)) (.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (*.f64 th th))))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) #s(literal 1/576 binary64))) (neg.f64 (-.f64 (.f64 (*.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))))) (neg.f64 (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 th th) #s(literal -1/720 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/373248000 binary64) #s(literal 1/13824 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/13824 binary64) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/373248000 binary64)))) (neg.f64 (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) #s(literal 1/576 binary64)) (-.f64 (.f64 (*.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))
(/.f64 (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)))) (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 th th) #s(literal -1/720 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/373248000 binary64) #s(literal 1/13824 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))))
(/.f64 (+.f64 #s(literal 1/13824 binary64) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/373248000 binary64))) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64))))))
(fma.f64 (*.f64 #s(literal -1/720 binary64) th) th #s(literal 1/24 binary64))
(fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
(fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))
(-.f64 (/.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (-.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))) (/.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (*.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))
(-.f64 (/.f64 #s(literal 1/576 binary64) (-.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))) (/.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 th th) #s(literal -1/720 binary64)))))
(-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 th th)))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/373248000 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))) (/.f64 #s(literal 1/13824 binary64) (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))))
(+.f64 (/.f64 #s(literal 1/13824 binary64) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))))) (/.f64 (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/373248000 binary64)) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))))))
(+.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))
(+.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))
#s(literal -1/720 binary64)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(.f64 #s(approx (+ ( a1 a1) (* 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))) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a1 a1)))
(/.f64 (neg.f64 (.f64 (cos.f64 th) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a1 a1)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 a2 a2) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx (/ a1 a2) (/.f64 a1 a2))
#s(approx a1 a1)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a2 a2))
#s(approx (+ (* a1 a1) (* a2 a2)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 a1 a1) (cos.f64 th)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (*.f64 a1 a1))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1))
#s(approx (+ (* a1 a1) (* a2 a2)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (.f64 a1 a1)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* (/ a1 a2) (/ a1 a2)) 1) (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)))
#s(approx a2 a2)
#s(approx (* a2 a2) (*.f64 a2 a2))
#s(approx (/ (* a2 a2) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))
#s(approx (* (+ (* (/ a1 a2) (/ a1 a2)) 1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* a1 a1) (* a2 a2)) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) a2) a2))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (fma.f64 a1 a1 (*.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal 1/24 binary64))) (.f64 th th) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (/.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (.f64 (/.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* th th) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* th th) -1/2) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (fma.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 th th) #s(literal 1/24 binary64)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* -1/720 (* th th)) 1/24) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/2 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))
#s(approx (cos th) (cos.f64 th))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))
#s(approx (+ (* (* th th) -1/2) 1) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/720 binary64))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) (-.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 th th) (.f64 th th))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) (-.f64 (-.f64 (+.f64 (pow.f64 th #s(literal -6 binary64)) (/.f64 #s(literal 1/24 binary64) (.f64 th th))) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 th th) (.f64 th th))))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (.f64 (.f64 (.f64 th th) (.f64 th th)) #s(literal -1/720 binary64)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (.f64 (.f64 (.f64 th th) (.f64 th th)) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 th th) (.f64 th th)))) (.f64 (.f64 th th) (.f64 th th))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 (.f64 th th) (.f64 th th)) #s(literal -1/720 binary64)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 (.f64 th th) (.f64 th th)) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/720 binary64))))
#s(approx (+ (* -1/720 (* th th)) 1/24) (.f64 (.f64 th th) #s(literal -1/720 binary64)))
#s(approx (+ (* -1/720 (* th th)) 1/24) (.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/720 binary64)) (*.f64 th th)))
#s(approx (* (/ (cos th) (sqrt 2)) (+ (* a2 a2) (* a1 a1))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))

eval67.0ms (1.7%)

Memory: -41.1MiB live, 155.7MiB allocated; 20ms collecting garbage
Compiler: Compiled 20 459 to 2 402 computations (88.3% saved)

prune40.0ms (1%)

Memory

-3.7MiB live, 102.4MiB allocated; 7ms collecting garbage

Pruning

44 alts after pruning (40 fresh and 4 done)

	Pruned	Kept	Total
New	533	15	548
Fresh	4	25	29
Picked	3	2	5
Done	1	2	3
Total	541	44	585

Accuracy

100.0%

Counts

585 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.5%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
	2.3%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
	98.9%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	62.0%	(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	65.4%	(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
	65.4%	(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	15.7%	(.f64 (/.f64 (cos.f64 th) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
✓	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	26.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))))
✓	15.7%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
	62.4%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	62.4%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	61.9%	(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	65.4%	(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	17.8%	(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	12.9%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
▶	99.6%	(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
	65.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
▶	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
✓	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
▶	19.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	19.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	18.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	98.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	48.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	51.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	60.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 #s(approx (+ ( (/ a2 a1) (/ a2 a1)) 1) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
	51.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	89.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) a1))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
✓	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
	63.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
▶	38.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
▶	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))

Compiler

Compiled 2 765 to 1 724 computations (37.6% saved)

series34.0ms (0.9%)

Memory

-5.7MiB live, 88.8MiB allocated; 4ms collecting garbage

Counts

38 → 109

Calls

Call 1

Inputs
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(cos.f64 th)
th
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #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)
#s(literal 1 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1)
(.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1)
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th))
(fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(*.f64 th th)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a2) a2)
(*.f64 (cos.f64 th) a2)

Outputs
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (* (pow a1 2) (sqrt 2))) (/ 1 (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (pow th 2))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* 1/24 (pow th 2)) 1/2)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* 1/24 (pow th 2))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2))))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* -1/720 (pow th 6))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (+ (* 1/24 (/ 1 (pow th 2))) (/ 1 (pow th 6))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* -1/720 (pow th 2))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* (pow th 2) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))

Calls

9 calls:

Time	Variable		Point	Expression
5.0ms	a2	@	inf	((* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (cos th) th (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) a2 (* a1 a1) a1 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 (* th th) 1/24 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2))
4.0ms	a2	@	-inf	((* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (cos th) th (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) a2 (* a1 a1) a1 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 (* th th) 1/24 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2))
3.0ms	a2	@	0	((* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (cos th) th (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) a2 (* a1 a1) a1 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 (* th th) 1/24 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2))
3.0ms	th	@	-inf	((* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (cos th) th (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) a2 (* a1 a1) a1 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 (* th th) 1/24 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2))
3.0ms	a1	@	-inf	((* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) (cos th) th (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (+ (* a2 a2) (* a1 a1)) a2 (* a1 a1) a1 (sqrt 2) 2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) 1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a1) a1) (sqrt 2)) (* (* (cos th) a1) a1) (* (cos th) a1) (cos th) (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (+ (* -1/720 (* th th)) 1/24) -1/720 (* th th) 1/24 1/2 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (* (* (cos th) a2) a2) (sqrt 2)) (* (* (cos th) a2) a2) (* (cos th) a2))

rewrite207.0ms (5.2%)

Memory

30.9MiB live, 314.8MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	387	3149
0	436	2859
1	2156	2806
0	9212	2745

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

147 → 444

Calls

Call 1

Inputs
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(cos.f64 th)
th
(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 a2 a2 (*.f64 a1 a1))
a2
(*.f64 a1 a1)
a1
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
(.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #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)
#s(literal 1 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1)
(.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1)
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (*.f64 th th))
(fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(*.f64 th th)
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a2) a2)
(*.f64 (cos.f64 th) a2)
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (/ (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (pow a2 2) (pow a1 2))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (pow a1 2))))
#s(approx (/ a2 a1) #s(hole binary64 (/ a2 a1)))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (* (pow a1 2) (cos th))))
#s(approx (* (cos th) a1) #s(hole binary64 (* a1 (cos th))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 1))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (+ 1 (/ (pow a2 2) (pow a1 2)))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (* (pow a1 2) (sqrt 2))) (/ 1 (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (pow a1 2)) (/ 1 (pow a2 2))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* 1/24 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow th 2) (+ (pow a1 2) (pow a2 2))) (sqrt 2))) (* 1/24 (/ (+ (pow a1 2) (pow a2 2)) (sqrt 2))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (pow th 2))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* 1/24 (pow th 2)) 1/2)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* 1/24 (pow th 2))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2))))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* -1/2 (* (pow a2 2) (pow th 2))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* 1/24 (* (pow a2 2) (pow th 2))))) (pow a2 2))))
#s(approx (* (* (cos th) a2) a2) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a2 2)) (* (pow th 2) (+ (* -1/720 (* (pow a2 2) (pow th 2))) (* 1/24 (pow a2 2)))))) (pow a2 2))))
#s(approx (* (cos th) a2) #s(hole binary64 a2))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* -1/2 (* a2 (pow th 2))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* 1/24 (* a2 (pow th 2))))))))
#s(approx (* (cos th) a2) #s(hole binary64 (+ a2 (* (pow th 2) (+ (* -1/2 a2) (* (pow th 2) (+ (* -1/720 (* a2 (pow th 2))) (* 1/24 a2))))))))
#s(approx (* (cos th) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2))) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* -1/720 (pow th 6))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(hole binary64 (* (pow th 6) (- (+ (* 1/24 (/ 1 (pow th 2))) (/ 1 (pow th 6))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) (+ 1/720 (/ 1/2 (pow th 4)))))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* -1/720 (pow th 4))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) #s(hole binary64 (* (pow th 4) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* -1/720 (pow th 2))))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(hole binary64 (* (pow th 2) (- (* 1/24 (/ 1 (pow th 2))) 1/720))))

Outputs
(.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2)))) #s(literal -2 binary64))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (neg.f64 (cos.f64 th)) (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (.f64 (cos.f64 th) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 (cos.f64 th) a2) a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a2) a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 (cos.f64 th) a1) a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a1) a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (cos.f64 th) a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a2) a2))) #s(literal 2 binary64))
(/.f64 (.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (*.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2) (.f64 (*.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a2 a2)))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 th)))
(cos.f64 (neg.f64 th))
(cos.f64 th)
(+.f64 (.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
th
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (+.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))) (neg.f64 (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) #s(literal -2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a2 a2)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (*.f64 a2 a2))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2 (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (.f64 (neg.f64 a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))) (/.f64 (.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (+.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a1 a1) (.f64 a2 a2)) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(+.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1)))) (neg.f64 (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2)))) (neg.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)))) (neg.f64 (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)))) (neg.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2))))))
(/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a2 a2))) (-.f64 (.f64 a1 a1) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 a2 a2) (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1))) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (*.f64 a1 a1)))))
(/.f64 (fma.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2))) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (*.f64 a2 a2)))))
(fma.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (fabs.f64 a2)) (neg.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)) (*.f64 a2 a2))
(fma.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (fabs.f64 (fabs.f64 a2)) (fabs.f64 (fabs.f64 a2)) (*.f64 a1 a1))
(fma.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)) (*.f64 a2 a2))
(fma.f64 (exp.f64 (log.f64 a2)) (exp.f64 (log.f64 a2)) (*.f64 a1 a1))
(fma.f64 (neg.f64 a2) (neg.f64 a2) (*.f64 a1 a1))
(fma.f64 (neg.f64 a1) (neg.f64 a1) (*.f64 a2 a2))
(fma.f64 (fabs.f64 a2) (fabs.f64 a2) (*.f64 a1 a1))
(fma.f64 (fabs.f64 a1) (fabs.f64 a1) (*.f64 a2 a2))
(fma.f64 a1 a1 (*.f64 a2 a2))
(fma.f64 a2 a2 (*.f64 a1 a1))
(-.f64 (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))))
(-.f64 (/.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (-.f64 (.f64 a1 a1) (.f64 a2 a2))))
(-.f64 (.f64 a2 a2) (.f64 (neg.f64 a1) a1))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))) (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 a2 a2) (.f64 a2 a2) (-.f64 (.f64 (.f64 a1 a1) (.f64 a1 a1)) (.f64 (.f64 a2 a2) (.f64 a1 a1))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 a1 a1) a1) (.f64 (.f64 a1 a1) a1)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))) (/.f64 (.f64 (.f64 (.f64 a2 a2) a2) (.f64 (.f64 a2 a2) a2)) (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a2 a2))))))
(+.f64 (.f64 a1 a1) (.f64 a2 a2))
(+.f64 (.f64 a2 a2) (.f64 a1 a1))
a2
(*.f64 (neg.f64 (neg.f64 a1)) (neg.f64 (neg.f64 a1)))
(*.f64 (neg.f64 (fabs.f64 a1)) (neg.f64 (fabs.f64 a1)))
(*.f64 (fabs.f64 (fabs.f64 a1)) (fabs.f64 (fabs.f64 a1)))
(*.f64 (exp.f64 (log.f64 a1)) (exp.f64 (log.f64 a1)))
(*.f64 (neg.f64 a1) (neg.f64 a1))
(*.f64 (fabs.f64 a1) (fabs.f64 a1))
(*.f64 a1 a1)
(pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))
(pow.f64 (neg.f64 a1) #s(literal 2 binary64))
(pow.f64 (fabs.f64 a1) #s(literal 2 binary64))
(pow.f64 (*.f64 a1 a1) #s(literal 1 binary64))
(pow.f64 a1 #s(literal 2 binary64))
(fabs.f64 (*.f64 a1 a1))
(exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))
a1
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)
(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (*.f64 a2 a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
(.f64 (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1)
(.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
(.f64 (.f64 a1 a1) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (-.f64 (.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1))) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))))))
(/.f64 (neg.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 a1)))
(fma.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 #s(literal 1 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 (.f64 (.f64 a1 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a1 a1)))
(+.f64 (.f64 (.f64 a1 a1) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 a1 a1) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)))) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))) (neg.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal -1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 a2 a2)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal 1 binary64) (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a2 a2)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (fma.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (.f64 a2 a2) (*.f64 a1 a1)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1 binary64))) (.f64 (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1 binary64))) (.f64 (neg.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1 binary64))) (.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64))) (.f64 (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64))) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(fma.f64 (/.f64 (neg.f64 a2) (*.f64 a1 a1)) (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (neg.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (neg.f64 a2) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a2) (*.f64 a1 a1)) (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 (fabs.f64 a2) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fabs.f64 a2) (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (*.f64 a1 a1)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(fma.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (/.f64 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (/.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))))
(+.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1)))))))
(/.f64 (neg.f64 (neg.f64 (fma.f64 a1 a1 (.f64 a2 a2)))) (neg.f64 (neg.f64 (.f64 a1 a1))))
(/.f64 (fma.f64 (.f64 a2 (/.f64 a2 a1)) #s(literal 2 binary64) (.f64 a1 #s(literal 2 binary64))) (*.f64 a1 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (/.f64 a2 a1) a2) #s(literal 2 binary64) (.f64 a1 #s(literal 2 binary64))) (*.f64 a1 #s(literal 2 binary64)))
(/.f64 (fma.f64 (neg.f64 (.f64 a2 a2)) #s(literal 2 binary64) (.f64 (neg.f64 (.f64 a1 a1)) #s(literal 2 binary64))) (.f64 (neg.f64 (*.f64 a1 a1)) #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 a2 a2) #s(literal 2 binary64) (.f64 (.f64 a1 a1) #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) a1 (.f64 #s(literal 2 binary64) (.f64 a2 (/.f64 a2 a1)))) (*.f64 #s(literal 2 binary64) a1))
(/.f64 (fma.f64 #s(literal 2 binary64) a1 (.f64 #s(literal 2 binary64) (.f64 (/.f64 a2 a1) a2))) (*.f64 #s(literal 2 binary64) a1))
(/.f64 (fma.f64 #s(literal 2 binary64) (neg.f64 (.f64 a1 a1)) (.f64 #s(literal 2 binary64) (neg.f64 (.f64 a2 a2)))) (.f64 #s(literal 2 binary64) (neg.f64 (*.f64 a1 a1))))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 a1 a1) (.f64 #s(literal 2 binary64) (.f64 a2 a2))) (.f64 #s(literal 2 binary64) (*.f64 a1 a1)))
(/.f64 (fma.f64 (.f64 a1 a1) a1 (.f64 (.f64 a1 a1) (.f64 a2 (/.f64 a2 a1)))) (.f64 (.f64 a1 a1) a1))
(/.f64 (fma.f64 (.f64 a1 a1) a1 (.f64 (.f64 a1 a1) (.f64 (/.f64 a2 a1) a2))) (.f64 (.f64 a1 a1) a1))
(/.f64 (fma.f64 (.f64 a1 a1) (neg.f64 (.f64 a1 a1)) (.f64 (.f64 a1 a1) (neg.f64 (.f64 a2 a2)))) (.f64 (.f64 a1 a1) (neg.f64 (.f64 a1 a1))))
(/.f64 (fma.f64 (.f64 a1 a1) (.f64 a1 a1) (.f64 (.f64 a1 a1) (.f64 a2 a2))) (.f64 (.f64 a1 a1) (.f64 a1 a1)))
(/.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) #s(literal 1 binary64)) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1))))
(/.f64 (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (*.f64 a1 a1)) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (*.f64 a1 a1))))))
(/.f64 (neg.f64 (fma.f64 a1 a1 (.f64 a2 a2))) (neg.f64 (.f64 a1 a1)))
(/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (.f64 a1 a1))
(fma.f64 (/.f64 (neg.f64 a2) (fabs.f64 a1)) (/.f64 (neg.f64 a2) (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (neg.f64 a2) a1) (/.f64 (neg.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) (neg.f64 a1)) (/.f64 (fabs.f64 a2) (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 (fabs.f64 a2) a1) (/.f64 (fabs.f64 a2) a1) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (neg.f64 a1)) (/.f64 a2 (neg.f64 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 (fabs.f64 a1)) (/.f64 a2 (fabs.f64 a1)) #s(literal 1 binary64))
(fma.f64 (neg.f64 (neg.f64 (/.f64 a2 a1))) (neg.f64 (neg.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 a2 a1))) (neg.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 a2 a1))) (fabs.f64 (fabs.f64 (/.f64 a2 a1))) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 a2 a1) #s(literal 1 binary64))
(fma.f64 (neg.f64 (/.f64 a2 a1)) (neg.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (fabs.f64 (/.f64 a2 a1)) (fabs.f64 (/.f64 a2 a1)) #s(literal 1 binary64))
(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))) (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))
(-.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) (/.f64 (.f64 (neg.f64 a1) a1) (.f64 a1 a1)))
(+.f64 (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))))))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))) (/.f64 (pow.f64 (/.f64 a2 a1) #s(literal 6 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 4 binary64)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))))))
(+.f64 (/.f64 (.f64 a2 a2) (.f64 a1 a1)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))
(/.f64 (neg.f64 (neg.f64 a2)) (neg.f64 (neg.f64 a1)))
(/.f64 (neg.f64 a2) (neg.f64 a1))
(/.f64 a2 a1)
#s(literal 1 binary64)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1)
(.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1))
(.f64 a1 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1))
(.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1)
(.f64 a1 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))))
#s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th)))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th)))))
(fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))
(fma.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))
(fma.f64 (.f64 th th) (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))) (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 th th)) (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))))))
(+.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))) (/.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))))))
(+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 th th) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/8 binary64) (+.f64 (pow.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))))))
(-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64))
(.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th)
(.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 th th))
(.f64 (.f64 th th) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal 1/13824 binary64) (pow.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) #s(literal 1/24 binary64)) (-.f64 (.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th)) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th))) (.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (*.f64 th th))))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal 1/13824 binary64) (pow.f64 (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) #s(literal 1/24 binary64)) (-.f64 (.f64 (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64)))) (.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) (.f64 (*.f64 th th) #s(literal -1/720 binary64)))))))
(fma.f64 (.f64 th th) #s(literal 1/24 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (*.f64 th th)))
(fma.f64 (.f64 th th) #s(literal 1/24 binary64) (.f64 (.f64 th th) (.f64 (*.f64 th th) #s(literal -1/720 binary64))))
(fma.f64 #s(literal 1/24 binary64) (.f64 th th) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (*.f64 th th)))
(fma.f64 #s(literal 1/24 binary64) (.f64 th th) (.f64 (.f64 th th) (.f64 (*.f64 th th) #s(literal -1/720 binary64))))
(+.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 th th)))
(+.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) (.f64 (.f64 th th) (.f64 (.f64 th th) #s(literal -1/720 binary64))))
(/.f64 (neg.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) #s(literal 1/576 binary64))) (neg.f64 (-.f64 (.f64 (*.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))))) (neg.f64 (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 th th) #s(literal -1/720 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/373248000 binary64) (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal 1/13824 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/13824 binary64) (.f64 #s(literal -1/373248000 binary64) (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th))))) (neg.f64 (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) #s(literal 1/576 binary64)) (-.f64 (.f64 (*.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))
(/.f64 (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)))) (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 th th) #s(literal -1/720 binary64))))
(/.f64 (fma.f64 #s(literal -1/373248000 binary64) (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal 1/13824 binary64)) (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64)))))
(/.f64 (+.f64 #s(literal 1/13824 binary64) (.f64 #s(literal -1/373248000 binary64) (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)))) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64))))))
(fma.f64 (*.f64 #s(literal -1/720 binary64) th) th #s(literal 1/24 binary64))
(fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
(fma.f64 #s(literal -1/720 binary64) (*.f64 th th) #s(literal 1/24 binary64))
(-.f64 (/.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (-.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))) (/.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (*.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))
(-.f64 (/.f64 #s(literal 1/576 binary64) (-.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))) (/.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (-.f64 #s(literal 1/24 binary64) (.f64 (*.f64 th th) #s(literal -1/720 binary64)))))
(-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/720 binary64) (.f64 th th)))
(+.f64 (/.f64 (.f64 #s(literal -1/373248000 binary64) (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th))) (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))) (/.f64 #s(literal 1/13824 binary64) (fma.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64)) (-.f64 #s(literal 1/576 binary64) (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))))))
(+.f64 (/.f64 #s(literal 1/13824 binary64) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))))) (/.f64 (.f64 #s(literal -1/373248000 binary64) (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th))) (+.f64 #s(literal 1/576 binary64) (-.f64 (.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) (.f64 (.f64 th th) #s(literal -1/720 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))))))
(+.f64 (.f64 (.f64 th th) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))
(+.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) #s(literal -1/720 binary64)))
#s(literal -1/720 binary64)
(*.f64 (neg.f64 (fabs.f64 th)) (neg.f64 (fabs.f64 th)))
(*.f64 (fabs.f64 (fabs.f64 th)) (fabs.f64 (fabs.f64 th)))
(*.f64 (exp.f64 (log.f64 th)) (exp.f64 (log.f64 th)))
(*.f64 (neg.f64 (neg.f64 th)) (neg.f64 (neg.f64 th)))
(*.f64 (fabs.f64 th) (fabs.f64 th))
(*.f64 (neg.f64 th) (neg.f64 th))
(*.f64 th th)
(pow.f64 (exp.f64 (log.f64 th)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 th) #s(literal 2 binary64))
(pow.f64 (neg.f64 th) #s(literal 2 binary64))
(pow.f64 (*.f64 th th) #s(literal 1 binary64))
(pow.f64 th #s(literal 2 binary64))
(fabs.f64 (*.f64 th th))
(exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 th) #s(literal 2 binary64))))
#s(literal 1/24 binary64)
#s(literal 1/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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2)
(.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
(/.f64 (neg.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (.f64 (.f64 (cos.f64 th) a2) a2)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 th) a2) a2)
(.f64 (.f64 a2 a2) (cos.f64 th))
(.f64 (cos.f64 th) (.f64 a2 a2))
(.f64 a2 (.f64 (cos.f64 th) a2))
(*.f64 (cos.f64 th) a2)
(*.f64 a2 (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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2))
#s(approx (+ (* a2 a2) (* a1 a1)) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (* a1 a1) (*.f64 a1 a1))
#s(approx a1 a1)
#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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (/.f64 (.f64 a2 a2) (.f64 a1 a1)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx (/ a2 a1) (/.f64 a2 a1))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a1) a1) (.f64 (.f64 (cos.f64 th) a1) a1))
#s(approx (* (cos th) a1) (*.f64 (cos.f64 th) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1)))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (.f64 (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)))
#s(approx a2 a2)
#s(approx (* a2 (/ a2 (sqrt 2))) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ a2 (sqrt 2)) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a2) a2) (.f64 (.f64 (cos.f64 th) a2) a2))
#s(approx (* (cos th) a2) (*.f64 (cos.f64 th) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 (/.f64 (.f64 a1 a1) a2) (/.f64 (cos.f64 th) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a2 a2)))
#s(approx (* (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (* a1 a1)) (.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (/ (+ (* (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (.f64 (/.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 a2 a2)) (/.f64 #s(literal 1 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
#s(approx (+ (* (/ a2 a1) (/ a2 a1)) 1) (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 a1 a1)) (.f64 a2 a2) #s(literal 1 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 (.f64 th th) (fma.f64 a1 a1 (.f64 a2 a2))) (.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))
#s(approx th th)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/24 binary64) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) (.f64 (fma.f64 (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/24 binary64) (.f64 (.f64 #s(literal -1/720 binary64) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))) (.f64 th th))) (.f64 th th) (/.f64 (fma.f64 a1 a1 (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 a1 a1) #s(literal 1/24 binary64)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (* (* (cos th) a1) a1) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 (.f64 a1 a1) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (/.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (* (cos th) a1) a1) (*.f64 a1 a1))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1)))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 a1 a1) #s(literal 1/24 binary64)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (*.f64 a1 a1)))
#s(approx (* (* (cos th) a1) a1) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 (.f64 a1 a1) #s(literal 1/24 binary64))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a1 a1))) (.f64 th th) (.f64 a1 a1)))
#s(approx (* (cos th) a1) a1)
#s(approx (* (cos th) a1) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/2 binary64) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (.f64 (.f64 th th) a1) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1))
#s(approx (* (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (fma.f64 (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (-.f64 (.f64 (.f64 th th) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (-.f64 (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 th th) #s(literal 1/24 binary64)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th))
#s(approx (+ (* -1/720 (* th th)) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* -1/720 (* th th)) 1/24) (fma.f64 (*.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)))
#s(approx (* th th) (*.f64 th th))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (fma.f64 (.f64 (.f64 a2 a2) #s(literal 1/24 binary64)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 (.f64 a2 a2) #s(literal 1/24 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
#s(approx (* (* (cos th) a2) a2) (*.f64 a2 a2))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2)))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 a2 a2) #s(literal 1/24 binary64)) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (*.f64 a2 a2)))
#s(approx (* (* (cos th) a2) a2) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 (.f64 a2 a2) #s(literal 1/24 binary64))) (.f64 th th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (.f64 th th) (.f64 a2 a2)))
#s(approx (* (cos th) a2) a2)
#s(approx (* (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (.f64 (.f64 th th) a2) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) a2)) (.f64 th th) a2))
#s(approx (* (cos th) a2) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a2)) (.f64 #s(literal -1/2 binary64) a2)) (.f64 th 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))) (fma.f64 a1 a1 (.f64 a2 a2))))
#s(approx (cos th) (cos.f64 th))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/720 binary64))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) (-.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 th th) (.f64 th th))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) (-.f64 (-.f64 (+.f64 (pow.f64 th #s(literal -6 binary64)) (/.f64 #s(literal 1/24 binary64) (.f64 th th))) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 th th) (.f64 th th))))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (.f64 (.f64 (.f64 th th) (.f64 th th)) #s(literal -1/720 binary64)))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (.f64 (.f64 (.f64 th th) (.f64 th th)) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (.f64 (-.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/720 binary64)) (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 th th) (.f64 th th)))) (.f64 (.f64 th th) (.f64 th th))))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 (.f64 th th) (.f64 th th)) #s(literal -1/720 binary64)))
#s(approx (* (+ (* -1/720 (* th th)) 1/24) (* th th)) (.f64 (.f64 (.f64 th th) (.f64 th th)) (-.f64 (/.f64 #s(literal 1/24 binary64) (*.f64 th th)) #s(literal 1/720 binary64))))
#s(approx (+ (* -1/720 (* th th)) 1/24) (.f64 (.f64 th th) #s(literal -1/720 binary64)))
#s(approx (+ (* -1/720 (* th th)) 1/24) (.f64 (-.f64 (/.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/720 binary64)) (*.f64 th th)))

eval97.0ms (2.5%)

Memory: -5.3MiB live, 137.6MiB allocated; 17ms collecting garbage
Compiler: Compiled 22 744 to 2 738 computations (88% saved)

prune77.0ms (1.9%)

Memory

27.8MiB live, 120.8MiB allocated; 5ms collecting garbage

Pruning

47 alts after pruning (41 fresh and 6 done)

	Pruned	Kept	Total
New	488	14	502
Fresh	8	27	35
Picked	3	2	5
Done	0	4	4
Total	499	47	546

Accuracy

100.0%

Counts

546 → 47

Alt Table

Click to see full alt table

Status	Accuracy	Program
	2.3%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
	98.9%	(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	65.4%	(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
	65.4%	(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
	15.7%	(.f64 (/.f64 (cos.f64 th) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
✓	99.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
✓	15.7%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
	62.4%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	62.4%	(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	61.9%	(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	65.4%	(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	17.8%	(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
	12.9%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
	99.6%	(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
	98.9%	(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	15.7%	(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
	65.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
	65.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
	98.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
✓	98.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
✓	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	19.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* th th)) 1/24) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	19.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	15.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	61.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2)) a2) (sqrt.f64 #s(literal 2 binary64))))
	18.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
	12.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
	17.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	26.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
	51.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	98.9%	#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)))))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
	51.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
	89.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) a1))
	15.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
	38.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
✓	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
	63.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	38.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))))
	27.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (/ (+ ( (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
✓	65.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))

Compiler

Compiled 3 940 to 1 342 computations (65.9% saved)

regimes152.0ms (3.9%)

Memory

-7.7MiB live, 331.4MiB allocated; 25ms collecting garbage

Counts

72 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (/ (+ ( (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #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 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* th th)) 1/24) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #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 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #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 ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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) 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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 th) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 #s(approx ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1))) a1))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (/.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 (.f64 #s(approx (+ ( (/ a2 a1) (/ a2 a1)) 1) (/.f64 (.f64 a2 a2) (.f64 a1 a1))) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) (/.f64 (.f64 a1 a1) (.f64 a2 a2))) (*.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))))
(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 (cos.f64 th) a1) a1))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (cos.f64 th) (.f64 (neg.f64 a1) a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))

Outputs
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))

Calls

8 calls:

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

Accuracy	Segments	Branch
99.6%	1	`(*.f64 a2 a2)`
99.6%	1	`(*.f64 a1 a1)`
99.6%	1	`(cos.f64 th)`
99.6%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.6%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
99.6%	1	`a1`
99.6%	1	`a2`
99.6%	1	`th`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes121.0ms (3.1%)

Memory

8.0MiB live, 243.2MiB allocated; 15ms collecting garbage

Counts

57 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (/ (+ ( (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #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 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* th th)) 1/24) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #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 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #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 ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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) 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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 th) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))

Outputs
(.f64 (cos.f64 th) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Calls

8 calls:

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

Results

Accuracy	Segments	Branch
99.6%	1	`(*.f64 a2 a2)`
99.6%	1	`(*.f64 a1 a1)`
99.6%	1	`(cos.f64 th)`
99.6%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
99.6%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
99.6%	1	`a1`
99.6%	1	`a2`
99.6%	1	`th`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes118.0ms (3%)

Memory

-14.7MiB live, 223.0MiB allocated; 12ms collecting garbage

Counts

55 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (/ (+ ( (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #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 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* th th)) 1/24) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #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 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #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 ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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) 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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (cos.f64 th) (/.f64 #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
(/.f64 (.f64 (cos.f64 th) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 (cos.f64 th) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))

Calls

8 calls:

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

Accuracy	Segments	Branch
98.9%	1	`(*.f64 a2 a2)`
98.9%	1	`(*.f64 a1 a1)`
98.9%	1	`(cos.f64 th)`
98.9%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
98.9%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
98.9%	1	`a1`
98.9%	1	`a2`
98.9%	1	`th`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes153.0ms (3.9%)

Memory

-0.7MiB live, 279.5MiB allocated; 61ms collecting garbage

Counts

48 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (/ (+ ( (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #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 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* th th)) 1/24) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #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 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #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 ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.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) 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 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))))

Outputs
#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)))))

Calls

8 calls:

43.0ms	a1
23.0ms	(*.f64 a2 a2)
21.0ms	a2
15.0ms	th
14.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
98.9%	1	`(*.f64 a2 a2)`
98.9%	1	`a2`
98.9%	1	`th`
98.9%	1	`(*.f64 a1 a1)`
98.9%	1	`(cos.f64 th)`
98.9%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
98.9%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
98.9%	1	`a1`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes140.0ms (3.6%)

Memory

-15.8MiB live, 327.3MiB allocated; 71ms collecting garbage

Counts

44 → 2

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) (fma.f64 (.f64 (.f64 th th) a2) #s(literal -1/2 binary64) a2)) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 #s(approx (/ (+ ( (/ a2 a1) (/ a2 a1)) 1) (sqrt 2)) (/.f64 (.f64 a2 a2) (.f64 (.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64))))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (*.f64 a1 a1) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a1) a1) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) (.f64 th th) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (* (* (cos th) a2) a2) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 a2 a2)) (.f64 th th) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (* th th) -1/2) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 th (.f64 th #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (exp.f64 (*.f64 (log.f64 a2) #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 (*.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
(/.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) #s(approx (+ ( a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (.f64 a2 a2)))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 th th)) #s(literal 1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 #s(approx (+ ( -1/720 (* th th)) 1/24) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) (.f64 (.f64 (.f64 (.f64 th th) th) (.f64 (.f64 th th) th)) #s(literal -1/720 binary64)))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (exp.f64 (*.f64 (log.f64 a1) #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 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) a1) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) th) th (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 a1) #s(literal 2 binary64))))))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
(/.f64 (.f64 #s(approx (cos th) (fma.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th #s(literal 1 binary64))) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th)) #s(literal 1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) (fma.f64 (fma.f64 (.f64 th th) (fma.f64 (.f64 (.f64 th th) a1) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) a1)) (.f64 #s(literal -1/2 binary64) a1)) (.f64 th th) a1)) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) th) th) #s(literal 1/2 binary64)) th) th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 (exp.f64 (log.f64 a1)) #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 ( (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ (cos th) (sqrt 2))) a1) (/.f64 (*.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (cos.f64 th) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))

Outputs

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

(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))

Calls

8 calls:

36.0ms	a1
21.0ms	th
20.0ms	a2
13.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
13.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

Accuracy	Segments	Branch
78.4%	2	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
65.4%	1	`(*.f64 a2 a2)`
71.4%	4	`(*.f64 a1 a1)`
77.9%	2	`(cos.f64 th)`
77.9%	2	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
71.4%	4	`a1`
65.4%	1	`a2`
68.7%	3	`th`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes25.0ms (0.6%)

Memory

37.8MiB live, 84.7MiB allocated; 2ms collecting garbage

Counts

9 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
(.f64 (/.f64 #s(approx (cos th) #s(approx (+ ( (- (* (+ (* -1/720 (* th th)) 1/24) (* th th)) 1/2) (* th th)) 1) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (*.f64 a2 a2)))

Outputs
(/.f64 #s(approx (* (cos th) (+ (* a2 a2) (* a1 a1))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))

Calls

8 calls:

4.0ms	a1
3.0ms	th
3.0ms	a2
3.0ms	(cos.f64 th)
3.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
65.4%	1	`(*.f64 a2 a2)`
65.4%	1	`a2`
65.4%	1	`th`
65.4%	1	`(*.f64 a1 a1)`
65.4%	1	`a1`
65.4%	1	`(cos.f64 th)`
65.4%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
65.4%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes22.0ms (0.5%)

Memory

-15.7MiB live, 74.2MiB allocated; 7ms collecting garbage

Counts

6 → 1

Calls

Call 1

Inputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a1) a1) a1) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a2 a2) (* a1 a1)) (*.f64 a1 a1)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (/.f64 (*.f64 a2 a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))

Calls

8 calls:

4.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
4.0ms	a2
2.0ms	th
2.0ms	a1
2.0ms	(cos.f64 th)

Results

Accuracy	Segments	Branch
65.4%	1	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
65.4%	1	`(cos.f64 th)`
65.4%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
65.4%	1	`th`
65.4%	1	`(*.f64 a1 a1)`
65.4%	1	`a1`
65.4%	1	`(*.f64 a2 a2)`
65.4%	1	`a2`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes41.0ms (1%)

Memory

6.8MiB live, 62.5MiB allocated; 32ms collecting garbage

Accuracy

Total -33.6b remaining (-150.4%)

Threshold costs -33.6b (-150.4%)

Counts

5 → 1

Calls

Call 1

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

Outputs
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))

Calls

8 calls:

27.0ms	a1
2.0ms	a2
2.0ms	th
2.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
2.0ms	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))

Results

Accuracy	Segments	Branch
65.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)))`
65.1%	1	`(cos.f64 th)`
65.1%	1	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
65.1%	1	`th`
65.1%	1	`(*.f64 a1 a1)`
65.1%	1	`a1`
65.1%	1	`(*.f64 a2 a2)`
65.1%	1	`a2`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory

2.1MiB live, 2.1MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-1.0633008376522753e-180	-2.475294196696635e-206

Compiler

Compiled 22 to 18 computations (18.2% saved)

derivations304.0ms (7.7%)

Memory

-22.2MiB live, 450.1MiB allocated; 45ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 248 to 55 computations (77.8% saved)

preprocess149.0ms (3.8%)

Memory: 8.8MiB live, 394.8MiB allocated; 33ms collecting garbage
Remove: (abs th)
Compiler: Compiled 3 714 to 1 998 computations (46.2% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.1s (28.9%)

explain171.0ms (4.3%)

preprocess133.0ms (3.4%)

series19.0ms (0.5%)

rewrite180.0ms (4.5%)

eval20.0ms (0.5%)

prune8.0ms (0.2%)

series50.0ms (1.3%)

rewrite166.0ms (4.2%)

eval57.0ms (1.4%)

prune35.0ms (0.9%)

series35.0ms (0.9%)

rewrite190.0ms (4.8%)

eval67.0ms (1.7%)

prune40.0ms (1%)

series34.0ms (0.9%)

rewrite207.0ms (5.2%)

eval97.0ms (2.5%)

prune77.0ms (1.9%)

regimes152.0ms (3.9%)

regimes121.0ms (3.1%)

regimes118.0ms (3%)

regimes153.0ms (3.9%)

regimes140.0ms (3.6%)

regimes25.0ms (0.6%)

regimes22.0ms (0.5%)

regimes41.0ms (1%)

bsearch1.0ms (0%)

derivations304.0ms (7.7%)

preprocess149.0ms (3.8%)

end0.0ms (0%)

Profiling