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.4MiB live, 0.4MiB 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.2s (19.6%)

Memory

32.9MiB live, 1 246.2MiB allocated; 250ms collecting garbage

Samples

858.0ms

8 256×

valid

Precisions

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

ival-cos: 245.0ms (38.9% of total)

ival-mult: 230.0ms (36.5% of total)

ival-sqrt: 59.0ms (9.4% of total)

ival-div: 49.0ms (7.8% of total)

ival-add: 36.0ms (5.7% of total)

exact: 6.0ms (1% of total)

ival-assert: 3.0ms (0.5% of total)

adjust: 2.0ms (0.3% of total)

Bogosity

explain154.0ms (2.6%)

Memory

-1.4MiB live, 232.9MiB allocated; 21ms 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

52.0ms

512×

valid

Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions

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

ival-mult: 12.0ms (35.7% of total)

ival-cos: 12.0ms (35.7% of total)

ival-sqrt: 4.0ms (11.9% of total)

ival-div: 3.0ms (8.9% of total)

ival-add: 2.0ms (5.9% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

preprocess215.0ms (3.6%)

Memory

9.3MiB live, 204.6MiB allocated; 23ms 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
0	12	19
0	20	13
1	52	13
2	174	13
3	551	13
4	1112	13
5	1706	13
6	3090	13
7	7183	13
0	8100	12

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 3 computations (-∞% saved)

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

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

Compiler

Compiled 19 to 12 computations (36.8% saved)

series22.0ms (0.4%)

Memory

-8.7MiB live, 37.8MiB allocated; 3ms 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)
4.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)
3.0ms	a1	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	th	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)
2.0ms	a2	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) th (sqrt 2) 2 (* a1 a1) a1 (* (/ (cos th) (sqrt 2)) (* a2 a2)) (* a2 a2) a2)

rewrite199.0ms (3.4%)

Memory

47.3MiB live, 273.0MiB allocated; 40ms 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))

eval25.0ms (0.4%)

Memory: -13.0MiB live, 46.6MiB allocated; 8ms collecting garbage
Compiler: Compiled 4 820 to 597 computations (87.6% saved)

prune12.0ms (0.2%)

Memory

-21.0MiB live, 25.1MiB allocated; 6ms collecting garbage

Pruning

9 alts after pruning (9 fresh and 0 done)

	Pruned	Kept	Total
New	178	9	187
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	179	9	188

Accuracy

100.0%

Counts

188 → 9

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.6%	(/.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))
▶	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)))
	33.9%	#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)))))
▶	67.0%	#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.7%	#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))))
▶	75.9%	#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 492 to 308 computations (37.4% saved)

series71.0ms (1.2%)

Memory

-13.4MiB live, 130.3MiB allocated; 11ms collecting garbage

Counts

31 → 146

Calls

Call 1

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

