Metrics for Migdal et al, Equation (64)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

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

sample938.0ms (29.5%)

Memory

27.6MiB live, 1 147.7MiB allocated; 172ms collecting garbage

Samples

676.0ms

8 256×

valid

Precisions

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

ival-cos: 235.0ms (53.5% of total)

ival-mult!: 147.0ms (33.5% of total)

ival-div!: 38.0ms (8.6% of total)

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

adjust: 2.0ms (0.5% of total)

Bogosity

explain126.0ms (4%)

Memory

-20.9MiB live, 219.1MiB allocated; 16ms collecting garbage

FPErrors

Click to see full error table

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

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`*.f64`	`(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))`	*no**	1	0

Confusion

	Predicted +	Predicted -
+	1	0
-	0	255

Precision

1.0

Recall

1.0

Confusion?

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

Precision?

1.0

Recall?

1.0

Freqs

test

number	freq
0	255
1	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

42.0ms

512×

valid

Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions

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

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

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

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

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

adjust: 0.0ms (0% of total)

preprocess98.0ms (3.1%)

Memory

-10.9MiB live, 44.8MiB allocated; 83ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	133
1	159	133
2	589	133
3	1534	133
4	3012	133
5	4414	133
6	6976	133

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 38 to 24 computations (36.8% saved)

series20.0ms (0.6%)

Memory

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

Counts

12 → 34

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite180.0ms (5.7%)

Memory

