Metrics for Migdal et al, Equation (64)

start0.0ms (0%)

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

analyze0.0ms (0%)

Memory

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

sample1.4s (23.4%)

Memory

7.4MiB live, 1 485.7MiB allocated; 237ms collecting garbage

Samples

1.1s

8 256×

valid

Precisions

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

ival-cos: 280.0ms (36.2% of total)

ival-mult: 237.0ms (30.6% of total)

ival-sqrt: 96.0ms (12.4% of total)

ival-div: 72.0ms (9.3% of total)

ival-add: 72.0ms (9.3% of total)

ival-true: 6.0ms (0.8% of total)

exact: 6.0ms (0.8% of total)

adjust: 3.0ms (0.4% of total)

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

Bogosity

explain185.0ms (3.1%)

Memory

18.2MiB live, 356.7MiB allocated; 112ms 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

60.0ms

512×

valid

Compiler

Compiled 135 to 40 computations (70.4% saved)

Precisions

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

ival-mult: 17.0ms (41.3% of total)

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

ival-add: 4.0ms (9.7% of total)

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

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

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

preprocess222.0ms (3.7%)

Memory

-1.6MiB live, 193.5MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	41	133
1	163	133
2	595	133
3	1542	133
4	3030	133
5	4451	133
6	7243	133
0	12	19
0	20	13
1	52	13
2	174	13
3	551	13
4	1112	13
5	1706	13
6	3090	13
7	7183	13
0	8100	12

Stop Event

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

Calls

Call 1

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

Outputs

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

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

Symmetry

(abs a1)

(abs a2)

(abs th)

(sort a1 a2)

Compiler

Compiled 19 to 12 computations (36.8% saved)

eval0.0ms (0%)

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

prune0.0ms (0%)

Memory

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

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

Compiler

Compiled 19 to 12 computations (36.8% saved)

simplify139.0ms (2.3%)

Memory

-15.9MiB live, 123.1MiB allocated; 9ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(cos.f64 th)
cost-diff	0	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
cost-diff	7	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2)))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12	56
0	20	50
1	52	50
2	174	50
3	551	50
4	1112	50
5	1706	50
6	3090	50
7	7183	50
0	8100	49

Stop Event

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

Calls

Call 1

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

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

localize46.0ms (0.8%)

Memory

31.6MiB live, 83.4MiB allocated; 4ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.01171875	(+.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)))
accuracy	0.19921875	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
accuracy	0.3821252179922963	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))
accuracy	0.7506637695368841	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Samples

38.0ms

256×

valid

Compiler

Compiled 58 to 14 computations (75.9% saved)

Precisions

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

ival-mult: 17.0ms (58.4% of total)

ival-cos: 8.0ms (27.5% of total)

ival-div: 2.0ms (6.9% of total)

ival-sqrt: 2.0ms (6.9% of total)

ival-add: 1.0ms (3.4% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series20.0ms (0.3%)

Memory

-9.0MiB live, 37.2MiB allocated; 3ms collecting garbage

Counts

5 → 29

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
3.0ms	th	@	-inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
3.0ms	a1	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
3.0ms	a1	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
3.0ms	th	@	0	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
2.0ms	th	@	inf	((+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))

simplify139.0ms (2.3%)

Memory

18.6MiB live, 205.8MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	145	829
1	455	797
2	2115	728
0	8200	680

Stop Event

1×	iter limit
1×	node limit

Counts

29 → 29

Calls

Call 1

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

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

rewrite46.0ms (0.8%)

Memory

-17.4MiB live, 75.5MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12	44
0	20	38
1	72	38
0	514	37

Stop Event

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

Counts

5 → 80

Calls

Call 1

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

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

eval36.0ms (0.6%)

Memory: -10.9MiB live, 43.3MiB allocated; 25ms collecting garbage
Compiler: Compiled 3 491 to 387 computations (88.9% saved)

prune9.0ms (0.1%)

Memory

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

Pruning

12 alts after pruning (12 fresh and 0 done)

	Pruned	Kept	Total
New	118	12	130
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	119	12	131

Accuracy

99.8%

Counts

131 → 12

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.6%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	99.2%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	99.5%	(fma.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	99.2%	(fma.f64 (cos.f64 th) (/.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64))) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
▶	99.6%	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
	25.9%	(/.f64 (-.f64 (pow.f64 (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (.f64 a1 a1) (*.f64 a2 a2))))
	99.2%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
▶	64.8%	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
▶	64.8%	#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))))
	58.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
	61.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
▶	98.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))