Outputs
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (sqrt 2) (* (* (cos th) a1) a1)) #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 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) (* 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 (* (* (* (+ (* (/ 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) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 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) (+ (* 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 (* (* (* (+ (* (/ 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 (* (* (cos th) a2) a2) #s(hole binary64 (* (pow a2 2) (cos th))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx a2 #s(hole binary64 a2))
#s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (+ (* (/ a2 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) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 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) (+ (* 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 (* (* (* (+ (* (/ 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) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (+ (* 1/2 (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))))))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (+ (* 1/2 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))) (* (pow th 2) (+ (* 1/2 (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2))))) (* (pow th 2) (+ (* 1/2 (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))) (* 1/2 (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* -1/2 (* (pow a2 2) (sqrt 2)))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (+ (* -1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a2 2) (sqrt 2))))))))))))
#s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (+ (* (pow a2 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (+ (* -1/2 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (* (pow a1 2) (sqrt 2))) (+ (* 1/24 (* (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (sqrt 2))) (* -1/720 (* (pow a2 2) (sqrt 2)))))))))))))))
#s(approx (* (* (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) #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 (* (sqrt 2) (* (* (cos th) a1) a1)) #s(hole binary64 (* (pow a1 2) (sqrt 2))))
#s(approx (* (sqrt 2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* (pow a1 2) (sqrt 2)))))
#s(approx (* (sqrt 2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* 1/24 (* (pow a1 2) (* (pow th 2) (sqrt 2)))))))))
#s(approx (* (sqrt 2) (* (* (cos th) a1) a1)) #s(hole binary64 (+ (* (pow a1 2) (sqrt 2)) (* (pow th 2) (+ (* -1/2 (* (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (* (pow th 2) (sqrt 2)))) (* 1/24 (* (pow a1 2) (sqrt 2))))))))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* -1/2 (* (pow a1 2) (pow th 2))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* 1/24 (* (pow a1 2) (pow th 2))))) (pow a1 2))))
#s(approx (* (* (cos th) a1) a1) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (pow a1 2)) (* (pow th 2) (+ (* -1/720 (* (pow a1 2) (pow th 2))) (* 1/24 (pow a1 2)))))) (pow a1 2))))
#s(approx (* (cos th) a1) #s(hole binary64 a1))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* -1/2 (* a1 (pow th 2))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* 1/24 (* a1 (pow th 2))))))))
#s(approx (* (cos th) a1) #s(hole binary64 (+ a1 (* (pow th 2) (+ (* -1/2 a1) (* (pow th 2) (+ (* -1/720 (* a1 (pow th 2))) (* 1/24 a1))))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (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) (+ (* 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 (* (* (* (+ (* (/ 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) (sqrt 2)) #s(hole binary64 (/ 1 (sqrt 2))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* 1/24 (/ (pow th 2) (sqrt 2))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (+ (* (pow th 2) (- (* (pow th 2) (+ (* -1/720 (/ (pow th 2) (sqrt 2))) (* 1/24 (/ 1 (sqrt 2))))) (* 1/2 (/ 1 (sqrt 2))))) (/ 1 (sqrt 2)))))
#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (sqrt 2) (* (* (cos th) a1) a1))) 2) #s(hole binary64 (* 1/2 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#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 (* (* (* (+ (* (/ 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))))
#s(approx (/ (cos th) (sqrt 2)) #s(hole binary64 (/ (cos th) (sqrt 2))))

Calls

9 calls:

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

rewrite348.0ms (5.9%)

Memory

3.0MiB live, 262.0MiB allocated; 178ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	570	5072
0	623	4414
1	3555	4374
0	8536	4264

Stop Event

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

Counts

177 → 440

Calls

Call 1

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

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

eval96.0ms (1.6%)

Memory: 19.1MiB live, 110.9MiB allocated; 8ms collecting garbage
Compiler: Compiled 17 733 to 1 901 computations (89.3% saved)

prune35.0ms (0.6%)

Memory

-21.2MiB live, 74.7MiB allocated; 12ms collecting garbage

Pruning

22 alts after pruning (20 fresh and 2 done)

	Pruned	Kept	Total
New	495	19	514
Fresh	3	1	4
Picked	3	2	5
Done	0	0	0
Total	501	22	523

Accuracy

100.0%

Counts

523 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.0%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
▶	99.6%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
	67.1%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	66.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓	67.0%	#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))))
▶	19.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
✓	98.7%	#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))))
	59.0%	#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))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
▶	62.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	98.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
▶	15.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	30.6%	#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))))
	98.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	98.6%	#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))
	54.6%	#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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
	40.2%	#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))))
	55.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (+.f64 (/.f64 (.f64 a1 a1) (.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 a2 a2))))
▶	44.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))

Compiler

Compiled 1 436 to 877 computations (38.9% saved)

series62.0ms (1.1%)

Memory

-5.5MiB live, 87.3MiB allocated; 7ms collecting garbage

Counts