-4.8MiB live, 225.4MiB allocated; 82ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	158	1016
0	168	890
1	985	852
0	8433	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 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a1 #s(literal 2 binary64)) (pow.f64 a2 #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a1 #s(literal 2 binary64)) (pow.f64 a2 #s(literal 2 binary64))))))
(-.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1)) a1))
(-.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (*.f64 (neg.f64 a1) a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a1 #s(literal 2 binary64))))
(-.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2)) a2))
(-.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (*.f64 (neg.f64 a2) a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))))
(/.f64 (fma.f64 (neg.f64 (cos.f64 th)) (pow.f64 a2 #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th) (.f64 (*.f64 (neg.f64 a2) a2) (cos.f64 th))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a1 #s(literal 2 binary64)) (pow.f64 a2 #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th)))) #s(literal -2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (neg.f64 a1) a1) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a1) a1))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (fma.f64 (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 (neg.f64 a2) a2) (cos.f64 th)))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 th) a2) a2))) (.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 a1 #s(literal 2 binary64)) (pow.f64 a2 #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (*.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
(+.f64 (/.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64))))) (/.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (.f64 (.f64 (cos.f64 th) a2) a2)) #s(literal 2 binary64))))))
(+.f64 (/.f64 (.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th)) #s(literal 2 binary64)))
(+.f64 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(+.f64 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a1)) (neg.f64 a1) (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a1)) (fabs.f64 a1) (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 a2)) (fabs.f64 a2) (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1 (.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a2) a2 (.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a1 #s(literal 2 binary64)) (*.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(fma.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64)) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64))))
(/.f64 (neg.f64 (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)))
(.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 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a1 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (.f64 (neg.f64 a1) a1) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (neg.f64 (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
(neg.f64 (/.f64 (neg.f64 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(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)))))
(fma.f64 (sin.f64 th) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 th) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 th (/.f64 (PI.f64) #s(literal 2 binary64))))
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) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(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 (pow.f64 a1 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.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))))
(exp.f64 (*.f64 (log.f64 a1) #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)
(fabs.f64 (pow.f64 a1 #s(literal 2 binary64)))
(neg.f64 (*.f64 (neg.f64 a1) a1))
a1
(/.f64 (neg.f64 (.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th))) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th)) (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))
(.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 (pow.f64 a2 #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))) (pow.f64 a2 #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (.f64 (neg.f64 a2) a2) (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))))
(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 (pow.f64 a2 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.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))))
(exp.f64 (*.f64 (log.f64 a2) #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)
(fabs.f64 (pow.f64 a2 #s(literal 2 binary64)))
(neg.f64 (*.f64 (neg.f64 a2) a2))
a2
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a1 a1) (pow.f64 a1 #s(literal 2 binary64)))
#s(approx a1 a1)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 a1 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 (pow.f64 a2 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* a2 a2) (pow.f64 a2 #s(literal 2 binary64)))
#s(approx a2 a2)
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 a2 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 th #s(literal 2 binary64))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 th #s(literal 2 binary64))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (pow.f64 th #s(literal 2 binary64))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 th #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (pow.f64 a1 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 th a1) #s(literal 2 binary64)) (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 (.f64 th a1) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (pow.f64 a1 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (pow.f64 a1 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (pow.f64 (.f64 th a1) #s(literal 2 binary64)) (.f64 #s(literal 1/24 binary64) (pow.f64 a1 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (pow.f64 a1 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
#s(approx (/ (cos th) (sqrt 2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 th #s(literal 2 binary64)) #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) (pow.f64 th #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 th #s(literal 2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
#s(approx (/ (cos th) (sqrt 2)) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (pow.f64 th #s(literal 2 binary64)) #s(literal 1/24 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 th #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -3 binary64))) (pow.f64 th #s(literal 2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))))
#s(approx (cos th) #s(literal 1 binary64))
#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (pow.f64 th #s(literal 2 binary64)) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 th #s(literal 2 binary64)) #s(literal -1/2 binary64)) (pow.f64 th #s(literal 2 binary64)) #s(literal 1 binary64)))
#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (pow.f64 th #s(literal 2 binary64)) #s(literal 1/24 binary64)) (pow.f64 th #s(literal 2 binary64)) #s(literal -1/2 binary64)) (pow.f64 th #s(literal 2 binary64)) #s(literal 1 binary64)))
#s(approx th th)
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (pow.f64 a2 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (*.f64 th a2) #s(literal 2 binary64)) (pow.f64 a2 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (/.f64 (fma.f64 #s(literal 1/24 binary64) (pow.f64 (.f64 th a2) #s(literal 2 binary64)) (.f64 #s(literal -1/2 binary64) (pow.f64 a2 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (pow.f64 a2 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (fma.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -1/720 binary64) (pow.f64 (.f64 th a2) #s(literal 2 binary64)) (.f64 #s(literal 1/24 binary64) (pow.f64 a2 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 a2 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 th #s(literal 2 binary64)) (/.f64 (pow.f64 a2 #s(literal 2 binary64)) (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))

eval27.0ms (0.9%)

Memory: 0.8MiB live, 46.0MiB allocated; 20ms collecting garbage
Compiler: Compiled 4 786 to 596 computations (87.5% saved)

prune10.0ms (0.3%)

Memory

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

Pruning

12 alts after pruning (12 fresh and 0 done)

	Pruned	Kept	Total
New	175	12	187
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	176	12	188

Accuracy

100.0%

Counts

188 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.7%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
	99.4%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a1) a1) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a2) a2) (cos.f64 th))) #s(literal 2 binary64))
	99.6%	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
▶	99.3%	(/.f64 (*.f64 (cos.f64 th) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
▶	68.6%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	68.7%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 #s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (.f64 a2 a2)))
	98.6%	(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (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%	(+.f64 (.f64 #s(approx (/ (cos th) (sqrt 2)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
▶	68.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	15.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	60.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 a1 #s(literal 2 binary64))))
	99.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 a2 #s(literal 2 binary64))))

Compiler

Compiled 578 to 400 computations (30.8% saved)

series50.0ms (1.6%)

Memory

-25.2MiB live, 79.4MiB allocated; 21ms collecting garbage

Counts

36 → 107

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
12.0ms	a1	@	0	((/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (* (* (cos th) a2) a2) (* (cos th) a2) (cos th) th a2 (sqrt 2) 2 (* (* (* (sqrt 2) a1) a1) (cos th)) (* (* (sqrt 2) a1) a1) (* (sqrt 2) a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (+ (* a2 a2) (pow a1 2)) (pow a1 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (cos th) 1 (* a2 a2) (/ (* (cos th) (+ (* a1 a1) (pow a2 2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (pow a2 2))) (+ (* a1 a1) (pow a2 2)) (pow a2 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (pow 2 -1/2) -1/2 (* (/ (cos th) (sqrt 2)) (* a2 a2)))
8.0ms	th	@	0	((/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (* (* (cos th) a2) a2) (* (cos th) a2) (cos th) th a2 (sqrt 2) 2 (* (* (* (sqrt 2) a1) a1) (cos th)) (* (* (sqrt 2) a1) a1) (* (sqrt 2) a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (+ (* a2 a2) (pow a1 2)) (pow a1 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (cos th) 1 (* a2 a2) (/ (* (cos th) (+ (* a1 a1) (pow a2 2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (pow a2 2))) (+ (* a1 a1) (pow a2 2)) (pow a2 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (pow 2 -1/2) -1/2 (* (/ (cos th) (sqrt 2)) (* a2 a2)))
6.0ms	a2	@	-inf	((/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (* (* (cos th) a2) a2) (* (cos th) a2) (cos th) th a2 (sqrt 2) 2 (* (* (* (sqrt 2) a1) a1) (cos th)) (* (* (sqrt 2) a1) a1) (* (sqrt 2) a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (+ (* a2 a2) (pow a1 2)) (pow a1 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (cos th) 1 (* a2 a2) (/ (* (cos th) (+ (* a1 a1) (pow a2 2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (pow a2 2))) (+ (* a1 a1) (pow a2 2)) (pow a2 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (pow 2 -1/2) -1/2 (* (/ (cos th) (sqrt 2)) (* a2 a2)))
4.0ms	a1	@	inf	((/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (* (* (cos th) a2) a2) (* (cos th) a2) (cos th) th a2 (sqrt 2) 2 (* (* (* (sqrt 2) a1) a1) (cos th)) (* (* (sqrt 2) a1) a1) (* (sqrt 2) a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (+ (* a2 a2) (pow a1 2)) (pow a1 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (cos th) 1 (* a2 a2) (/ (* (cos th) (+ (* a1 a1) (pow a2 2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (pow a2 2))) (+ (* a1 a1) (pow a2 2)) (pow a2 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (pow 2 -1/2) -1/2 (* (/ (cos th) (sqrt 2)) (* a2 a2)))
4.0ms	th	@	inf	((/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (* (* (cos th) a2) a2) (* (cos th) a2) (cos th) th a2 (sqrt 2) 2 (* (* (* (sqrt 2) a1) a1) (cos th)) (* (* (sqrt 2) a1) a1) (* (sqrt 2) a1) a1 (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (+ (* a2 a2) (pow a1 2)) (pow a1 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (* a1 a1) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ (cos th) (sqrt 2)) (cos th) 1 (* a2 a2) (/ (* (cos th) (+ (* a1 a1) (pow a2 2))) (sqrt 2)) (* (cos th) (+ (* a1 a1) (pow a2 2))) (+ (* a1 a1) (pow a2 2)) (pow a2 2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (pow 2 -1/2) -1/2 (* (/ (cos th) (sqrt 2)) (* a2 a2)))

rewrite221.0ms (7%)

Memory

-6.2MiB live, 229.8MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	427	3516
0	480	3171
1	2679	3112
0	8032	3026

Stop Event

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

Counts

143 → 449

Calls

Call 1

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

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

eval67.0ms (2.1%)

Memory: 13.4MiB live, 105.9MiB allocated; 8ms collecting garbage
Compiler: Compiled 15 455 to 1 594 computations (89.7% saved)

prune40.0ms (1.3%)

Memory

-23.9MiB live, 38.4MiB allocated; 7ms collecting garbage

Pruning

17 alts after pruning (16 fresh and 1 done)

	Pruned	Kept	Total
New	510	15	525
Fresh	6	1	7
Picked	4	1	5
Done	0	0	0
Total	520	17	537

Accuracy

100.0%

Counts

537 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.7%	(/.f64 (fma.f64 (.f64 (.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (*.f64 a1 (cos.f64 th)))) #s(literal 2 binary64))
▶	68.7%	(/.f64 (fma.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
	99.3%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
▶	15.1%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (*.f64 (pow.f64 a1 #s(literal 2 binary64)) (cos.f64 th))) (sqrt.f64 #s(literal 2 binary64)))
▶	99.2%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
✓	68.6%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	98.6%	(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	68.6%	(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
	68.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
	15.1%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 a1 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
	68.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (pow.f64 a1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64)))))
▶	68.7%	#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))))
	68.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (pow a2 2)) (pow.f64 a2 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	14.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a1 a1) (pow a2 2)) (pow.f64 a1 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
	45.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a1 #s(literal 2 binary64)))))
	68.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64)))))

Compiler

Compiled 977 to 640 computations (34.5% saved)

series32.0ms (1%)

Memory

14.6MiB live, 59.3MiB allocated; 5ms collecting garbage

Counts

29 → 119

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite219.0ms (6.9%)

Memory

17.2MiB live, 246.2MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	426	4361
0	471	3844
1	2587	3817
0	10731	3717

Stop Event

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

Counts

148 → 315

Calls

Call 1

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

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

eval49.0ms (1.5%)

Memory: -14.3MiB live, 86.2MiB allocated; 15ms collecting garbage
Compiler: Compiled 12 339 to 1 291 computations (89.5% saved)

prune22.0ms (0.7%)

Memory

3.6MiB live, 48.4MiB allocated; 4ms collecting garbage

Pruning

19 alts after pruning (16 fresh and 3 done)

	Pruned	Kept	Total
New	388	8	396
Fresh	3	8	11
Picked	2	3	5
Done	1	0	1
Total	394	19	413

Accuracy

100.0%

Counts

413 → 19

Alt Table

Click to see full alt table

Status	Accuracy	Program
	68.7%	(/.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (.f64 (cos.f64 th) a1) (.f64 (.f64 #s(approx (* (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
✓	68.7%	(/.f64 (fma.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
	68.7%	(/.f64 (fma.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal 2 binary64))
	68.7%	(/.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 (.f64 (cos.f64 th) a1)) (.f64 (.f64 #s(approx (* (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
	99.3%	(/.f64 #s(approx (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) (.f64 (.f64 (*.f64 (cos.f64 th) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
	70.9%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 th) (/.f64 (PI.f64) #s(literal 2 binary64)))) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
✓	99.2%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
▶	68.6%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
	62.4%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 #s(approx ( (cos th) a2) (fma.f64 (*.f64 (pow.f64 th #s(literal 2 binary64)) a2) #s(literal -1/2 binary64) a2)) a2)) (sqrt.f64 #s(literal 2 binary64)))
	14.3%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) #s(approx (* (pow a1 2) (cos th)) (pow.f64 a1 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
	98.6%	(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
▶	68.6%	(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
▶	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
	68.7%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 a1 a1 (pow.f64 a2 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
	15.1%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 a1 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th))))
▶	68.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
✓	68.7%	#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))))
	45.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a1 #s(literal 2 binary64)))))
▶	68.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a1 a2) (/.f64 a1 a2) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64)))))

Compiler

Compiled 1 005 to 675 computations (32.8% saved)

series58.0ms (1.8%)

Memory

-22.5MiB live, 126.7MiB allocated; 16ms collecting garbage

Counts

39 → 150

Calls

Call 1

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

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

Calls

9 calls:

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

rewrite239.0ms (7.5%)

Memory

5.2MiB live, 240.3MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	547	4950
0	589	4394
1	3217	4382
0	8429	4268

Stop Event

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

Counts

189 → 490

Calls

Call 1

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

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

eval70.0ms (2.2%)

Memory: 43.0MiB live, 132.1MiB allocated; 12ms collecting garbage
Compiler: Compiled 21 696 to 2 164 computations (90% saved)

prune32.0ms (1%)

Memory

-28.3MiB live, 66.1MiB allocated; 16ms collecting garbage

Pruning

20 alts after pruning (15 fresh and 5 done)

	Pruned	Kept	Total
New	528	9	537
Fresh	5	6	11
Picked	3	2	5
Done	0	3	3
Total	536	20	556

Accuracy

100.0%

Counts

556 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
	68.7%	(fma.f64 (/.f64 (.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64))) a1 (/.f64 (.f64 (*.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) a2) (sqrt.f64 #s(literal 2 binary64))))
	68.7%	(/.f64 (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) a1) (.f64 (cos.f64 th) a1) (.f64 (.f64 #s(approx (* (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
✓	68.7%	(/.f64 (fma.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) (cos.f64 th))) #s(literal 2 binary64))
	68.7%	(/.f64 (fma.f64 (.f64 #s(approx ( (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) a1) a1) #s(approx (cos th) #s(literal 1 binary64)))) #s(literal 2 binary64))
	68.7%	(/.f64 (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 (.f64 (cos.f64 th) a1)) (.f64 (.f64 #s(approx (* (cos th) a2) a2) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))
✓	99.2%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
	68.5%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 #s(approx (cos th) #s(literal 1 binary64)) a2) a2)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 4 binary64) #s(literal -1/4 binary64))))
	68.6%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) (.f64 #s(approx ( (cos th) a2) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
	14.3%	(/.f64 #s(approx (* (cos th) (+ (* a1 a1) (pow a2 2))) #s(approx (* (pow a1 2) (cos th)) (pow.f64 a1 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64)))
	98.6%	(+.f64 (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
✓	68.6%	(+.f64 (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) a1) a1) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	68.6%	(+.f64 (.f64 #s(approx ( (/ (cos th) (sqrt 2)) a1) (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) a1) (.f64 (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (cos.f64 th)) (fma.f64 a1 a1 (.f64 a2 a2))) #s(literal 1/2 binary64)))
	99.3%	#s(approx (/ (+ (* (* (* (cos th) a2) a2) (sqrt 2)) (* (* (* (sqrt 2) a1) a1) (cos th))) 2) (.f64 #s(approx ( (* (sqrt 2) (cos th)) (+ (* a1 a1) (pow a2 2))) (.f64 (.f64 (*.f64 a2 (cos.f64 th)) a2) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
✓	68.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
✓	68.7%	#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))))
	45.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (*.f64 (/.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a1 #s(literal 2 binary64)))))
	68.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (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))))
	68.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (.f64 (/.f64 #s(approx (+ ( (/ a1 a2) (/ a1 a2)) 1) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 a2 #s(literal 2 binary64)))))
	14.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (pow a1 2)) (sqrt 2)) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 a1 #s(literal 2 binary64)))))

Compiler

Compiled 1 864 to 600 computations (67.8% saved)

regimes114.0ms (3.6%)

Memory

29.6MiB live, 173.7MiB allocated; 15ms collecting garbage

Counts

45 → 1

Calls

Call 1

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

Calls

8 calls:

25.0ms	(*.f64 a1 a1)
17.0ms	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
13.0ms	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
13.0ms	a2
11.0ms	th

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes86.0ms (2.7%)

Memory

-0.2MiB live, 137.8MiB allocated; 8ms collecting garbage

Counts

42 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

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)

regimes78.0ms (2.4%)

Memory

-4.0MiB live, 140.7MiB allocated; 11ms collecting garbage

Counts

36 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes83.0ms (2.6%)

Memory

-6.2MiB live, 143.0MiB allocated; 22ms collecting garbage

Counts

34 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

21.0ms	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))
11.0ms	th
9.0ms	a1
9.0ms	a2
8.0ms	(*.f64 a1 a1)

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes40.0ms (1.3%)

Memory

-10.1MiB live, 83.1MiB allocated; 4ms collecting garbage

Counts

17 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes33.0ms (1%)

Memory

20.1MiB live, 70.8MiB allocated; 3ms collecting garbage

Counts

13 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes27.0ms (0.8%)

Memory

4.1MiB live, 51.3MiB allocated; 1ms collecting garbage

Counts

11 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes77.0ms (2.4%)

Memory

-22.7MiB live, 24.2MiB allocated; 2ms collecting garbage

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes10.0ms (0.3%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

2 → 1

Calls

Call 1

Inputs

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

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

derivations3.0ms (0.1%)

Memory

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

Stop Event

1×

fuel

Compiler

Compiled 262 to 74 computations (71.8% saved)

preprocess132.0ms (4.2%)

Memory: -16.7MiB live, 270.0MiB allocated; 18ms collecting garbage
Remove: (abs th)
Compiler: Compiled 3 298 to 1 976 computations (40.1% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample938.0ms (29.5%)

explain126.0ms (4%)

preprocess98.0ms (3.1%)

series20.0ms (0.6%)

rewrite180.0ms (5.7%)

eval27.0ms (0.9%)

prune10.0ms (0.3%)

series50.0ms (1.6%)

rewrite221.0ms (7%)

eval67.0ms (2.1%)

prune40.0ms (1.3%)

series32.0ms (1%)

rewrite219.0ms (6.9%)

eval49.0ms (1.5%)

prune22.0ms (0.7%)

series58.0ms (1.8%)

rewrite239.0ms (7.5%)

eval70.0ms (2.2%)

prune32.0ms (1%)

regimes114.0ms (3.6%)

regimes86.0ms (2.7%)

regimes78.0ms (2.4%)

regimes83.0ms (2.6%)

regimes40.0ms (1.3%)

regimes33.0ms (1%)

regimes27.0ms (0.8%)

regimes77.0ms (2.4%)

regimes10.0ms (0.3%)

derivations3.0ms (0.1%)

preprocess132.0ms (4.2%)

end0.0ms (0%)

Profiling