Compiler

Compiled 592 to 376 computations (36.5% saved)

simplify141.0ms (2.4%)

Memory

-25.7MiB live, 114.2MiB allocated; 9ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(cos.f64 th)
cost-diff	0	(*.f64 (cos.f64 th) a2)
cost-diff	0	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	3	(fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1))
cost-diff	0	(cos.f64 th)
cost-diff	0	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
cost-diff	1	(+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff	0	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(*.f64 a2 a2)
cost-diff	0	(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	(*.f64 a1 a1)
cost-diff	0	(fma.f64 a2 a2 (*.f64 a1 a1))
cost-diff	0	(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	(cos.f64 th)
cost-diff	0	(*.f64 (cos.f64 th) a2)
cost-diff	0	(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	6	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	35	285
0	55	262
1	121	259
2	302	259
3	750	259
4	1325	259
5	1855	259
6	3256	259
7	7365	259
0	8285	258

Stop Event

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

Calls

Call 1

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

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

localize91.0ms (1.5%)

Memory

-11.5MiB live, 181.3MiB allocated; 8ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.07421875	(*.f64 (cos.f64 th) a1)
accuracy	0.08203125	(.f64 (.f64 (cos.f64 th) a1) a1)
accuracy	0.12890625	(*.f64 (cos.f64 th) a2)
accuracy	0.248378759768442	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.19921875	(.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1))
accuracy	0.390625	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.7506637695368841	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy	22.39682519756249	#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.0	(cos.f64 th)
accuracy	0.3821252179922963	(.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.7103596161966433	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.7506637695368841	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.0	(*.f64 a1 a1)
accuracy	0.0	(sqrt.f64 #s(literal 2 binary64))
accuracy	0.26171875	(/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))
accuracy	22.396825233386192	#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))))
accuracy	0.140625	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.19921875	(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.4459762695368841	(/.f64 (*.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.7506637695368841	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))

Samples

58.0ms

256×

valid

Compiler

Compiled 258 to 29 computations (88.8% saved)

Precisions

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

ival-mult: 18.0ms (46.2% of total)

ival-div: 7.0ms (18% of total)

ival-add: 6.0ms (15.4% of total)

ival-cos: 6.0ms (15.4% of total)

ival-sqrt: 2.0ms (5.1% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series33.0ms (0.6%)

Memory

22.4MiB live, 71.8MiB allocated; 3ms collecting garbage

Counts

22 → 100

Calls

Call 1

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

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

Calls

9 calls:

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

simplify168.0ms (2.8%)

Memory

-7.5MiB live, 225.3MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	336	2756
1	991	2675
2	4290	2648
0	8302	2460

Stop Event

1×	iter limit
1×	node limit

Counts

100 → 100

Calls

Call 1

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

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

rewrite69.0ms (1.2%)

Memory

18.1MiB live, 111.4MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	35	227
0	55	204
1	204	201
0	1487	200

Stop Event

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

Counts

22 → 371

Calls

Call 1

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

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

eval83.0ms (1.4%)

Memory: -23.3MiB live, 122.3MiB allocated; 18ms collecting garbage
Compiler: Compiled 14 990 to 1 469 computations (90.2% saved)

prune37.0ms (0.6%)

Memory

13.2MiB live, 60.5MiB allocated; 1ms collecting garbage

Pruning

29 alts after pruning (26 fresh and 3 done)

	Pruned	Kept	Total
New	482	22	504
Fresh	3	4	7
Picked	2	3	5
Done	0	0	0
Total	487	29	516

Accuracy

100.0%

Counts

516 → 29

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.5%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2 (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	99.2%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a1) (sqrt.f64 #s(literal 2 binary64))) a1 (.f64 (*.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
✓	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.6%	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (.f64 (cos.f64 th) a1) a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
	99.2%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
	58.9%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (.f64 (fma.f64 (/.f64 (.f64 a2 a2) a1) (/.f64 (cos.f64 th) a1) (cos.f64 th)) (*.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
	98.5%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
▶	50.4%	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	55.3%	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	55.4%	(+.f64 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) th) th (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	64.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
✓	64.8%	#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))))
	64.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (.f64 a1 a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))
	15.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (-.f64 (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)) (.f64 (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))) (-.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))))
	42.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	12.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
▶	58.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
	61.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64)) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
	98.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2)))
	98.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
✓	98.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	98.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
	61.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
	98.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
▶	12.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
▶	43.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))