40 → 117

Calls

Call 1

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

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 (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2)))) (* 1/2 (* (pow a2 2) (* (cos th) (sqrt 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (* (cos th) (sqrt 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (pow a1 2) (* (cos th) (sqrt 2))) (* (pow a2 2) (* (cos th) (sqrt 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a2 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx a1 #s(hole binary64 a1))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a2 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (pow a2 4)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (+ (* -1 (pow a1 4)) (pow a2 4))))
#s(approx (* (* a1 a1) (* a1 a1)) #s(hole binary64 (pow a1 4)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (pow a2 2))))
#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 (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (pow a1 2) (* (cos th) (sqrt 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a1 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (* (cos th) (sqrt 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a2 2) (* (cos th) (sqrt 2))) (pow a1 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (pow a1 2)))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a1 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* -1 (pow a1 4))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a1 4) (- (/ (pow a2 4) (pow a1 4)) 1))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (- (/ (pow a2 2) (pow a1 2)) 1))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx a2 #s(hole binary64 a2))
#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 (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* (pow a2 2) (+ (* -1/2 (/ (pow th 2) (sqrt 2))) (/ 1 (sqrt 2))))))
#s(approx (/ (* (* a2 th) (* a2 th)) (sqrt 2)) #s(hole binary64 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))
#s(approx (* (* a2 th) (* a2 th)) #s(hole binary64 (* (pow a2 2) (pow th 2))))
#s(approx (* a2 th) #s(hole binary64 (* a2 th)))
#s(approx (/ (* a2 a2) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (* (* a2 a2) (* a2 a2)) #s(hole binary64 (pow a2 4)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (- (pow a2 2) (pow a1 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 (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* (pow a2 2) (+ (* 1/2 (* (cos th) (sqrt 2))) (* 1/2 (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (* (cos th) (sqrt 2)) (/ (* (pow a1 2) (* (cos th) (sqrt 2))) (pow a2 2))))))
#s(approx (+ (* a1 a1) (* a2 a2)) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a1 a1) (* a2 a2)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a2 4) (+ 1 (* -1 (/ (pow a1 4) (pow a2 4)))))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (* -1 (/ (pow a1 2) (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 (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* -1/4 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/48 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/4 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/1440 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/48 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* -1/2 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* 1/24 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (+ (* (sqrt 2) (+ (pow a1 2) (pow a2 2))) (* (pow th 2) (+ (* -1/2 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))) (* 1/24 (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (sqrt 2)))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* -1/2 (* (pow th 2) (sqrt 2))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* (pow th 2) (+ (* -1/2 (sqrt 2)) (* 1/24 (* (pow th 2) (sqrt 2))))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (+ (sqrt 2) (* (pow th 2) (+ (* -1/2 (sqrt 2)) (* (pow th 2) (+ (* -1/720 (* (pow th 2) (sqrt 2))) (* 1/24 (sqrt 2)))))))))
#s(approx (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a2) a2) (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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* 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) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(hole binary64 (/ (* (cos th) (+ (pow a1 2) (pow a2 2))) (sqrt 2))))
#s(approx (* (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) 1/2) #s(hole binary64 (* 1/2 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2)))))))
#s(approx (* (* (sqrt 2) (cos th)) (+ (* a1 a1) (* a2 a2))) #s(hole binary64 (* (cos th) (* (sqrt 2) (+ (pow a1 2) (pow a2 2))))))
#s(approx (* (sqrt 2) (cos th)) #s(hole binary64 (* (cos th) (sqrt 2))))
#s(approx (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))
#s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2)))))
#s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) #s(hole binary64 (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (/ (pow a2 2) (* (pow th 2) (sqrt 2)))))))

Calls

9 calls:

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

rewrite208.0ms (3.5%)

Memory

22.5MiB live, 308.8MiB allocated; 31ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	427	3721
0	481	3260
1	2458	3194
0	9895	3116

Stop Event

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

Counts

157 → 425

Calls

Call 1

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

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

eval138.0ms (2.3%)

Memory: -25.5MiB live, 118.3MiB allocated; 23ms collecting garbage
Compiler: Compiled 29 885 to 2 774 computations (90.7% saved)

prune59.0ms (1%)

Memory

4.1MiB live, 97.4MiB allocated; 4ms collecting garbage

Pruning

32 alts after pruning (28 fresh and 4 done)

	Pruned	Kept	Total
New	614	16	630
Fresh	3	12	15
Picked	3	2	5
Done	0	2	2
Total	620	32	652

Accuracy

100.0%

Counts

652 → 32

Alt Table

Click to see full alt table

Status	Accuracy	Program
	67.0%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
✓	99.6%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	67.1%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	66.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓	67.0%	#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))))
	18.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
▶	10.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (neg.f64 (*.f64 a1 a1)))) (sqrt.f64 #s(literal 2 binary64))))
▶	19.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	2.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
✓	98.7%	#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))))
	59.0%	#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))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	62.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
	62.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (exp.f64 (*.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal 1 binary64))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
▶	16.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	98.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
✓	15.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	19.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
	98.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	98.6%	#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))
	62.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	54.6%	#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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
	40.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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))))
	67.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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))))