Compiler

Compiled 1 805 to 1 092 computations (39.5% saved)

simplify148.0ms (2.5%)

Memory

8.1MiB live, 150.3MiB allocated; 11ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(/.f64 a2 a1)
cost-diff	0	(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
cost-diff	0	(.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
cost-diff	0	#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
cost-diff	0	(/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
cost-diff	1	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff	0	(/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	2	(fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2))
cost-diff	0	(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff	0	(*.f64 (cos.f64 th) a2)
cost-diff	0	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (.f64 (cos.f64 th) a1) a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
cost-diff	3	(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
cost-diff	3	(fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	59	529
0	100	511
1	217	501
2	672	497
3	2701	497
0	8441	485

Stop Event

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

Calls

Call 1

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

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

localize174.0ms (2.9%)

Memory

0.9MiB live, 228.6MiB allocated; 17ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.19921875	(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.240566259768442	(fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64))
accuracy	0.7506637695368841	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy	25.060033938682455	(.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.390625	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.7506637695368841	(/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
accuracy	22.39682519756249	#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
accuracy	32.079634396377706	#s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (*.f64 th th) #s(literal 1 binary64)))
accuracy	3.607557699470801	(.f64 (.f64 (*.f64 th th) a2) a2)
accuracy	6.506195662287913	(.f64 (.f64 th th) a2)
accuracy	17.93737821398216	(fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2))
accuracy	24.904322493454014	#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.15625	(*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.4453125	(/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))
accuracy	22.396825233386192	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
accuracy	54.940023097913254	#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.08203125	(.f64 (.f64 (cos.f64 th) a1) a1)
accuracy	0.12890625	(*.f64 (cos.f64 th) a2)
accuracy	0.248378759768442	(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (.f64 (cos.f64 th) a1) a1)) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
accuracy	1.0	(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))

Samples

133.0ms

256×

valid

Compiler

Compiled 375 to 52 computations (86.1% saved)

Precisions

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

ival-mult: 56.0ms (58.4% of total)

ival-div: 10.0ms (10.4% of total)

ival-add: 8.0ms (8.3% of total)

ival-cos: 7.0ms (7.3% of total)

const: 7.0ms (7.3% of total)

ival-exp: 3.0ms (3.1% of total)

ival-log: 3.0ms (3.1% of total)

ival-sqrt: 2.0ms (2.1% of total)

exact: 1.0ms (1% of total)

adjust: 0.0ms (0% of total)

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

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

series536.0ms (8.9%)

Memory

-121.1MiB live, 104.1MiB allocated; 930ms collecting garbage

Counts

27 → 104

Calls

Call 1

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

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

Calls

9 calls:

Time	Variable		Point	Expression
473.0ms	a2	@	0	((+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2)) (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) (* (* (cos th) a1) a1) (* (* th th) a2) (* (* (* th th) a2) a2) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ a2 (sqrt 2)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))))
5.0ms	a2	@	inf	((+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2)) (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) (* (* (cos th) a1) a1) (* (* th th) a2) (* (* (* th th) a2) a2) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ a2 (sqrt 2)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))))
5.0ms	a2	@	-inf	((+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2)) (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) (* (* (cos th) a1) a1) (* (* th th) a2) (* (* (* th th) a2) a2) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ a2 (sqrt 2)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))))
5.0ms	th	@	inf	((+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2)) (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) (* (* (cos th) a1) a1) (* (* th th) a2) (* (* (* th th) a2) a2) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ a2 (sqrt 2)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))))
4.0ms	th	@	-inf	((+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2)) (/ (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a1 (/ a1 (sqrt 2))) (/ a1 (sqrt 2)) (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (+ (* (/ a2 a1) (/ a2 a1)) 1) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (+ (* (/ a2 a1) (/ a2 a1)) 1) (/ a2 a1) (* (* (cos th) a1) a1) (* (* th th) a2) (* (* (* th th) a2) a2) (* (/ (cos th) (sqrt 2)) (* a2 a2)) (/ a2 (sqrt 2)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))))

simplify308.0ms (5.1%)

Memory

33.2MiB live, 410.2MiB allocated; 151ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	354	3044
1	1054	2910
2	5513	2882
0	8849	2687

Stop Event

1×	iter limit
1×	node limit

Counts

104 → 104

Calls

Call 1

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

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

rewrite107.0ms (1.8%)

Memory

-38.8MiB live, 203.1MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	59	429
0	100	400
1	346	388
0	2709	380

Stop Event

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

Counts

27 → 371

Calls

Call 1

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

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

eval61.0ms (1%)

Memory: 1.1MiB live, 142.3MiB allocated; 14ms collecting garbage
Compiler: Compiled 18 673 to 1 703 computations (90.9% saved)

prune49.0ms (0.8%)

Memory

27.9MiB live, 122.3MiB allocated; 4ms collecting garbage

Pruning

34 alts after pruning (28 fresh and 6 done)

	Pruned	Kept	Total
New	440	13	453
Fresh	6	15	21
Picked	2	3	5
Done	0	3	3
Total	448	34	482

Accuracy

100.0%

Counts

482 → 34

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	99.5%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2 (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	51.2%	(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
✓	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.2%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
	64.8%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 a1 a1 (.f64 a2 a2))) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
	98.5%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
	98.5%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (.f64 (.f64 (cos.f64 th) a2) a2)) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
✓	50.4%	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
▶	55.3%	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	55.4%	(+.f64 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) th) th (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	64.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
✓	64.8%	#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))))
	42.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	12.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
✓	58.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
	54.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
	98.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2)))
▶	98.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
	75.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1))
✓	98.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	98.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
▶	61.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
	98.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
	42.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
▶	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
✓	12.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
	50.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) a2 (.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) a2)) a2) (.f64 th th))) (sqrt.f64 #s(literal 2 binary64)))))
	43.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 th) th) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	43.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	15.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 #s(approx (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	25.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(approx (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 th) (/.f64 a2 th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)))))
	15.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(approx (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (.f64 (.f64 (.f64 a2 a2) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)))))

Compiler

Compiled 2 285 to 1 354 computations (40.7% saved)

simplify189.0ms (3.2%)

Memory