▶	66.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	40.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a2 th) a2) th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	44.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (exp.f64 (.f64 (log.f64 (.f64 a2 th)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	18.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))))

Compiler

Compiled 2 382 to 1 371 computations (42.4% saved)

series36.0ms (0.6%)

Memory

37.0MiB live, 82.0MiB allocated; 4ms collecting garbage

Counts

39 → 89

Calls

Call 1

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

Outputs
#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 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a2 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (+ (pow a1 2) (pow a2 2))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (pow a2 4)))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (+ (* -1 (pow a1 4)) (pow a2 4))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (pow a2 2)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (+ (* -1 (pow a1 2)) (pow a2 2))))
#s(approx (* a1 a1) #s(hole binary64 (pow a1 2)))
#s(approx (* (* a1 a1) (* a1 a1)) #s(hole binary64 (pow a1 4)))
#s(approx (neg (* a1 a1)) #s(hole binary64 (* -1 (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 (+ (* 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (pow a1 2)))
#s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a1 2) (+ 1 (/ (pow a2 2) (pow a1 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* -1 (pow a1 4))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a1 4) (- (/ (pow a2 4) (pow a1 4)) 1))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* -1 (pow a1 2))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a1 2) (- (/ (pow a2 2) (pow a1 2)) 1))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 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 (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (- (pow a2 4) (pow a1 4))))
#s(approx (* (* (* a2 a2) a2) a2) #s(hole binary64 (pow a2 4)))
#s(approx (* (* a2 a2) a2) #s(hole binary64 (pow a2 3)))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (- (pow a2 2) (pow a1 2))))
#s(approx (* (* a2 a2) (* a2 a2)) #s(hole binary64 (pow a2 4)))
#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)) (* 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) #s(hole binary64 (* (pow a2 2) (+ 1 (/ (pow a1 2) (pow a2 2))))))
#s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) #s(hole binary64 (* (pow a2 4) (+ 1 (* -1 (/ (pow a1 4) (pow a2 4)))))))
#s(approx (- (* a2 a2) (* a1 a1)) #s(hole binary64 (* (pow a2 2) (+ 1 (* -1 (/ (pow a1 2) (pow a2 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 (cos th) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx th #s(hole binary64 th))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (* (cos th) a2) a2) (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 (+ (* -1/2 (* th th)) 1) #s(hole binary64 1))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (* (* th th) -1/2) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (* th th) #s(hole binary64 (pow th 2)))
#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 (cos th) #s(hole binary64 (cos th)))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* -1/2 (pow th 2))))
#s(approx (+ (* -1/2 (* th th)) 1) #s(hole binary64 (* (pow th 2) (- (/ 1 (pow th 2)) 1/2))))