-17.5MiB live, 221.6MiB allocated; 100ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
cost-diff	0	(.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2)
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
cost-diff	0	#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
cost-diff	0	(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 a1 a1))
cost-diff	1	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff	0	(/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(*.f64 a2 a2)
cost-diff	0	(.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
cost-diff	0	(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
cost-diff	0	(*.f64 (cos.f64 th) a2)
cost-diff	0	(/.f64 (.f64 (cos.f64 th) a2) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
cost-diff	3	(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
cost-diff	6	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) a2 (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	48	404
0	77	386
1	171	372
2	440	372
3	1130	372
4	2463	372
0	8182	365

Stop Event

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

Calls

Call 1

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

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

localize103.0ms (1.7%)

Memory

-2.9MiB live, 232.6MiB allocated; 18ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	0.14453125	(.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2)
accuracy	0.174160009768442	(*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th))
accuracy	0.390625	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.7103596161966433	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
accuracy	0.390625	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.7506637695368841	(/.f64 #s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
accuracy	22.39682519756249	#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
accuracy	31.942620738616522	#s(approx (cos th) (fma.f64 (*.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)))
accuracy	0.3821252179922963	(.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.7103596161966433	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.7506637695368841	(/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))
accuracy	31.942620738616522	#s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64)))
accuracy	0.15625	(*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.390625	(/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))
accuracy	0.7073553276943212	#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64)))))
accuracy	22.396825233386192	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
accuracy	0.19921875	(.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))
accuracy	0.4459762695368841	(/.f64 (.f64 (cos.f64 th) a2) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
accuracy	0.7506637695368841	(/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))
accuracy	1.0	(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))

Samples

74.0ms

256×

valid

Compiler

Compiled 294 to 37 computations (87.4% saved)

Precisions

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

ival-mult: 24.0ms (45.8% of total)

ival-div: 8.0ms (15.3% of total)

ival-add: 6.0ms (11.5% of total)

ival-cos: 6.0ms (11.5% of total)

ival-exp: 3.0ms (5.7% of total)

ival-log: 3.0ms (5.7% of total)

ival-sqrt: 2.0ms (3.8% of total)

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

series23.0ms (0.4%)

Memory

7.1MiB live, 54.1MiB allocated; 3ms collecting garbage

Counts

23 → 76

Calls

Call 1

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

Outputs
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (+ (/ (* (pow a1 2) (cos th)) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (sqrt 2)))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a1 a1)) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (/ (* (pow a1 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a1 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a2 2) (cos th)) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a1 2) (+ (/ 1 (sqrt 2)) (/ (pow a2 2) (* (pow a1 2) (sqrt 2)))))))
#s(approx (/ (* (cos th) a2) (exp (* (log 2) 1/2))) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (cos th) a2) #s(hole binary64 (* a2 (cos th))))
#s(approx (* a2 (/ a2 (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (/ a2 (sqrt 2)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* a2 a2) #s(hole binary64 (pow a2 2)))
#s(approx (* (* (/ a2 (sqrt 2)) (cos th)) a2) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (* (/ a2 (sqrt 2)) (cos th)) #s(hole binary64 (/ (* a2 (cos th)) (sqrt 2))))
#s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) #s(hole binary64 (/ (* (pow a2 2) (cos th)) (sqrt 2))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(hole binary64 (* (pow a2 2) (+ (/ (cos th) (sqrt 2)) (/ (* (pow a1 2) (cos th)) (* (pow a2 2) (sqrt 2)))))))
#s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) #s(hole binary64 (* (pow a2 2) (+ (/ 1 (sqrt 2)) (/ (pow a1 2) (* (pow a2 2) (sqrt 2)))))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2)))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* -1/2 (/ (pow a2 2) (sqrt 2))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2)))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* 1/24 (/ (pow a1 2) (sqrt 2))) (+ (* 1/24 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (pow a1 2) (sqrt 2))) (* -1/720 (/ (pow a2 2) (sqrt 2))))))))))) (+ (/ (pow a1 2) (sqrt 2)) (/ (pow a2 2) (sqrt 2))))))
#s(approx (/ (* (cos th) a2) (exp (* (log 2) 1/2))) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (/ (* (cos th) a2) (exp (* (log 2) 1/2))) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (exp (* (log 2) 1/2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (/ (* (cos th) a2) (exp (* (log 2) 1/2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (cos th) 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 (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* 1/24 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a2 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a2 2) (sqrt 2))))))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (/ (cos th) (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)) (* 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) #s(hole binary64 1))
#s(approx (cos th) #s(hole binary64 (+ 1 (* -1/2 (pow th 2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* 1/24 (pow th 2)) 1/2)))))
#s(approx (cos th) #s(hole binary64 (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/24 (* -1/720 (pow th 2)))) 1/2)))))
#s(approx (* (* (/ a2 (sqrt 2)) (cos th)) a2) #s(hole binary64 (/ (pow a2 2) (sqrt 2))))
#s(approx (* (* (/ a2 (sqrt 2)) (cos th)) a2) #s(hole binary64 (+ (* -1/2 (/ (* (pow a2 2) (pow th 2)) (sqrt 2))) (/ (pow a2 2) (sqrt 2)))))
#s(approx (* (* (/ a2 (sqrt 2)) (cos th)) 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 (* (* (/ a2 (sqrt 2)) (cos th)) 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 (* (/ a2 (sqrt 2)) (cos th)) #s(hole binary64 (/ a2 (sqrt 2))))
#s(approx (* (/ a2 (sqrt 2)) (cos th)) #s(hole binary64 (+ (* -1/2 (/ (* a2 (pow th 2)) (sqrt 2))) (/ a2 (sqrt 2)))))
#s(approx (* (/ a2 (sqrt 2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* 1/24 (/ (* a2 (pow th 2)) (sqrt 2))))) (/ a2 (sqrt 2)))))
#s(approx (* (/ a2 (sqrt 2)) (cos th)) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ a2 (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* a2 (pow th 2)) (sqrt 2))) (* 1/24 (/ a2 (sqrt 2))))))) (/ a2 (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (/ (pow a1 2) (sqrt 2))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* -1/2 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* 1/24 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) #s(hole binary64 (+ (* (pow th 2) (+ (* -1/2 (/ (pow a1 2) (sqrt 2))) (* (pow th 2) (+ (* -1/720 (/ (* (pow a1 2) (pow th 2)) (sqrt 2))) (* 1/24 (/ (pow a1 2) (sqrt 2))))))) (/ (pow a1 2) (sqrt 2)))))
#s(approx (* (/ (cos th) (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
3.0ms	th	@	inf	((+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (exp (* (log 2) 1/2)) (/ (* (cos th) a2) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (* a2 a2) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ a2 (sqrt 2)) (cos th)) a2) (* (/ a2 (sqrt 2)) (cos th)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
3.0ms	a2	@	-inf	((+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (exp (* (log 2) 1/2)) (/ (* (cos th) a2) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (* a2 a2) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ a2 (sqrt 2)) (cos th)) a2) (* (/ a2 (sqrt 2)) (cos th)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
3.0ms	a2	@	inf	((+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (exp (* (log 2) 1/2)) (/ (* (cos th) a2) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (* a2 a2) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ a2 (sqrt 2)) (cos th)) a2) (* (/ a2 (sqrt 2)) (cos th)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
2.0ms	a2	@	0	((+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (exp (* (log 2) 1/2)) (/ (* (cos th) a2) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (* a2 a2) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ a2 (sqrt 2)) (cos th)) a2) (* (/ a2 (sqrt 2)) (cos th)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))
2.0ms	th	@	-inf	((+ (* (/ (* (cos th) a2) (exp (* (log 2) 1/2))) a2) (* (* a1 a1) (/ (cos th) (sqrt 2)))) (exp (* (log 2) 1/2)) (/ (* (cos th) a2) (exp (* (log 2) 1/2))) (* (cos th) a2) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (* a2 (/ a2 (sqrt 2))) (/ a2 (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* a2 a2) (/ (cos th) (sqrt 2))) (* a2 a2) (/ (cos th) (sqrt 2)) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (/ (cos th) (sqrt 2)) (* a1 a1)) (/ (cos th) (sqrt 2)) (cos th) (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (* (* (/ a2 (sqrt 2)) (cos th)) a2) (* (/ a2 (sqrt 2)) (cos th)) (/ (cos th) (sqrt 2)) (* (* a1 a1) (/ (cos th) (sqrt 2))) (cos th) (* (/ (cos th) (sqrt 2)) (* a2 a2)))

simplify148.0ms (2.5%)

Memory

26.5MiB live, 256.5MiB allocated; 21ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	245	2276
1	708	2049
2	3009	2019
0	8386	1900

Stop Event

1×	iter limit
1×	node limit

Counts

76 → 76

Calls

Call 1

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

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

rewrite85.0ms (1.4%)

Memory

-32.7MiB live, 118.3MiB allocated; 16ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	48	325
0	77	298
1	268	293
0	1773	286

Stop Event

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

Counts

23 → 218

Calls

Call 1

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

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

eval32.0ms (0.5%)

Memory: 19.8MiB live, 64.6MiB allocated; 7ms collecting garbage
Compiler: Compiled 9 336 to 826 computations (91.2% saved)

prune43.0ms (0.7%)

Memory

-13.2MiB live, 82.4MiB allocated; 15ms collecting garbage

Pruning

35 alts after pruning (26 fresh and 9 done)

	Pruned	Kept	Total
New	265	4	269
Fresh	1	22	23
Picked	2	3	5
Done	0	6	6
Total	268	35	303

Accuracy

100.0%

Counts

303 → 35

Alt Table

Click to see full alt table

Status	Accuracy	Program
	99.5%	(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))) a2 (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	51.2%	(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
	56.1%	(fma.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
	55.7%	(fma.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) a1) a1 #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
✓	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.2%	(/.f64 (.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
	64.8%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (fma.f64 a1 a1 (.f64 a2 a2))) (exp.f64 (.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
	98.5%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (.f64 (.f64 (cos.f64 th) a2) a2)) (sqrt.f64 #s(literal 2 binary64)))
	98.5%	(/.f64 #s(approx (+ (* (* (cos th) a2) a2) (* (* (cos th) a1) a1)) (.f64 (.f64 (cos.f64 th) a2) a2)) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))
✓	50.4%	(+.f64 (.f64 (/.f64 #s(approx (cos th) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 th th) #s(literal 1/24 binary64)) (.f64 th th) #s(literal -1/2 binary64)) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) #s(approx ( (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	55.4%	(+.f64 #s(approx (* (* a1 a1) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 a1 a1)) th) th (.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))) #s(approx (* (/ (cos th) (sqrt 2)) (* a2 a2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
	64.6%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 (.f64 a2 a2) (sqrt.f64 #s(literal 2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 a1 a1))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
✓	64.8%	#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))))
	42.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64))))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64))))
	12.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 #s(approx (+ (* a2 a2) (* a1 a1)) (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
✓	58.8%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
	54.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (fma.f64 a2 (/.f64 a2 (.f64 a1 a1)) #s(literal 1 binary64)) (.f64 (.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))))))
	98.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 a2)) (neg.f64 a2)))