Calls

9 calls:

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

rewrite234.0ms (3.9%)

Memory

-0.8MiB live, 357.4MiB allocated; 69ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	334	2788
0	379	2325
1	1905	2277
0	9262	2217

Stop Event

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

Counts

128 → 397

Calls

Call 1

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

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

eval850.0ms (14.4%)

Memory: -78.0MiB live, 250.1MiB allocated; 1.3s collecting garbage
Compiler: Compiled 27 747 to 2 395 computations (91.4% saved)

prune73.0ms (1.2%)

Memory

-12.4MiB live, 129.6MiB allocated; 24ms collecting garbage

Pruning

40 alts after pruning (33 fresh and 7 done)

	Pruned	Kept	Total
New	564	15	579
Fresh	5	18	23
Picked	2	3	5
Done	0	4	4
Total	571	40	611

Accuracy

100.0%

Counts

611 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	31.7%	(/.f64 (.f64 (-.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (cos.f64 th)) (.f64 (-.f64 (.f64 a1 a1) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	67.0%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (* a2 a2))) (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)))
	98.6%	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a2 a2)))
	67.0%	(.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
✓	99.6%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) #s(approx (+ ( a1 a1) (* a2 a2)) (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	67.1%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
	98.7%	#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	66.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (.f64 a1 a1)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))))
✓	67.0%	#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))))
	18.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 (-.f64 (.f64 (.f64 a2 a2) (.f64 a2 a2)) (.f64 (.f64 a1 a1) (.f64 a1 a1))) #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
	19.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (pow.f64 a2 #s(literal 3 binary64)) a2)) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	18.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) (-.f64 (exp.f64 (.f64 (log.f64 a2) #s(literal 2 binary64))) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	18.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (.f64 (.f64 a2 a2) a2) a2)) #s(approx (- ( a2 a2) (* a1 a1)) (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))))
	17.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (.f64 (exp.f64 (.f64 (log.f64 a2) #s(literal 3 binary64))) a2)) (-.f64 (.f64 a2 a2) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	2.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (/.f64 #s(approx (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (neg.f64 (.f64 (.f64 (.f64 a1 a1) a1) a1))) (-.f64 (.f64 a2 a2) (*.f64 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 (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (exp.f64 (.f64 (log.f64 a2) #s(literal 4 binary64)))) (-.f64 (.f64 a2 a2) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	11.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (.f64 (+.f64 a2 a1) (-.f64 a2 a1))) (.f64 #s(approx (- (* a2 a2) (* a1 a1)) (*.f64 (neg.f64 a1) a1)) (sqrt.f64 #s(literal 2 binary64)))))
✓	98.7%	#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))))
	59.0%	#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))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	62.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) a2) a2) (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))
	62.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (fma.f64 (*.f64 #s(literal -1/2 binary64) th) th #s(literal 1 binary64)))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
✓	16.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	16.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (.f64 (exp.f64 (.f64 (log.f64 th) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	98.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 a2 a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	40.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
✓	15.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
	19.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 a1) a1) a1))) (sqrt.f64 #s(literal 2 binary64))))
	11.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) #s(approx (- (* a2 a2) (* a1 a1)) (.f64 (neg.f64 a1) a1))) (/.f64 (.f64 (+.f64 a2 a1) (-.f64 a2 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	98.6%	#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))
	16.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 #s(approx (cos th) #s(approx (+ (* -1/2 (* th th)) 1) (.f64 (.f64 th th) #s(literal -1/2 binary64)))) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
	54.6%	#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 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) a1) (sqrt.f64 #s(literal 2 binary64)))) a1))
	66.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (/.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64)))))))
✓	66.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	40.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 a2 th) a2) th) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	44.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) (fma.f64 (/.f64 (exp.f64 (.f64 (log.f64 (.f64 a2 th)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64) (/.f64 (*.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))))))
	18.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64)))))

Compiler

Compiled 3 989 to 1 264 computations (68.3% saved)

regimes165.0ms (2.8%)

Memory

16.5MiB live, 207.8MiB allocated; 43ms collecting garbage

Counts

60 → 1

Calls

Call 1

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

Outputs
(/.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))

Calls

8 calls:

56.0ms	a2
18.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
16.0ms	(cos.f64 th)
15.0ms	a1
15.0ms	th

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)

regimes120.0ms (2%)

Memory

-23.8MiB live, 219.4MiB allocated; 9ms collecting garbage

Counts

58 → 1

Calls

Call 1

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

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

Calls

8 calls:

17.0ms	th
15.0ms	a1
15.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
15.0ms	a2
14.0ms	(cos.f64 th)

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)

regimes109.0ms (1.8%)

Memory

37.6MiB live, 178.0MiB allocated; 6ms collecting garbage

Counts

53 → 1

Calls

Call 1

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

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

Calls

8 calls:

15.0ms	(cos.f64 th)
14.0ms	a2
14.0ms	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
13.0ms	a1
13.0ms	th

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)

regimes171.0ms (2.9%)

Memory

-1.2MiB live, 141.4MiB allocated; 46ms collecting garbage

Counts

52 → 1

Calls

Call 1

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

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

Calls

8 calls:

49.0ms	th
40.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)))
17.0ms	(cos.f64 th)
14.0ms	a2
13.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)

regimes116.0ms (2%)

Memory

-30.8MiB live, 115.4MiB allocated; 10ms collecting garbage

Counts

51 → 1

Calls

Call 1

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

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

Calls

8 calls:

19.0ms	th
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)))
14.0ms	(*.f64 a2 a2)
13.0ms	a1
13.0ms	a2

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes130.0ms (2.2%)

Memory

5.4MiB live, 97.4MiB allocated; 5ms collecting garbage

Counts

49 → 1

Calls

Call 1

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

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

Calls

8 calls:

39.0ms	(cos.f64 th)
17.0ms	(*.f64 a2 a2)
13.0ms	a1
13.0ms	th
12.0ms	a2

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes101.0ms (1.7%)

Memory

19.6MiB live, 155.9MiB allocated; 17ms collecting garbage

Counts

45 → 1

Calls

Call 1

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

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:

16.0ms	th
13.0ms	(cos.f64 th)
12.0ms	(*.f64 a1 a1)
12.0ms	a2
12.0ms	a1

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes97.0ms (1.6%)

Memory

-15.0MiB live, 225.3MiB allocated; 15ms collecting garbage

Counts

44 → 1

Calls

Call 1

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

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

Calls

8 calls:

14.0ms	a1
13.0ms	a2
13.0ms	(cos.f64 th)
12.0ms	(*.f64 a2 a2)
12.0ms	th

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes138.0ms (2.3%)

Memory

11.2MiB live, 163.4MiB allocated; 86ms collecting garbage

Counts

43 → 2

Calls

Call 1

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

Outputs

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

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

Calls

8 calls:

60.0ms	a2
14.0ms	(cos.f64 th)
11.0ms	(*.f64 a2 a2)
11.0ms	th
11.0ms	a1

Results

Accuracy	Segments	Branch
79.5%	2	`(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))`
70.2%	2	`(*.f64 a2 a2)`
70.3%	3	`(*.f64 a1 a1)`
78.3%	2	`(cos.f64 th)`
78.3%	2	`(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))`
70.7%	3	`a1`
71.0%	2	`a2`
70.8%	3	`th`

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes32.0ms (0.5%)

Memory