✓	98.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
	98.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2) (cos.f64 th)))
	75.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (-.f64 (pow.f64 (/.f64 a2 a1) #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 (*.f64 a1 (cos.f64 th)) (sqrt.f64 #s(literal 2 binary64)))) a1))
✓	98.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
	98.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 (cos.f64 th) (exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
✓	61.2%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (*.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) #s(literal 1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
	42.4%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (.f64 (fma.f64 (/.f64 a2 a1) (/.f64 a2 a1) #s(literal 1 binary64)) (.f64 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))) a1))))
✓	64.5%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
✓	12.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))
	50.7%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (fma.f64 (.f64 th th) #s(literal -1/2 binary64) #s(literal 1 binary64)) a2) a2 (.f64 (.f64 (.f64 #s(literal 1/24 binary64) (.f64 (.f64 th th) a2)) a2) (.f64 th th))) (sqrt.f64 #s(literal 2 binary64)))))
	43.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 a2 th) th) a2) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	43.0%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 (fma.f64 (.f64 (.f64 a2 th) (.f64 a2 th)) #s(literal -1/2 binary64) (.f64 a2 a2)) (sqrt.f64 #s(literal 2 binary64)))))
	15.3%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) (/.f64 #s(approx (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (.f64 (.f64 (.f64 (.f64 th th) a2) a2) #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))
	25.1%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(approx (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (.f64 (/.f64 (fma.f64 (/.f64 a2 th) (/.f64 a2 th) (.f64 #s(literal -1/2 binary64) (.f64 a2 a2))) (sqrt.f64 #s(literal 2 binary64))) (.f64 th th)))))
	15.9%	#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(approx (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (.f64 (.f64 (.f64 a2 a2) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th)))))

Compiler

Compiled 3 031 to 997 computations (67.1% saved)

regimes113.0ms (1.9%)

Memory

18.6MiB live, 204.7MiB allocated; 26ms collecting garbage

Counts

52 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes93.0ms (1.6%)

Memory

25.7MiB live, 167.3MiB allocated; 20ms collecting garbage

Counts

42 → 1

Calls

Call 1

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

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:

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

Results

Accuracy	Segments	Branch
99.6%	1	`(*.f64 a1 a1)`
99.6%	1	`(*.f64 a2 a2)`
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)

regimes90.0ms (1.5%)

Memory

-34.5MiB live, 155.0MiB allocated; 30ms collecting garbage

Counts

38 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes69.0ms (1.2%)

Memory

37.2MiB live, 129.3MiB allocated; 8ms collecting garbage

Counts

31 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes69.0ms (1.2%)

Memory

0.3MiB live, 136.8MiB allocated; 17ms collecting garbage

Counts

28 → 1

Calls

Call 1

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

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

Calls

8 calls:

10.0ms	(*.f64 a1 a1)
10.0ms	th
10.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)))
8.0ms	a1
7.0ms	a2

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes95.0ms (1.6%)

Memory

0.7MiB live, 138.4MiB allocated; 47ms collecting garbage

Counts

25 → 2

Calls

Call 1

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

Outputs

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

#s(approx (+ (* (/ (cos th) (sqrt 2)) (* 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:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes3.0ms (0.1%)

Memory

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

Counts

8 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

3.0ms

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

Results

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

Compiler

Compiled 19 to 12 computations (36.8% saved)

regimes34.0ms (0.6%)

Memory

-12.5MiB live, 76.8MiB allocated; 19ms collecting garbage

Counts

6 → 1

Calls

Call 1

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

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes23.0ms (0.4%)

Memory

23.2MiB live, 68.3MiB allocated; 7ms collecting garbage

Counts

5 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

regimes35.0ms (0.6%)

Memory

-16.8MiB live, 30.7MiB allocated; 27ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

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

Calls

8 calls:

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

Results

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

Compiler

Compiled 35 to 40 computations (-14.3% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-4.0603660181311546e-221	-4.080540262542225e-254

Compiler

Compiled 22 to 18 computations (18.2% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-4.0603660181311546e-221	-4.080540262542225e-254

Compiler

Compiled 22 to 18 computations (18.2% saved)

simplify58.0ms (1%)

Memory

0.7MiB live, 51.0MiB allocated; 2ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	74	349
1	133	349
2	376	347
3	1469	347
4	3583	347
5	7127	347

Stop Event

1×	node limit

Calls

Call 1

Inputs
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(if (<=.f64 (+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) #s(literal -8139666055761541/203491651394038521547847039511757134922630564035519658215217828728150550470508791245160894801988351157926327837934364027279321339542216951915385621714197694277806322617004838820284371518304871360136871830318804992117027222823378335301632 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) #s(approx (+ ( (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(if (<=.f64 (+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) #s(literal -8139666055761541/203491651394038521547847039511757134922630564035519658215217828728150550470508791245160894801988351157926327837934364027279321339542216951915385621714197694277806322617004838820284371518304871360136871830318804992117027222823378335301632 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(approx (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (.f64 (.f64 (.f64 a2 a2) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))

Outputs
(fma.f64 (/.f64 (.f64 (cos.f64 th) a2) (sqrt.f64 #s(literal 2 binary64))) a2 (.f64 (*.f64 a1 a1) (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (cos.f64 th) a2) a2 (.f64 (*.f64 (cos.f64 th) a1) a1)) (sqrt.f64 #s(literal 2 binary64)))
(/.f64 (.f64 (cos.f64 th) (fma.f64 a2 a2 (.f64 a1 a1))) (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) (cos.f64 th)) a2))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (cos.f64 th) (.f64 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))) a2)))
(if (<=.f64 (+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) #s(literal -8139666055761541/203491651394038521547847039511757134922630564035519658215217828728150550470508791245160894801988351157926327837934364027279321339542216951915385621714197694277806322617004838820284371518304871360136871830318804992117027222823378335301632 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (.f64 (.f64 a2 a2) (/.f64 #s(approx (cos th) (fma.f64 #s(literal -1/2 binary64) (.f64 th th) #s(literal 1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) #s(approx (+ ( (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
(if (<=.f64 (+.f64 (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a1 a1)) (.f64 (/.f64 (cos.f64 th) (sqrt.f64 #s(literal 2 binary64))) (.f64 a2 a2))) #s(literal -8139666055761541/203491651394038521547847039511757134922630564035519658215217828728150550470508791245160894801988351157926327837934364027279321339542216951915385621714197694277806322617004838820284371518304871360136871830318804992117027222823378335301632 binary64)) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (* (* a2 a2) (/ (cos th) (sqrt 2))) #s(approx (/ (+ (* (* (* (* th th) a2) a2) -1/2) (* a2 a2)) (sqrt 2)) (.f64 (.f64 (.f64 a2 a2) (/.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))) (.f64 th th))))) #s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) (/.f64 (fma.f64 a2 a2 (*.f64 a1 a1)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a2 (/.f64 a2 (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))) #s(approx (/ (+ (* a2 a2) (* a1 a1)) (sqrt 2)) (*.f64 a1 (/.f64 a1 (sqrt.f64 #s(literal 2 binary64))))))

derivations357.0ms (6%)

Memory

-11.9MiB live, 320.3MiB allocated; 84ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 403 to 76 computations (81.1% saved)

preprocess74.0ms (1.2%)

Memory: 21.1MiB live, 157.9MiB allocated; 19ms collecting garbage
Remove: (abs th)
Compiler: Compiled 1 096 to 344 computations (68.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze0.0ms (0%)

sample1.4s (23.4%)

explain185.0ms (3.1%)

preprocess222.0ms (3.7%)

eval0.0ms (0%)

prune0.0ms (0%)

simplify139.0ms (2.3%)

localize46.0ms (0.8%)

series20.0ms (0.3%)

simplify139.0ms (2.3%)

rewrite46.0ms (0.8%)

eval36.0ms (0.6%)

prune9.0ms (0.1%)

simplify141.0ms (2.4%)

localize91.0ms (1.5%)

series33.0ms (0.6%)

simplify168.0ms (2.8%)

rewrite69.0ms (1.2%)

eval83.0ms (1.4%)

prune37.0ms (0.6%)

simplify148.0ms (2.5%)

localize174.0ms (2.9%)

series536.0ms (8.9%)

simplify308.0ms (5.1%)

rewrite107.0ms (1.8%)

eval61.0ms (1%)

prune49.0ms (0.8%)

simplify189.0ms (3.2%)

localize103.0ms (1.7%)

series23.0ms (0.4%)

simplify148.0ms (2.5%)

rewrite85.0ms (1.4%)

eval32.0ms (0.5%)

prune43.0ms (0.7%)

regimes113.0ms (1.9%)

regimes93.0ms (1.6%)

regimes90.0ms (1.5%)

regimes69.0ms (1.2%)

regimes69.0ms (1.2%)

regimes95.0ms (1.6%)

regimes3.0ms (0.1%)

regimes34.0ms (0.6%)

regimes23.0ms (0.4%)

regimes35.0ms (0.6%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

simplify58.0ms (1%)

derivations357.0ms (6%)

preprocess74.0ms (1.2%)

end0.0ms (0%)

Profiling