-7.8MiB live, 39.3MiB allocated; 1ms 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 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) (+ (* a1 a1) (* a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (sqrt.f64 (.f64 (.f64 (*.f64 a1 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))) (fma.f64 a1 a1 (.f64 a2 a2)))

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes18.0ms (0.3%)

Memory

31.1MiB live, 31.1MiB allocated; 0ms 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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (* a2 a2)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 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) (+ (* a1 a1) (* a2 a2))) (fma.f64 a1 a1 (*.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes30.0ms (0.5%)

Memory

-18.0MiB live, 32.2MiB allocated; 5ms collecting garbage

Accuracy

Total -33.1b remaining (-154.1%)

Threshold costs -33.1b (-154.1%)

Counts

4 → 1

Calls

Call 1

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-1.259662205867829e-112	-3.565801170840109e-143

Compiler

Compiled 22 to 18 computations (18.2% saved)

simplify53.0ms (0.9%)

Memory

8.4MiB live, 53.5MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	85	364
1	179	357
2	639	345
3	4943	345

Stop Event

1×	node limit

Calls

Call 1

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

Outputs
(/.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))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a1 a1 (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (.f64 a2 a2)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (cos.f64 th) a2) (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (/.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 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2))
(if (<=.f64 (+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) #s(literal -4332296397063773/43322963970637732180912721627235682866194329302747133987038743447103457934462900359999600095377180907771737671271930809827721216 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))) #s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))))
(if (<=.f64 (+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) #s(literal -4332296397063773/43322963970637732180912721627235682866194329302747133987038743447103457934462900359999600095377180907771737671271930809827721216 binary64)) #s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(approx (/ (* (* (cos th) a2) a2) (sqrt 2)) #s(approx (+ (* (/ (* (* a2 th) (* a2 th)) (sqrt 2)) -1/2) (/ (* a2 a2) (sqrt 2))) (.f64 (.f64 (.f64 a2 a2) (/.f64 (.f64 th th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64))))) #s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (*.f64 a2 a2))) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) (/.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) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (/ (* (cos th) (+ (* a1 a1) (* a2 a2))) (sqrt 2)) #s(approx (/ (/ (- (* (* a2 a2) (* a2 a2)) (* (* a1 a1) (* a1 a1))) (- (* a2 a2) (* a1 a1))) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))

derivations454.0ms (7.7%)

Memory

-14.4MiB live, 448.0MiB allocated; 87ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 364 to 83 computations (77.2% saved)

preprocess185.0ms (3.1%)

Memory

30.3MiB live, 309.4MiB allocated; 68ms collecting garbage

Remove

(abs th)

(abs a2)

(abs a1)

Compiler

Compiled 1 766 to 840 computations (52.4% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.2s (19.6%)

explain154.0ms (2.6%)

preprocess215.0ms (3.6%)

eval0.0ms (0%)

prune0.0ms (0%)

series22.0ms (0.4%)

rewrite199.0ms (3.4%)

eval25.0ms (0.4%)

prune12.0ms (0.2%)

series71.0ms (1.2%)

rewrite348.0ms (5.9%)

eval96.0ms (1.6%)

prune35.0ms (0.6%)

series62.0ms (1.1%)

rewrite208.0ms (3.5%)

eval138.0ms (2.3%)

prune59.0ms (1%)

series36.0ms (0.6%)

rewrite234.0ms (3.9%)

eval850.0ms (14.4%)

prune73.0ms (1.2%)

regimes165.0ms (2.8%)

regimes120.0ms (2%)

regimes109.0ms (1.8%)

regimes171.0ms (2.9%)

regimes116.0ms (2%)

regimes130.0ms (2.2%)

regimes101.0ms (1.7%)

regimes97.0ms (1.6%)

regimes138.0ms (2.3%)

regimes32.0ms (0.5%)

regimes18.0ms (0.3%)

regimes30.0ms (0.5%)

bsearch1.0ms (0%)

simplify53.0ms (0.9%)

derivations454.0ms (7.7%)

preprocess185.0ms (3.1%)

end0.0ms (0%)

Profiling